Построение графика кардиоиды

uses crt,graph;
var x0,y0,x,y,a,x1,y1,dx,dy,cv:integer;
    t:real;
procedure Kard(cx,cy,cv:integer;u:real);
var dx,dy,x,y,r:integer;
    t:real;
begin
t:=0;{начальный угол рисования кардиоиды}
{координаты точек без учета поворота осей координат}
dx:=round(a*cos(t)*(1+cos(t)));
dy:=round(a*sin(t)*(1+cos(t))/2);
{с учетом поворота осей на угол u}
x:=cx+round(dx*cos(u)-dy*sin(u));
y:=cy-round(dx*sin(u)+dy*cos(u));
{становимся в первую точку}
moveto(x,y);
while t<=2*pi do{делаем полный оборот}
 begin
  {вычисляем координаты остальных точек}
  dx:=round(a*cos(t)*(1+cos(t)));
  dy:=round(a*sin(t)*(1+cos(t))/2);
  x:=cx+round(dx*cos(u)-dy*sin(u));
  y:=cy-round(dx*sin(u)+dy*cos(u));
  setcolor(cv);{выбираем цвет}
  lineto(x,y);{рисуем линию}
  t:=t+0.001;{наращиваем угол}
 end;
setfillstyle(3,cv);{устанавливаем стиль заполнения фигур
и выбираем точку в центре фигуры для начала заливки}
r:=a div 2;
floodfill(cx+round(r*cos(u)-r*sin(u)),cy-round(r*sin(u)+r*cos(u)),cv);
end;
begin
clrscr;
{назначем размер и цвет фигур, размер можно и меньше и больше,
но это нормальные}
repeat
write('Radius [50..120] a=');
readln(a);
until a in [50..120];
repeat
write('Cvet [1..15] cv=');
readln(cv);
until cv in [1..15];
x:=0;
{переход в графический режим}
initgraph(x,y,'');
{центр экрана}
x0:=getmaxX div 2;
y0:=getmaxY div 2;
{рисуем 4 кардиоиды с заданными параметрами}
Kard(x0+25,y0-20,cv,pi/3);
Kard(x0-25,y0-20,cv,5*pi/6);
Kard(x0-25,y0+20,cv,4*pi/3);
Kard(x0+25,y0+20,cv,11*pi/6);
readln
end.

uses crt,graph;
   var x0,y0,x,y,a,dx,dy,cv:integer;
       t:real;
 
 procedure mygraphinit;
 var Dr,Md,Err:integer;
 begin
  Dr:=detect;
  initgraph (Dr,Md,'D:\TP\BGI');
  Err:=graphresult;
   if err<>grok then
    writeln(Grapherrormsg(err))
 end;
 
 procedure Kard (cx,cy,cv:integer;u:real);
       var dx,dy,x,y,r:integer;
           t:real;
       begin
       t:=0;
       dx:=round(a*cos(t)*(1+cos(t)));
       dy:=round(a*sin(t)*(1+cos(t))/2);
       x:=cx+round(dx*cos(u)-dy*sin(u));
       y:=cy-round(dx*sin(u)+dy*cos(u));
 
       moveto(x,y);
       while t<=2*pi do
           begin
           dx:=round(a*cos(t)*(1+cos(t)));
           dy:=round(a*sin(t)*(1+cos(t))/2);
           x:=cx+round(dx*cos(u)-dy*sin(u));
           y:=cy-round(dx*sin(u)+dy*cos(u));
           setcolor(cv);
           lineto(x,y);
           t:=t+0.001;
           end;
           setfillstyle(3,cv);
           r:=a div 2;
           floodfill(cx+round(r*cos(u)-r*sin(u)),cy-round(r*sin(u)+r*cos(u)),cv);
       end;
 BEGIN
 clrscr;
 repeat
 write('radius[50..120] a=');
 readln(a);
 until a in [50..120];
 repeat
 write ('cvet [1..15] cv=');
 readln(cv);
 until cv in [1..15];
 
 mygraphinit;
 
 x0:=getmaxX div 2;
 y0:=getmaxY div 2;
 line(x0,0,x0,getmaxY);
 line(0,y0,getmaxX,y0);
 setcolor(8);
 settextstyle(1,0,2);
 outtextxy(1,1,'KARDIOIDA');
 outtextxy(320,0,'Y');
 outtextxy(600,240,'X');
 
 Kard(x0+100,y0-80,cv,pi/3);
 Kard(x0-100,y0-80,cv,5*pi/7.45);
 Kard(x0-100,y0+80,cv,4*pi/3);
 Kard(x0+100,y0+80,cv,11*pi/6.6);
 
 readln;
closegraph;
 
 END.