Цитата:
Сообщение от Хелен
не совсем то, что я имела ввиду)
у вас получилась линия в виде круга, а я хотела чтобы двигалась настолько быстро, чтобы только мигал значок "%" по траектории круга, а не вычерчивал его, т.е. чтобы не был видел в каждой точке круга, а например в восьми.
|
Вот:
Код:
uses crt,graph;
var
x0,y0,x1,y1,i,r,gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
r:=y0-100;
i:=0;
repeat
x1:=x0+round(r*sin(i*pi/180));
y1:=y0-round(r*cos(i*pi/180));
SetBkColor(Black);
If (i mod 45)=0 then
begin
setcolor(green);
outtextXY(x1, y1, '%)');
delay(100);
setcolor(black);
outtextXY(x1, y1, '%)');
end;
if i<361 then inc(i) else i:=0;
until keypressed;
end.
Так?