Построить орнамент (программа Паскаль)

Question

Построить орнамент

Answer 1

USES Crt, Graph;
VAR
  Gd,Gm : INTEGER;  Av : CHAR;   X1, Y1, X, Y : INTEGER;  U, H : REAL;
BEGIN
  Gd:=Detect;  InitGraph(Gd,Gm,'C:\tp7\BGI');
  SetFillStyle(1,14);  SetBkColor(5);  SetColor(14);   X:=GetMaxX DIV 2;  Y:=GetMaxY DIV 2;
  U:=2*Pi;
  While U>=0 DO Begin
      X1:=Trunc(100*COS(U))+X;   Y1:=Tunc(100*SIN(U))+Y;
      Circle(X1,Y1,3);       Delay(1000);    U:=U-0.1;
  End;
  H:=-5;
  While H<=45 DO Begin
      X:=Trunc(100+H*10);    Y:=Trunc(100-SIN(H)*10);
      Circle(X,Y,2);
      Delay(500);     H:=H+0.5;
  End;
  H:=-5;
  While H<=45 DO Begin
      X:=Trunc(100+H*10);     Y:=Trunc(380-SIN(H)*10);
      Circle(X,Y,2);
      Delay(500);     H:=H+0.5;
  End;
  ReadLn;
END.