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

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

Код программы.
procedure TForm1.Button1Click(Sender: TObject);
  const
g=10;
Pi=3.14;
var n,t,x,y,xmax,tmax,kx,ky,dt,xsc,ysc,ymax,b,v:real;
begin
Image1.Canvas.pen.Color := clyellow;
v:= StrtoInt(Edit1.Text);
n:= StrtoInt(Edit2.Text);
b:= StrtoInt(Edit3.Text);
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
Image1.Canvas.pen.Color := clgreen;
b:=(b*Pi)/180;
xmax:=(v*v*sin(2*b))/g;
ymax:=(v*v*sin(b)*sin(b))/(2*g);
kx:=Image1.Width/((v*v)/g);
ky:=Image1.Height/((v*v)/(2*g));
tmax:=(2*v*sin(b))/g;
dt:=tmax/n;
t:=0;
Image1.canvas.moveto(0,round(ymax));

while t<tmax do begin
x:=v*cos(b)*t;
y:=v*sin(b)*t-(g*t*t)/2;
xsc:=(x*kx);
ysc:=(Image1.Height-y*ky);
Image1.Canvas.Ellipse (round(xsc), round(ysc), round(xsc+2), round(ysc+2));
t:=t+dt;
end;
end;                         

Интерфейс.

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

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