График в полярных координатах

{$R-}{на всякий случай, если не отключен выход за границы интервалов}
uses crt,graph;
var x0,y0,h,d,gd,gm,i,x1,y1,fn,fk:integer;
    r,a,l,f,x,xr,yr:real;
    s:string;
begin
clrscr;
a:=2;{коэффициенты a,l можно менять}
l:=3;
fn:=0;{начальный и конечный угол, можно конец=180}
fk:=360;
gd:=0;{запуск графического режима}
initgraph(gd,gm,'');
Setbkcolor(1);{фон}
x0:=getmaxX div 2;{центр экрана}
y0:=getmaxY div 2;
{КООРДИНАТНАЯ  СЕТКА}
h:=(round(l)+1);
d:=round((y0-20)/h);{шаг по оси радиуса в пикселях}
for i:=1 to h do
 begin
  {рисуем окружности}
  circle(x0,y0,i*d);
  {пишем шкалу}
  str(i,s);
  outtextXY(x0+i*d+3,y0+10,s);
  outtextXY(x0-i*d+3,y0+10,s);
  outtextXY(x0+5,y0+i*d-15,s);
  outtextXY(x0+5,y0-i*d+5,s);
 end;
f:=30;{шаг по кругу=30 град}
for i:=1 to 12 do{делим на 12 частей}
 begin
  {рисуем радиусы пунктиром}
  Setlinestyle(1,0,1);
  x1:=x0+round(y0*cos(i*f*pi/180));
  y1:=y0-round(y0*sin(i*f*pi/180));
  line(x0,y0,x1,y1);
  {пишем подписи}
  str(i*30,s);
  if y1>=y0 then outtextXY(x1+10,y1-10,s)
  else outtextXY(x1,y1+10,s)
 end;
outtextXY(x0+y0-8,y0-10,'0,');
{рисуем осевые линии сплошной линией}
Setlinestyle(0,0,1);
line(10,y0,getmaxX-10,y0);
line(x0,0,x0,getmaxY);
outtextXY(x0+5,y0+10,'0');
outtextXY(getmaxX-15,y0+10,'L');
{ГРАФИК}
x:=fn;
while x<=fk do
 begin
  if cos(x)<>0 then
   begin
    r:=a*cos(x)+l*sin(x);
    xr:=r*cos(x);
    yr:=r*sin(x);
    x1:=x0+round((y0-20)*xr/h-a*d);
    y1:=y0-round((y0-20)*yr/h);
    putpixel(x1,y1,14);
   end;
  x:=x+0.01;
 end;
readln;
closegraph
end.