Пример разработки программы

Задание: Создать приложение для построения графика функции .

1. Создайте новое приложение.

2. Для вычисления значения функции F(x) опишем следующую функцию:

Function f(x:real):real;

Begin

f:=2*Sin(x)*exp(x/5);

end;

3. Создайте процедуру, которая будет выполнять построение графика функции на форме:

procedure GrOfFunc;

Var

x1,x2:real; // границы изменения аргумента функции

y1,y2:real; // границы изменения значения функции

x:real; // аргумент функции

y:real; // значение функции в точке x

dx:real; // приращение аргумента

l,b:integer; // левый нижний угол области вывода графика

w,h:integer; // ширина и высота области вывода графика

mx,my:real; // масштаб по осям X и Y

x0,y0:integer; // точка - начало координат

Begin

// область вывода графика

l:=10; // X - координата левого верхнего угла

b:=Form1.ClientHeight-20; // Y - координата левого верхнего угла

h:=Form1.ClientHeight-40; // высота

w:=Form1.Width-40; // ширина

x1:=0; // нижняя граница диапазона аргумента

x2:=25; // верхняя граница диапазона аргумента

dx:=0.01; // шаг аргумента

//Найдем максимальное и минимальное значения функции на отрезке [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:=l;

y0:=b-Abs(Round(y1*my));

with form1.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)]:=clRed;

x:=x+dx;

until (x>=x2);

end;

end;

4. Для определения стиля рисования рабочей области формы используется событие OnPaint. Создайте процедуру-обработчик прорисовки формы, в которой вызовите процедуру построения графика:

procedure TForm1.FormPaint(Sender: TObject);

Begin

GrOfFunc;

end;

5. Так как построенный график функции зависит от размеров формы, возникает необходимость его перерисовки при изменении размеров формы. Для этого создайте процедуру-обработчик изменения размеров формы (событие OnResize):

procedure TForm1.FormResize(Sender: TObject);

Begin

// очистить форму

form1.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight));

// построить график

GrOfFunc;

end;

Результат выполнения программы: