четверг, 9 декабря 2010 г.

Лабораторная работа №3.

 Код программы.

procedure TForm1.Button1Click(Sender: TObject);
const  N=1000;
var
y,x,xsc,ysc,xmin,ymin,xmax,ymax,ky,kx,dx,A,B,C:real;
pxsc,pysc:integer;
begin
Image1.Canvas.pen.Color:=clred;
A:= StrtoInt(Edit1.Text);
B:= StrtoInt(Edit2.Text);
C:= StrtoInt(Edit3.Text);
xmin:=StrtoInt(Edit4.Text);
ymin:=StrtoInt(Edit5.Text);
xmax:=StrtoInt(Edit6.Text);
ymax:=StrtoInt(Edit7.Text);
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
Image1.Canvas.pen.Color := clblue;
kx:=Image1.Width/(xmax-xmin);
ky:=Image1.Height/(ymax-ymin);
pxsc:=round((0-xmin)*kx);
pysc:=round(Image1.Height-(0-ymin)*ky);
Image1.Canvas.MoveTo(pxsc,0);
Image1.Canvas.LineTo(pxsc,Image1.Height);
Image1.Canvas.MoveTo(0,pysc);
Image1.Canvas.LineTo(Image1.Width,pysc);
dx:=(xmax-xmin)/n;
x:=xmin;
while x<xmax do begin
y:=(A*x*x)+(B*x)+C;
xsc:=(x-xmin)*(kx);
ysc:=Image1.Height-(y-ymin)*ky;
Image1.Canvas.pen.Color := clgreen;
Image1.Canvas.Ellipse (round(xsc), round(ysc), round(xsc+2), round(ysc+2));
x:=x+dx;
end;
end;                            

Интерфейс.

Комментариев нет:

Отправить комментарий