Построить пятиконечную звезду (программа Паскаль)

Question

Построить  пятиконечную звезду

Answer 1

USES Crt,Graph;
VAR
 Gd,Gm : INETEGER;  X,Y,Rb,Rm : INETEGER;  Points: ARRAY [1..11] OF PointType; {Массив вершин }
 I, A : REAL;
BEGIN
  Gd:=Detect; Gm:=1;
  InitGraph(Gd,Gm,'c:\tp7\bgi');  IF GraphResult<>0 THEN HALT(1);
  Rb:=150; Rm:=70;
  ClearDevice; SetBkColor(3);  SetColor(4); SetFillStyle(1,4);
  I:=1;  A:=0.94;  { Определение координат вершин звезды }
 WHILE (I<=10) DO Begin
    X:=Trunc(Rb*COS(A))+300;   Points[I].X:=X;
    Y:=Trunc(Rb*SIN(A))+200;    Points[I].Y:=Y;
    Inc(I);    A:=A+0.628;
    X:=Trunc(Rm*COS(A))+300;  Points[I].X:=X;
    Y:=Trunc(RM*SIN(A))+200;   Points[I].Y:=Y;
    Inc(I);    A:=A+0.628;
  End;
  { Связь координат первой и последней вершин }
  Points[11].X:=Points[1].X; Points[11].Y:=Points[1].Y;
  FillPoly(11,Points); { Построение звезды }
  ReadLn;
  CloseGraph; END.