Построить кривые по заданному параметрическому представлению - Pascal ABC (244120)

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

Построить кривые по заданному параметрическому представлению Кардиоида x = a cos t(1+cost), y = a sin t(1+ cost), a>0, t ∈ [0, 2π).

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

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

uses graphABC,crt;//если АВС.net уберите crt
var a,xc,yc:integer;
    x,y,t:real;
begin
repeat
write('Введите параметр а от 100 до 200 a=');
readln(a);
until a in [50..150];
setwindowsize(500,500);
centerwindow;
clearwindow;
xc:=windowwidth div 3;
yc:=windowheight div 2;
t:=0;
while t<=2*pi do
 begin
  x:=a*cos(t)*(1+cos(t));
  y:=a*sin(t)*(1+cos(t));
  setpixel(xc+round(x),yc-round(y),clRed);
  t:=t+0.001;
 end;
end.

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

uses graphABC,crt;
- Импортирует модуль graphABC для работы с графикой и модуль crt для работы с консолью
var a,xc,yc:integer;
- Объявляет переменные a, xc и yc типа integer (целое число)
var x,y,t:real;
- Объявляет переменные x, y и t типа real (число с плавающей точкой)
repeat
- Начинает цикл, который будет выполняться до тех пор, пока условие не будет выполнено
write('Введите параметр а от 100 до 200 a=');
- Запрашивает у пользователя ввод значения переменной a
readln(a);
- Считывает введенное значение и присваивает его переменной a
until a in [50..150];
- Цикл будет выполняться до тех пор, пока значение переменной a не будет в диапазоне от 50 до 150
setwindowsize(500,500);
- Устанавливает размер окна графического интерфейса 500 на 500 пикселей
centerwindow;
- Центрирует окно графического интерфейса
clearwindow;
- Очищает окно графического интерфейса
xc:=windowwidth div 3;
- Присваивает переменной xc значение, равное центру окна, деленному на 3
yc:=windowheight div 2;
- Присваивает переменной yc значение, равное половине высоты окна
t:=0;
- Присваивает переменной t значение 0
*while t<=2pi do**
- Начинает цикл, который будет выполняться до тех пор, пока значение переменной t не превысит 2*pi
x:=acos(t)(1+cos(t));
- Вычисляет значение переменной x по заданному параметрическому представлению
y:=asin(t)(1+cos(t));
- Вычисляет значение переменной y по заданному параметрическому представлению
setpixel(xc+round(x),yc-round(y),clRed);
- Устанавливает цвет пикселя в красный и смещает его относительно центра окна
t:=t+0.001;
- Увеличивает значение переменной t на 0.001
end;
- Конец цикла
end.
- Конец программы