Построить кривую по заданному параметрическому представлению. Кардиоида - Pascal ABC

Формулировка задачи:

Ребят. помогите плиз, завтра сдаваться=(((

Построить кривую по заданному параметрическому представлению. Кардиоида:

Решение задачи: «Построить кривую по заданному параметрическому представлению. Кардиоида»

Листинг программы

uses graphABC;
var x,y,x0,y0,a:integer;
t:real;
begin
x0:=220;
y0:=220;
line(0,220,640,220);
line(220,0,220,480);
t:=0;
a:=50;
while t<=6.28 do
begin
x:=x0+round(2*a*cos(t)*(1+cos(t)));
y:=y0+round(2*a*sin(t)*(1+cos(t)));
putpixel(x,y,25);
t:=t+0.001;
sleep(1);
end;
end.

Объяснение кода листинга программы

Импортируется модуль graphABC.
Задаются начальные значения переменных: x, y, x0, y0, a.
Задается значение переменной t.
Задается значение переменной a.
Строятся две линии для координат начала кардиоиды.
Запускается цикл while, который выполняется, пока значение переменной t меньше или равно 6.28 (полный оборот).
Внутри цикла вычисляются значения переменных x и y по формуле кардиоиды.
Вызывается функция putpixel для отображения точки с координатами x, y на графике.
Значение переменной t увеличивается на 0.001.
Выполняется задержка в 1 секунду для замедления анимации.
Цикл while повторяется до тех пор, пока не будут выполнены все условия.
Код завершается.