Нарисовать закрашенный круг - Turbo Pascal (33596)
Формулировка задачи:
Как нарисовать закрашенный круг? Получается сделать белый, а если вписываю в процедуру floodfill другой цвет, то весь экран становится белым.
Решение задачи: «Нарисовать закрашенный круг»
textual
Листинг программы
uses graph,crt; var i,g,x,y,r,d:integer; begin clrscr; g:=0; initgraph(g,d,''); x:=20; y:=200; r:=40; setcolor(15); circle(200,200,40); floodfill(200,200,15); readln; end.
Объяснение кода листинга программы
- В начале кода подключаются необходимые библиотеки graph и crt.
- Переменные i, g, x, y, r и d объявляются целочисленными типами.
- Строка clrscr очищает экран.
- Функция initgraph инициализирует графическую систему с параметрами g, d и пустой строкой.
- Переменные x и y инициализируются значениями 20.
- Переменная r инициализируется значением 40.
- Функция setcolor устанавливает цвет фона на 15 (предположительно черный).
- Функция circle рисует закрашенный круг с центром в точке (200,200) и радиусом 40.
- Функция floodfill заполняет область под кругом цветом фона (предположительно черным).
- Строка readln ожидает ввода пользователя.
- Функция end рисует горизонтальную линию в нижней части экрана.
- Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д