Вращение Земли вокруг Солнца (программа Паскаль)

Question

Вращение Земли вокруг Солнца

Answer 1

Uses Crt, GRAPH;
Var i, d: integer;
fi, h, ; real;
x0, y0, r1: integer;
begin
d := detect;
InitGRAPH (d, i, 'G/Work/t7');                        {Инициализация графики}
SetColor (Red);
Circle (320, 240, 10);                    {Рисование окружности красного цвета}
SetFillStyle (1, Red);
FloodFill (320, 240, Red);               {Закраска круга (Солнца)  красным цветом}
R1:= 100; h:=5; fi:= 0;
Repeat
X0:= round (r1*sin (fi)) +320;
Y0:= round (r1*cos(fi)) +240;
fi:= fi+2*pi*h/360;
Putpixel (x0, y0, 15);
delay(50);
Putpixel ((x0, y0, 0);
Until keypressed;
CloseGraph
end.