informatyki i systemów mikroprocesorowych

Program Spirala;

Uses
  Crt, Graph;
Const
  Delta = 10;         
Var
  x,                  
  y,                 
  dl : Integer;     

Procedure Inicjuj_Grafike;
Var
  Sterownik, Tryb : Integer;
Begin
  DetectGraph(Sterownik, Tryb);
  InitGraph(Sterownik, Tryb, 'c:\tp\bgi')
End;

Procedure Spirala(x,y,dl,del : Integer);
Begin
  If dl > 0
    Then Begin
           LineTo(x+dl,y);
           LineTo(x+dl,y+dl);
           LineTo(x+del, y+dl);
           LineTo(x+del, y+del);
           Spirala(x+del, y+del, dl-2*del, del)
         End;
End;

Begin
  Inicjuj_Grafike;
  MoveTo(90,50);
  Spirala(GetX, GetY, GetMaxX div 2, Delta);
  Repeat Until KeyPressed;
  CloseGraph;
End.