АНИМАЦИЯ КАРДИОИДА !

[sef15]

народ помогите написать прогу которая рисует Анимацию кардиоиды ! http://ru.wikipedia.org/wiki/%D0%9A%...B8%D0%B4%D0%B0
(я в паскале вообще не бум бум )

[ROMA2PVT]

Program Cardioid; 
Uses 
   CRT, Graph; 
Const
     n=144; 
     r=200; 
     t=2*pi/n; 
Var 
   x,y: array[1..2*n] of integer; 
   i,d,m:integer; 
Begin 
    d:=detect; m:=detect; 
    InitGraph(d,m,''); 
    SetColor(LightRed); 
    Circle(340,240,r); 
   for i:=1 to n do 
     begin 
        x[i]:=340+round(r*cos(i*t)); 
        y[i]:=240+round(r*sin(i*t)); 
        x[i+n]:=x[i]; 
        y[i+n]:=y[i] 
     end; 
   SetColor(green); 
   for i:=1 to n do 
     line(x[i],y[i],x[i*2],y[i*2]); 
     repeat 
     until KeyPressed; 
     CloseGraph 
End.

[sef15]

спасибо большое ! а что бы картинка двигалась как http://ru.wikipedia.org/wiki/%D0%9A%...B8%D0%B4%D0%B0 тут возможно сделать ?

[eoln]

Примерно так.

uses
   crt, graph;
const
  R = 50;
  Cx = 300;
  Cy = 200;
var
  x0, y0, x1, y1, x, y, gd, gm: integer;
  a: real;
Begin
  gd:=detect;
  initgraph(gd,gm,'');
  a := -pi;
  repeat
    setcolor(black);
    circle(Cx + 2*x, Cy - 2*y, R);//затираем
    line(Cx + 2*x, Cy - 2*y, Cx + x0 + R, Cy - y0);//затираем
    setcolor(white);
    a := a - 0.1;
    circle(Cx, Cy, R);//центральный круг
    x1 := x0; x0 := - round(2 * R * cos(a) * (1 + cos(a)));//координаты кардиоиды
    y1 := y0; y0 := round(2 * R * sin(a) * (1 + cos(a)));
    x :=  - round(R * cos(a));//координаты круга
    y := round(R * sin(a));
    circle(Cx + 2*x, Cy - 2*y, R);//крутящийся круг
    line(Cx + 2*x, Cy - 2*y, Cx + x0 + R, Cy - y0);//радиус
    setcolor(green);
    line(Cx + x1 + R, Cy - y1, Cx + x0 + R, Cy - y0);//ломанная для кардиоиды
    delay(10000)
  until keypressed;
  closegraph
End.

Координаты отрицательные, т.к. y на экране растет вниз. Так что просто вывернул всё симметрично точки (Cx, Cy).