Нарисовать фигуры по заданным координатам центра, радиусу дуг и цвету - Pascal ABC (14572)

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

1.Создайте процедуру, рисующую дугу по заданным координатам центра, радиусу и значению второго угла (Первый угол равен нулю). Выведите ракушку: Скриншот во вложении 2. Создайте процедуру, рисующую символ инь-янь по заданным координатам, радиусу дуг и цвету. (скриншот во вложении);

Решение задачи: «Нарисовать фигуры по заданным координатам центра, радиусу дуг и цвету»

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

uses graphABC;
procedure duga(x,y,r,a:integer);
begin
setpencolor(clRed);
arc(x,y,r,0,a);
end;
var i,a,r,x,y:integer;
begin
setwindowsize(600,600);
centerwindow;
y:=windowheight div 2;
x:=3*windowwidth div 4;
r:=windowheight div 5;
a:=360;
for i:=1 to 11 do
 begin
  duga(x,y,r,a);
  x:=x-15;
  r:=r+15;
  a:=a-330 div 11;
 end;
end.

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

В первой строке используется библиотека graphABC, которая, вероятно, предоставляет функции для работы с графиками.
В процедуре duga используются следующие параметры: x, y, r, a - координаты центра, радиус дуги и угол поворота соответственно.
Переменные i, a, r, x, y инициализируются значениями, полученными от пользователя или заданными в коде.
Строка setwindowsize устанавливает размер окна приложения на 600x600 пикселей.
Строка centerwindow центрирует окно по горизонтали и вертикали.
Значение y равно половине высоты окна, а значение x равно трети ширины окна.
Значение r равно высоте окна, поделенной на 5.
Значение a равно 360 градусов.
В цикле for перебираются значения i от 1 до 11.
Внутри цикла вызывается процедура duga с параметрами x, y, r, a.
После вызова процедуры duga значение x сдвигается на 15 единиц влево, значение r увеличивается на 15 единиц, а значение a уменьшается на 330/11 градусов.
По завершении цикла окно приложения закрывается.