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

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

Код программы.
procedure TForm1.Button1Click(Sender: TObject);
 var
x,y,N,a,la:real;
xsc,ysc:integer;
begin
N:= StrtoInt(Edit1.Text);
Image1.Canvas.Pen.Color:=clyellow;
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
Image1.Canvas.Pen.Color:=clgreen;
x:=round(Image1.Width/2);
y:=round(Image1.Height/2);
a:=0;
la:=((360/N)*Pi)/180;
xsc:=round(x+100*cos(a));
ysc:=round(y+100*sin(a));
Image1.Canvas.MoveTo(xsc, ysc);
while a< 2*(Pi) do
begin
xsc:=round(x+100*cos(a));
ysc:=round(y+100*sin(a));
Image1.Canvas.LineTo(xsc, ysc);
a:=a+la;
end;
end;                          

Интерфейс.

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

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