Вопрос № 164468: Здравствуйте, уважаемые эксперты. Суть проблемы: Необходимо написать программу на Delphi рисующую график по заданной формуле. Сама процедура, выполняющая построение графика у меня есть. Вот она: <div style="margin:15px; margin-top:10px"><di...
Вопрос № 164.468
Здравствуйте, уважаемые эксперты. Суть проблемы: Необходимо написать программу на Delphi рисующую график по заданной формуле. Сама процедура, выполняющая построение графика у меня есть. Вот она:
Код:
procedure TForm1.Button1Click(Sender: TObject); var x1,x2:real; // границы
изменения аргумента функции y1,y2:real; // границы изменения значения функции x:real; // аргумент функции y:real; // значение функции в точке х dx:real; // приращение аргумента l,b:integer; // левый нижний угол области вывода графика w,h:integer; // ширина и высота области вывода графика mx,my:real; // масштаб по осям X и Y x0,y0:integer; // точка - начало координат
begin // область вывода графика l:=10; // X - координата левого верх
него угла b:=Form2.ClientHeight-20; //У - координата левого верхнего угла h:=Form2.ClientHeight-40; // высота w:=Form2.Width-40; // ширина x1:=0; // нижняя граница диапазона аргумента x2:=25; // верхняя граница диапазона аргумента dx:=0.0416666; // шаг аргумента
// найдем максимальное и минимальное значения // функции на отрезке [x1,x2]
y1:=f(x1); // минимум y2:=f(x1); //максимум x:=x1; repeat y := f (x); if y < y1 then y1:=y; if y > y2 then y2:=y; x:=x+dx;
until (x >= x2); // вычислим масштаб my:=h/abs(y2-y1); // масштаб по оси Y mx:=w/abs(x2-x1); // масштаб по оси X x0:=1; y0:=b-Abs(Round(y1*my)) ; with form2.Canvas do begin // оси MoveTo(l,b);LineTo(l,b-h); MoveTo(x0,y0);LineTo(x0+w,y0); TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3)); TextOut(l+5,b,FloatToStrF(y1,ffGeneral,6,3)); // построение графика x:=x1; repeat y:=f(x); Pixels[x0+Round(x*mx),y0-Round(y*my)]:=c
lRed; x:=x+dx; until (x >= x2); end; end;
Взята из учебника по Делфи. Там написана процедура:
Код:
Function f(x:real):real; begin F:=2*x; end;
Если переменной F присвоить любую функцию, то все работает. Пробовал сначала
делать так :
Код:
f(StrToFloat(Edit1.Text));
но потом понял, что это не верный путь. Тут наверно нужно посимвольно считывать. А это для меня пока дремучий лес. Мне интересно как тут организовать диалог с пользователем и почему прог
рамма не работает при банальном считывании строки. Заранее спасибо.
Отвечает: Armad
Здравствуйте, Беляев Валерий Сергеевич! Дело в том, что в примере из учебника функция f(x) расчитывается заново при каждом вызове, а в случае с f(StrToFloat(Edit1.Text)) значение функции будет постоянно (либо вам придется для каждого шага вводить новое значение в Edit1 и заново расчитывать значение f(x)) Для того чтобы можно было задать вид функции f(x) в текстовом виде (например (2*x-15)^3 ) вам следует изменить вот этот участок
Function f(x:real):real; begin F:=2*x; // в этом месте нужно
написать анализатор текста Edit1 end;
Программы анализаторы для разбора строки называются парсеры. Если не найдете сами, напишите мне и я вышлю Вам несколько примеров парсеров.
Ответ отправил: Armad (статус: 3-й класс)
Ответ отправлен: 09.04.2009, 06:11
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 247126 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
