Построить эпициклоиду — кривую, заданную параметрическим уравнением - Pascal ABC

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

Построить эпициклоиду - кривую, заданную параметрическим уравнением x=(a+b) cos(t) - a cos((a+b) t/a), y=(a+b) sin(t) - a sin((a+b) t/a), a>0, b>0, b/a - целое положительное число, t принадлежит интервалу [0,2 Пи ].

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

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

uses graphABC,crt;
var  a,b,c,x,y:integer;
     t,m:real;
begin
repeat
writeln('Введите 2 положительных числа a<b b кратно а');
readln(a,b);
until(a<b)and(b mod a=0);
clrscr;
hidecursor;
setwindowsize(500,500);
centerwindow;
c:=windowwidth div 2;
m:=c/(2*b);
t:=0;
while t<=2*pi do
 begin
  x:=c+round(m*((a+b)*cos(t)-a*cos((a+b)*t/a)));
  y:=c+round(m*((a+b)*sin(t)-a*sin((a+b)*t/a)));
  setpixel(x,y,clRed);
  t:=t+0.001;
 end;
end.

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

В первой строке кода используется библиотека graphABC и функция crt, которая позволяет создавать графики в программе.
Переменные a, b, c, x, y типа integer используются для хранения введенных пользователем чисел.
Переменная t типа real используется для хранения значения времени или времени суток.
Переменная m также типа real и вычисляется как c/(2*b), где c - ширина окна, b - высота окна.
Переменная m также используется в цикле while.
Цикл while выполняется от 0 до 2*pi, что соответствует полному обороту окружности.
Внутри цикла переменные x и y вычисляются как координаты точки на окружности.
Функция setpixel используется для установки цвета пикселя на экране.
Координаты x и y обновляются на каждой итерации цикла while.
Переменная t обновляется на каждой итерации цикла while.