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