Построить семейство разноцветных случайным образом вырезанных секторов окружностей - Free Pascal

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

Построить семейство разноцветных случайным образом вырезанных секторов окружностей

Решение задачи: «Построить семейство разноцветных случайным образом вырезанных секторов окружностей»

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

uses graph,wincrt;
var x,y,r,u1,u2,c,i:integer;
begin
initgraph(x,y,'');
randomize;
for i:=1 to 20 do
 begin
  r:=50+random(50);
  x:=r+random(getmaxX-2*r);
  y:=r+random(getmaxY-2*r);
  u1:=random(30);
  u2:=u1+random(330);
  c:=1+random(15);
  setcolor(c);
  setfillstyle(1,c);
  sector(x,y,u1,u2,r,r);
 end;
readkey
end.

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

Используется графический модуль graph и модуль wincrt для работы с графическим интерфейсом.
Инициализируется графический интерфейс с помощью функции initgraph(x,y,'').
Задаются начальные значения переменных: x,y,r,u1,u2,c,i.
С помощью цикла for происходит построение 20 разноцветных случайным образом вырезанных секторов окружностей.
Внутри цикла задаются случайные значения для радиуса r, координат x,y, углов u1,u2 и цвета c.
С помощью функции setcolor(c) устанавливается цвет для заливки сектора.
С помощью функции setfillstyle(1,c) устанавливается стиль заливки (в данном случае 1 - сплошная заливка) и цвет заливки c.
С помощью функции sector(x,y,u1,u2,r,r) строится сектор окружности с заданными параметрами.
По завершении цикла происходит ожидание нажатия клавиши с помощью функции readkey.
Код завершается.