Показать сообщение отдельно
Старый 20.03.2011, 17:50   #1 (permalink)
Хелен
Sparkling
 
Аватар для Хелен
 
Регистрация: 29.09.2010
Сообщений: 98
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 93
Exclamation Заставить двигаться по кругу

чтоб решить проблему с демоном, решаю такую мини программку.
Точка движется по кругу. зелёная точка.
что нужно сделать чтобы вместо точки двигался какой-нить символ? тот же "%". пока удалось засунуть его только в угол программы ((

Код:
uses crt,graph;
var x0,y0,x1,y1,r,gd,gm:integer;
    i:longint;
begin
gd:=detect;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
r:=y0-100;
i:=1;
repeat
x1:=x0+round(r*sin(i*pi/180));
y1:=y0-round(r*cos(i*pi/180));
setcolor(green);
outtextXY(x, y, '%)');
circle(x1,y1,1);
delay(1000);
setcolor(0);

circle(x1,y1,1);
i:=i+1;
until keypressed;
end.
Хелен вне форума   Ответить с цитированием
Ads

Яндекс

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