Spirala

program spirala;
uses crt,graph;
const
         sciezka='c:\progra~1\tp\bgi';
         c=0.125;
var
    r:real;
    xe,ye:integer;
    xr,yr:real;
    i:integer;
    d,m:integer;
procedure uklad;
var
    i:integer;
    s:string;
begin
    setcolor(white);
    line(0,0,getmaxx,0);
    line(0,0,0,getmaxy);
    settextjustify(centertext,toptext);
    for i:=0 to getmaxx div 100 do
    begin
         line(i*100,0,i*100,10);
         str(i*100,s);
         outtextxy(i*100,12,s);
         end;
         settextjustify(lefttext,centertext);
         for i:=0 to getmaxy div 100 do
         begin
         line(0,i*100,10,i*100);
         str(i*100,s);
         outtextxy(12,i*100,s);
         end;
         end;
         begin
         d:=detect;
         initgraph(d,m,sciezka);
         for i:=0 to 1440 do
         begin
              r:=c*i;
              xr:=r*sin(i*PI/180);
              yr:=r*cos(i*PI/180);
              xe:=round(xr+getmaxx div 2);
              ye:=round(-yr+getmaxy div 2);
              SETCOLOR(i div 360);
              if i=0 then
              moveto(xe,ye)
              else
              lineto(xe,ye)
               end;
               uklad;
               repeat until keypressed;
               closegraph;
end.