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)+(y-yc)*sin(y));
y1:=round(yc+(y-yc)*cos(y)-(x-xc)*sin(y));
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

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