Построить окружность синего цвета и заполнить ее косыми линиями - Turbo Pascal

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

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

Построить окружность синего цвета и заполнить ее косыми линиями // нормальной толщины.

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

textual
Листинг программы
uses graph;
var
  gd,gm,x,y,r:integer;
begin
randomize;
gd:=detect;
initgraph(gd,gm,'');
setbkcolor(15);
r:=20+random(GetMaxY div 2-40);
x:=r+random(GetMaxX-2*r);
y:=r+random(GetMaxY-2*r);
setcolor(Blue);
setfillstyle(3,Blue);
fillellipse(x,y,r,r);
readln
end.

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

  1. В первой строке используется библиотека graph, которая предоставляет функции для работы с графиками.
  2. Переменные gd и gm инициализируются значением detect, которое является идентификатором дисплея.
  3. Функция initgraph() принимает два аргумента: идентификатор дисплея и имя файла графического устройства. В данном случае имя файла пустое, поэтому используется стандартное графическое устройство.
  4. Переменная r инициализируется случайным числом от 0 до 20, деленным на GetMaxY div 2-40. Это значение будет использоваться для определения радиуса окружности.
  5. Переменные x и y инициализируются случайными числами, которые находятся внутри окружности заданного радиуса.
  6. Функция setbkcolor() устанавливает цвет фона на синий (15).
  7. Функция setcolor() устанавливает цвет текста на синий.
  8. Функция setfillstyle() устанавливает стиль заполнения фигуры (3 - косые линии).
  9. Функция fillellipse() рисует окружность заданного размера и цвета.
  10. В конце программы выводится сообщение с помощью функции readln().

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

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