Создание анимации движения спутника - Pascal ABC

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

Мне нужна программа, которая демонстрирует движение спутника вокруг планеты Земля, беспрерывно. Может кто поможет? Сам спутник и планету дорисую, мне главное само движение.

Код к задаче: «Создание анимации движения спутника - Pascal ABC»

textual
uses graphABC,crt;
var xc,yc,r:integer;
    u:real;
begin
hidecursor;
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=100;
u:=0;
lockdrawing;
repeat
clearwindow;
setbrushcolor(clBlue);
circle(xc,yc,50);
setbrushcolor(clYellow);
circle(xc+round(r*cos(u)),yc-round(r*sin(u)),10);//yc+ в другую сторону
u:=u+0.1; //меньше приращение, медленнее
sleep(50);
redraw;
until keypressed;
end.

12   голосов, оценка 4.417 из 5


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