Помогите доделать.

[darkdragon]

Помогите доделать.

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

program planet_ubi;
uses graph,crt;
var y2,x2,i,y,x,d,m,xc,t,yc,r,x1,y1:integer;
begin
xc:=320;
yc:=240;
r:=55;
initgraph(d,m,'');
setfillstyle(1,14);
circle(xc,yc,r);
floodfill(xc,yc-1,15);
circle(xc,yc,r+55);
circle(xc,yc,y+200);
x:=xc+142;
y:=yc+142;
x2:=xc+77;
y2:=yc+77;
repeat
for i:=0 to 360 do begin
t:=round(i*pi/180);
x1:=round(xc+(x-xc)*cos(t)+(y-yc)*sin(t));
y1:=round(yc+(y-yc)*cos(t)-(x-xc)*sin(t));
setcolor(4);
circle(x1,y1,15);
delay(50);
setcolor(0);
circle(x1,y1,15);
end;
for i:=0 to 360 do begin
t:=round(i*pi/180);
x1:=round(xc+(xc-x2)*cos(t)+(y2-yc)*sin(t));
y1:=round(yc+(yc-y2)*cos(t)-(x2-xc)*sin(t));
setcolor(2);
circle(x1,y1,10);
delay(50);
setcolor(0);
circle(x1,y1,10);
end;
until keypressed;
end.

 

[darkdragon]

все доделал ...теперь надо только одновременно их пустить

program planet_ubi;
uses graph,crt;
var h,y2,x2,i,y,x,d,m,xc,yc,r,x1,y1:integer;
t,o:real;
begin
xc:=320;
yc:=240;
r:=55;
initgraph(d,m,'');
setfillstyle(1,14);
circle(xc,yc,r);
floodfill(xc,yc-1,15);
circle(xc,yc,r+55);
circle(xc,yc,r+145);
x:=xc+142;
y:=yc+142;
x2:=xc+77;
y2:=yc+77;
repeat
for i:=0 to 360 do begin
t:=(i*pi/180);
x1:=round(xc+(x-xc)*cos(t)+(y-yc)*sin(t));
y1:=round(yc+(y-yc)*cos(t)-(x-xc)*sin(t));
setcolor(4);
circle(x1,y1,15);
delay(50);
setcolor(15);
circle(xc,yc,r+145);
setcolor(0);
circle(x1,y1,15);
end;
for h:=0 to 360 do begin
o:=(h*pi/180);
x1:=round(xc+(xc-x2)*cos(o)+(y2-yc)*sin(o));
y1:=round(yc+(yc-y2)*cos(o)-(x2-xc)*sin(o));
setcolor(2);
circle(x1,y1,10);
delay(50);
setcolor(15);
circle(xc,yc,r+55);
setcolor(0);
circle(x1,y1,10);
end;
until keypressed;
end.

 

[darkdragon]

все сделал ))))
помогите устранить моргание на экране!

program planet_ubi;
uses graph,crt;
var h,y2,x2,i,y,x,d,m,xc,yc,r,x1,y1:integer;
t,o:real;
begin
xc:=320;
yc:=240;
r:=55;
initgraph(d,m,'');
setfillstyle(1,14);
circle(xc,yc,r);
floodfill(xc,yc-1,15);
circle(xc,yc,r+55);
circle(xc,yc,r+145);
x:=xc+142;
y:=yc+142;
x2:=xc+77;
y2:=yc+77;
repeat
for i:=0 to 360 do begin
t:=(i*pi/180);
x1:=round(xc+(x-xc)*cos(t)+(y-yc)*sin(t));
y1:=round(yc+(y-yc)*cos(t)-(x-xc)*sin(t));
setcolor(4);
circle(x1,y1,15);
delay(50);
setcolor(15);
circle(xc,yc,r+145);
setcolor(0);
circle(x1,y1,15);
x1:=round(xc+(xc-x2)*cos(t)+(y2-yc)*sin(t));
y1:=round(yc+(yc-y2)*cos(t)-(x2-xc)*sin(t));
setcolor(2);
circle(x1,y1,10);
delay(50);
setcolor(15);
circle(xc,yc,r+55);
setcolor(0);
circle(x1,y1,10);
end;
until keypressed;
end.

 

[darkdragon]

все всем огромное спасибо все написал!