Снова задача с планетой

[darkdragon]

Снова задача с планетой

Планета вращается по орбите !
это надо сделать так:
вывести изображение цветом ,затем вывести изображение еще раз цветом фона,затем вывести изображение цветом с новыми координатами!
причем сделать через Sin и cos !

З.Ы. Я просто тему не понял,так как болею и на занятия не хожу...поэтому прошу помощи!(напишите пожалуйста с коментариями...а то толку от того что задача решена будет мало...мне нужно понять,а попросить объснить некого...очень надеюсь на вашу помощь!

 

[darkdragon]

пока аолучается только вот такая телепортирующаяся планета...

program planet_ubi;
uses graph,crt;
var y,x,d,m,xc,yc,r1,r2,r3,x1,y1:integer;
begin
xc:=320;
yc:=240;
r1:=145;
r2:=45;
r3:=10;
initgraph(d,m,'');
repeat
for x:=0 to 360 do begin
y:=round(x*pi/180);
x1:=round(xc+(x-xc)*cos+(y-yc)*sin);
y1:=round(yc+(y-yc)*cos-(x-xc)*sin);
circle(x1,y1,r3);
setfillstyle(1,7);
circle(xc,yc,r1);
circle(xc,yc,r2);
floodfill(320,240,15);
delay(50);
cleardevice;
end;
until keypressed;

end.

 

[darkdragon]

помогите

 

[Валерий]

Тебе придётся подождать когда на форуме появится Vladimir_S...

 

[darkdragon]

Я вот не пойму какие циклы и как их задавать с этими формулами!
for i:=0 to 360 do
t:=t*pi/180;
ну и еще что про синусы и косинусы...но я их незнаю так как на занятиях не был!
может кто нибудь хотябы формулы подскажет...может к ночи разберусь_)

 

[darkdragon]

все все написал!