rekurencja

Program TrybGraficzny;
uses Crt,Graph;

CONST                                        {TYPOWE STALE UZYWANE W GRAFICE}
{---------------------------------------------------------------------------}
  BGI  = '';                              {Sciezka do *.BGI,*.CHR dla TP    }
  cBkg = LightGray; {7}                   {Kolor tla ekranu                 }
  cLin = Red; {4}                         {Kolor linii                      }
  cFil = Green; {2}                       {Kolor wypelnien                  }
  xLin = SolidLn; {0}                     {Styl linii                       }
  xFil = SolidFill; {1}                   {Styl wypelnien                   }
  gLin = NormWidth; {3}                  {Grubosc linii                    }
  anim = 100;                             {Szybkosc animacji                }
  gstart = 500;                           {Czas na rozruch trybu graficznego}
             {bez tego opoznienia nie zauwazamy rysowania poczatkowych linii}

VAR                                        {TYPOWE ZMIENNE UZYWANE W GRAFICE}
{---------------------------------------------------------------------------}
  Drv,Mode,Code   :integer;               {Zmienne do otwarcia grafiki      }
  pxs,pys         :integer;               {Srodek ekranu                    }
  px1,py1,px2,py2,r :integer;               {Wsp.pikselowe   dwoch punktow    }
  x1,y1,x2,y2     :real;                  {Wsp.rzeczywiste dwoch punktow    }
procedure kolka(pxs,pys,r: integer);
begin
delay(10);circle(pxs,pys,r);
r:=r div 2;
if r>3 then begin kolka(pxs-r,pys,r);
kolka(pxs+r,pys,r);
kolka(pxs,pys-r,r);
kolka(pxs,pys+r,r);
end;
end;
begin {=====================================================================}
  ClrScr;            {Zeby nie zostawaly komunikaty z poprzednich uruchomien}
  Drv:=Detect; InitGraph(Drv,Mode,BGI);         {Otwarcie trybu graficznego }
  Code:=GraphResult;                            {ze sprawdzeniem poprawnosci}
  if Code<>grOK then
    begin writeln('Blad otwarcia trybu graficznego'); Halt(1); end;

  SetBKColor(cBkg); ClearDevice; Delay(gstart);
  SetColor(cLin); SetLineStyle(xLin,0,gLin); SetFillStyle(xFil,cFil);
  pxs:=GetMaxX div 2; pys:=GetMaxY div 2;                     {Srodek ekranu}
  {-------------------------------------------------------------------------}
  {a teraz mozna rysowac}

  r:=400;pxs:=getMaxX div 2;pys:=getMaxY div 2;
  kolka(pxs,pys,r);
{  Line(pxs-50,7*GetMaxY div 8, pxs+50,7*GetMaxY div 8);
  Line(pxs-4,7*GetMaxY div 8, pxs-4,pys);
  Line(pxs+4,7*GetMaxY div 8, pxs+4,pys);
  FillEllipse(pxs,pys,pxs div 5, pys div 4);}



  {-------------------------------------------------------------------------}
  readln;
  CloseGraph;
end.