Смотреть примеры
Пример 1:
USES graph, crt;
VAR i,a:integer;
BEGIN
Initgraph(a,a,’c:\tp\bgi’);
for i:= 250 to 300 do
begin
Setcolor(15);
Circle(i, 100, 25);
delay(20);
SetColor(0);
Circle(i,100,25);
end;
ReadKey;
Closegraph;
END.
Пример 2:
USES graph, crt;
VAR i,a:integer;
BEGIN
Initgraph(a,a,’c:\tp\bgi’);
i:=25;
repeat
Setcolor(15);
Circle(i, 100, 25);
delay(20);
SetColor(0);
Circle(i,100,25);
i:=i+1;
until keypressed;
ReadKey;
Readkey;
Closegraph;
END.