Сформировать точку, движущуюся по эллиптической траектории с заданными параметрами - QBasic

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

Сформировать точку, движущуюся оп эллиптической траектории с заданными параметрами. Заранее спасибо

Решение задачи: «Сформировать точку, движущуюся по эллиптической траектории с заданными параметрами»

Листинг программы

CLS
SCREEN 11
WINDOW (-200, 150)-(200, -150)
 
DO
   i = i + .001
   x = 100 * COS(i)
   y = 50 * SIN(i)
   CIRCLE (x, y), 2
   FOR j = 0 TO 500: NEXT
   CIRCLE (x, y), 2, 0
LOOP UNTIL INKEY$ <> ""
END

Объяснение кода листинга программы

В этом коде используется язык программирования QBasic. Список действий, которые выполняются в этом коде:

Установка начального значения переменной i равным 0.
Установка начальных значений переменных x и y равными 0.
Установка размеров окна программы (координаты верхней левой и нижней правой точек) на (-200, 150) — (200, -150).
Включение режима 11 (режим графики).
Цикл DO, выполняющийся до тех пор, пока INKEY$ не станет пустой строкой.
Внутри цикла DO происходит обновление значений переменных i, x и y. Значение переменной i увеличивается на 0,001, а значения переменных x и y вычисляются как 100COS(i) и 50SIN(i) соответственно (то есть как соответствующие координаты на эллиптической траектории).
Вывод на экран двух окружностей с центром в точке (x,y) и радиусом 2.
Цикл FOR, выполняющийся от 0 до 500.
Вывод на экран еще одной окружности с центром в точке (x,y) и радиусом 2, с указанием направления вращения (в данном случае — против часовой стрелки).
Вывод на экран информации о текущих значениях переменных i, x и y.
Цикл LOOP, выполняющийся до тех пор, пока INKEY$ не станет пустой строкой.
Конец программы.