Построение графика функции

public y:array[1..20] of real; x,xn,dx,xk,n:integer;

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject); { Расчет данных }

var i:integer; xx:string;

begin

xn:=strtoint(edit1.Text); xk:=strtoint(edit2.Text);

dx:=strtoint(edit3.Text);

x:=xn; i:=1;

while x<=xk do

begin

y[i]:= 3.2*sqr(x/2)-9*(x/8) +20*sin(x)-50;

str(y[i]:1:1,xx);

memo1.lines.add('x ='+ inttostr(x) + ' y ='+xx);

i:=i+1;

x:=x+dx;

end;

n:=i—1;

end;

procedure TForm1.N2Click(Sender: TObject); { Построение графика }

var xc,yc,i,m,px,py,mx:integer;

begin

with image1.Canvas do

begin

xc:=image1.width div 2;

yc:=image1.height div 2;

pen.Width:=5;pen.Color:=rgb(0,0,0);

moveto(0,image1.height div 2);

lineto(image1.width, image1.height div 2);

moveto(image1.width div 2,0);

lineto(image1.width div 2,image1.height);

pen.Width:=1;pen.Color:=rgb(0,0,0); pen.Style:=psDot;

m:=xc div 5;

for i:=0 to 8 do begin

moveto(xc+i*m, 0);lineto(xc+m*i, height);

moveto(xc—i*m, 0);lineto(xc—m*i,height);

moveto(0,yc—m*i);

lineto(2*xc, yc—m*i);

moveto(0,yc+m*i);

lineto(2*xc, yc+m*i);

end;

x:=xn; i:=1;

pen.color:=rgb(0,0,255); pen.width:=8;

mx:=trunc(2*xc/(xk—xn));

moveto((x)*mx+xc,yc— trunc(y[i]));

while x<=xk do

begin

px:= x*mx +xc;

py:=yc—trunc(y[i]);

image1.canvas.lineto (px,py);

x:=x+dx; i:=i+1;

end;

font.Size:=10;

textout(xc+5,10, 'Y');

textout(2*xc—25,yc—20, 'X');

textout(xc—15,yc—20, '0');

textout(xc+50,20, 'График функции’);

for i:=1 to 3 do

textout(xc—24,yc—m*i, inttostr(50*i));

for i:=1 to 3 do

textout(xc—24,yc+m*i, inttostr(—50*i));

for i:=1 to 4 do

textout(xc+m*i,yc+14, inttostr(3*i));

for i:=1 to 4 do

textout(xc—m*i,yc+14, inttostr(3*i));

end;

end;

procedure TForm1.N3Click(Sender: TObject); {Прекращение работы программы}

begin

end;

end.