Создание анимации движения спутника - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д