Показать сообщение отдельно
Старый 11.04.2010, 23:07   #3 (permalink)
darkdragon
Member
 
Регистрация: 08.04.2010
Сообщений: 38
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

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 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070