Нарисовать звезду на экране - Pascal ABC

Формулировка задачи:

66. Нарисовать звезду на экране.

Код к задаче: «Нарисовать звезду на экране - Pascal ABC»

textual
uses graphABC;
type Tpoint=record
            x,y:integer;
            end;
var  i,x0,y0,R,R1:integer;
     p:array[1..11]of TPoint;
     a:real;
begin
x0:=windowwidth div 2;
y0:=windowheight div 2;
a:=pi/2;
for i:=1 to 10 do
 begin
  if i mod 2=0 then
   begin
    p[i].x:=x0+round(38*cos(a));
    p[i].y:=y0-round(38*sin(a));
   end
  else
   begin
    p[i].x:=x0+round(100*cos(a));
    p[i].y:=y0-round(100*sin(a));
   end;
  a:=a+pi/5;
 end;
p[11]:=p[1];
setpencolor(clRed);
setbrushcolor(clRed);
polygon(p,11);
end.

11   голосов, оценка 3.818 из 5


СОХРАНИТЬ ССЫЛКУ