ЛАБОРАТОРНАЯ РАБОТА№5

Построение правильного многоугольника.
Задача : Построить правильный n -угольник, количество углов которого задано и вводиться через пользовательский интерфейс.

var N,X0,Y0,i:Integer;
angle,cangle,R,x,y:Real;
begin
N:=StrToInt(Edit1.Text);
R:=Image1.Width/4;

Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);

angle:=360/N;
X0:=Trunc(R);
Y0:= Trunc(cos(0*Pi/180)*R+R);

Image1.Canvas.MoveTo(X0,Y0);

For i:=1 to N do
Begin
cangle:=cangle+angle;
x:=sin(cangle*Pi/180)*R;
y:=cos(cangle*Pi/180)*R;
Image1.Canvas.LineTo(Trunc(x+R),Trunc(y+R));
end;

ЛАБОРАТОРНАЯ РАБОТА № 4.

Движение тела,брошенного под углом к горизонту.

Задача: Изобразить местонахождение тела, брошенного с земли с начальной скорость U₀ под углом к горизонту α, через равные интервалы времени ( N – число равных временных интервалов)

Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
t:=0;
U:=StrtoInt(Edit1.Text);
angle:=StrtoInt(Edit2.Text);
U0X:=U * cos(Pi*angle/180);
U0Y:=U * sin(Pi*angle/180);

tp:=(2 * U0Y)/Grav;
sh:=tp/StrtoInt(Edit3.Text);

Form1.Caption := FloattoStr(tp);
Xmax:= (U * U) /Grav;
Ymax:= (U * U)/ (Grav * 2);
kx:= Image1.Width/Xmax;
ky:= Image1.Height/Ymax;

while t<=tp do
Begin
x:=Round(U0X * t);
y:=Round(U0Y * t - ((Grav*(t * t))/2));
Xe:=(x * Kx)+1;
Ye:=((Ymax - y)* Ky)+1;
Image1.Canvas.Ellipse(Trunc(Xe-1),Trunc(Ye-1),Trunc(Xe+1),Trunc(Ye+1));
t:=t+sh;