Хм, немножко разобрался с графикой, но всё-таки не до конца. Нарисовать фигуру (как я понял, это кардиоида) я смог, а вот сделать так, чтобы она вертелась и перемещалась что-то никак не могу. Вот мой текст программы, рисующий, кардиоиду:

Цитата
Program
Cardioida;
Uses
Crt, Graph;
Const
r=50;
Var
i:integer;
a,L:integer;
t:real;
Procedure Graphinterface;
Var
driver, mode:Integer;
Begin
driver:=detect;
Initgraph(driver,mode,'D:\tp7\BGI');
end;

Function x(t:real):real;
begin
x:=(L*cos(t)+a*cos(t)*cos(t));
end;

Function y(t:real):real;
begin
y:=(L*sin(t)+a*sin(t)*cos(t));
end;

Begin
t:=0; a:=2; L:=2;
Graphinterface;
repeat
putpixel(round(r*x(t)+31),round(r*y(t)+240),4);
t:=t+0.001;
until t>2*pi;
Readln;
CloseGraph;
End.

Долго пытался что-то изобразить, но так и не смог. Буду рад любым подсказкам в решении данной проблемы blush.gif