Паскаль! Как сделать условие: чем дальше планеты от солнца, тем медленнее они крутятся? Почему Луна немного косит?

[Jenee]

"Модель солнечной системы с 3 планетами(Меркурий, Венера, Земля) и 1 спутник (Луна). Важное условие: чем дальше планеты от солнца, тем медленнее они крутятся."
Как сделать условие: чем дальше планеты от солнца, тем медленнее они крутятся? Почему Луна немного косит?
программа:

uses crt, graphabc;
var x,y,x0,y0,rvod,rel,xe,ye,dy,re,i,re2,dy2,xe2,ye2,xe3,ye3,re3,dy3,a,b,re4,dy4,c:integer;
begin
x:=640;
y:=480;
setwindowsize(x,y);
x0:= x div 2;
y0:= y div 2;
rvod:=30;
rel:=10;
dy:=50;
re:=y0-dy;
dy2:=100;
re2:=y0-dy2;
dy3:=150;
re3:=y0-dy3;
dy4:=20;
re4:=ye-dy4;
i:=360;
c:=5;
repeat
clearwindow;
if i=360 then i:=3 else inc(i);

setpencolor(clyellow); //Sun
circle(x0,y0,rvod);
floodfill(x0,y0,clyellow);

xe:=x0+round(re*cos(i*pi/180));
ye:=y0+round(re*sin(i*pi/180));
setpencolor(clblue);
circle(xe,ye+1,rel);
floodfill(xe,ye,clblue);
delay(50);

 xe2:=x0+round(re2*cos(i*pi/180));
ye2:=y0+round(re2*sin(i*pi/180));
setpencolor(clgray);
circle(xe2,ye2,rel);
floodfill(xe2,ye2,clgray);
delay(50);

xe3:=x0+round(re3*cos(i*pi/180));
ye3:=y0+round(re3*sin(i*pi/180));
setpencolor(clolive);
circle(xe3,ye3,rel);
floodfill(xe3,ye3,clolive);
delay(50);


a:=xe+round(re4*cos(i*pi/180));
b:=ye+round(re4*cos(i*pi/180));
circle(a,b,c);
floodfill(a,b,clblack);
delay(50);
until keypressed;
end.

[Аватар]

Дык делай разной угловую скорость, а не одинаковую как у тебя. Т.е. в cos(i*pi/180)) и для sin тоже не просто на i умножай, а еще на коэффициент, который тем меньше, чем больше радиус.

[type_Oleg]

Во-первых - переделайте с массивами, иначе читать ваш код невозможно. Он станет гораздо короче и понятнее.
И комменты напишите - где у вас координаты Солнца, Земли, и т.д.
Во-вторых -

Сообщение от Jenee

чем дальше планеты от солнца, тем медленнее они крутятся

Чем-чем - это как ?
Просто обратно пропорционально, или по законам Кеплера - линейная скорость обратно пропорциональна корню квадратному от расстояния ?
(Если угловая скорость - то обр. проп. расстоянию^1.5)
И еще - если изображать все в одном ( правильном ) масштабе , то расстояние от Земли до Солнца в 400 раз больше расстояния от Земли до Луны. То есть орбита Луны будет практически неразличима от орбиты Земли.

[Jenee]

Аватар, СПАСИБО!