[ksu04061992]

Проиллюстрируйте законы Кеплера, согласно которым планеты движутся по эллипсам, в одном из фокусов которого находиться солнце. Параметрические уравнения траектории движения по эллипсу имеют вид:
x = r1cos(t)
y = r2sin(t)

где t принимает значения от [0;2π]

[lmikle]

И в чем проблема? Берем TPaintBox и рисуем на нем. Угол (t) меняем по таймеру. Кстати, можно не рисовать, а просто загрузить несколько картинок и просто выводить их копированием (для быстроты и красоты).

[ksu04061992]

Программу желательно написать с использованием графических примитивов

[ksu04061992]

Очень прошу помогите

[YVitaliy]

Здесь всегда срашивают, как минимум, ваше собственное видение решения данной задачи, а потом помогают в успешной его реализации

[YVitaliy]

Ну, если не знаешь, как делать, могу подсказать.
Все по-простому, можно доделать - мой вариант:
P.S Да, пока не забыл: в строке

Код:

dy:=cy+round(r2*sin(t)+r2);

красное удалить