Построить семейство кривых y = f(x) для указанных значений параметра - Turbo Pascal

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

Ребят, кто умеет строить графики, это последняя лаба, нужно завтра сдать, помогите, кто сможет. Задание такое: Построить семейство кривых y = f(x) для указанных значений параметра λ и оси координат с указанием минимального и максимального значений функции по каждой из осей. x=5*cosβ y=λ*sinβ 0 <= β <= 2∏(Пи) ; λ= 2.5 , 5, 10 премного благодарен!

Решение задачи: «Построить семейство кривых y = f(x) для указанных значений параметра»

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

uses graph;
function fy(a,b:real):real;
begin
fy:=a*sin(b)
end;
var xc,yc,x,y1,y2,y3:integer;
    b,m:real;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
m:=20;
b:=0;
while b<=2*pi do
 begin
  x:=xc+round(5*cos(b)*m);
  y1:=yc-round(fy(2.5,b)*m);
  putpixel(x,y1,12);
  y2:=yc-round(fy(5,b)*m);
  putpixel(x,y2,9);
  y3:=yc-round(fy(10,b)*m);
  putpixel(x,y3,10);
  b:=b+0.001
 end;
readln
end.

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

Подключается библиотека graph.
Определяется функция fy, которая принимает два аргумента типа real и возвращает real.
Определяются переменные xc, yc, x, y1, y2, y3 типа integer, а также переменные b и m типа real.
Вызывается функция initgraph, которая инициализирует график с указанными параметрами.
Вычисляются значения xc и yc, которые определяют координаты верхнего левого угла области графика.
Значение переменной m устанавливается равным 20.
Значение переменной b устанавливается равным 0.
Входим в цикл while, который будет выполняться, пока значение переменной b не станет больше или равно 2pi (производной от 2pi).
Внутри цикла вычисляется значение переменной x, которое определяется как xc + round(5cos(b)m).
Вычисляется значение переменной y1, которое определяется как yc - round(fy(2.5,b)*m).
Выводится пиксель на графике с координатами x, y1, используя функцию putpixel с аргументами x, y1 и 12 (цвет пикселя).
Вычисляется значение переменной y2, которое определяется как yc - round(fy(5,b)*m).
Выводится пиксель на графике с координатами x, y2, используя функцию putpixel с аргументами x, y2 и 9 (цвет пикселя).
Вычисляется значение переменной y3, которое определяется как yc - round(fy(10,b)*m).
Выводится пиксель на графике с координатами x, y3, используя функцию putpixel с аргументами x, y3 и 10 (цвет пикселя).
Значение переменной b увеличивается на 0.001.
После выхода из цикла while выводится команда readln, которая завершает работу программы.