Модули и графика

uses graphABC;
function radius(f:real):real;
begin
radius:=exp(cos(f))+2*cos(4*f)+power(sin(f/12),5/7);
end;
var c,d,i,x1,y1,fn,fk:integer;
    r,f,m,x,xr,yr:real;
begin
setwindowsize(600,600);
centerwindow;
c:=300; //координата центра окна
//КООРДИНАТНАЯ  СЕТКА
d:=round((c-40)/20);//шаг по оси радиуса в пикселях
setpencolor(clBlue);
setbrushstyle(bsClear);
for i:=1 to 10 do
 begin
  //рисуем окружности
  circle(c,c,2*i*d);
  //пишем шкалу
  textout(c-2*i*d+5,c+10,floattostr(2*i/10));
 end;
f:=30;//шаг по кругу=30 град
for i:=1 to 12 do//делим на 12 частей
 begin
  //рисуем радиусы пунктиром
  Setpenstyle(psDash);
  x1:=c+round((c-40)*cos(i*f*pi/180));
  y1:=c-round((c-40)*sin(i*f*pi/180));
  line(c,c,x1,y1);
  //пишем подписи
  if (x1>=c)and(y1<c) then textout(x1+10,y1-15,inttostr(i*30))
  else if (x1>=c)and(y1>=c) then textout(x1+10,y1+10,inttostr(i*30))
  else if (x1<c)and(y1<c) then textout(x1-40,y1-15,inttostr(i*30))
  else if(x1<c)and(y1>=c)then textout(x1-40,y1+10,inttostr(i*30))
 end;
//рисуем осевые линии сплошной линией
Setpenstyle(psSolid);
line(10,c,windowwidth-10,c);
line(c,0,c,windowheight);
textout(c+5,c+10,'0');
textout(25,c+10,'R');
//ГРАФИК
f:=0;//начальный угол
m:=20*d/radius(2*pi);
setpencolor(clRed);
setpenwidth(2);
while f<=2*pi do//полный оборот
 begin
    r:=radius(f);//уравнение в полярных координатах
    xr:=r*cos(f);//приведение к Декартовым
    yr:=r*sin(f);
    x1:=c+round(m*xr);//приведение к экранным
    y1:=c-round(m*yr);
    if f=0 then moveto(x1,y1)
    else lineto(x1,y1);
    f:=f+0.01;
 end;
end.