Лабы / 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.