Лабы / Pascal.1.курс / part 2 / var 14 / LAB7

program lab7;
uses crt,graph;
var
dr,md,kod,x,y:integer;
a:real;

procedure fillcolor(a,b:byte);
begin
setcolor(a);
setfillstyle(solidfill,b);
end;

begin
dr:=detect;
initgraph(dr,md,'c:\tp\bgi');
kod:=graphresult;

if kod=grok then begin
fillcolor(4,4);
circle(320,240,60);
floodfill(320,240,4);

repeat

fillcolor(1,1);
x:=320+round(cos(a)*200);
y:=240+round(sin(a)*200);
circle(x,y,10);
floodfill(x,y,1);
delay(500);
fillcolor(0,0);
floodfill(x,y,0);

a:=a+0.01;
if a=360 then a:=0;

if keypressed then exit;

until false;

end else writeln('Error: ',GraphErrorMsg(kod));
end.