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

Узнай цену своей работы

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

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

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

textual
Листинг программы
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.

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

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

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы