Нарисовать закрашенный круг - 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.

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

  1. В начале кода подключаются необходимые библиотеки graph и crt.
  2. Переменные i, g, x, y, r и d объявляются целочисленными типами.
  3. Строка clrscr очищает экран.
  4. Функция initgraph инициализирует графическую систему с параметрами g, d и пустой строкой.
  5. Переменные x и y инициализируются значениями 20.
  6. Переменная r инициализируется значением 40.
  7. Функция setcolor устанавливает цвет фона на 15 (предположительно черный).
  8. Функция circle рисует закрашенный круг с центром в точке (200,200) и радиусом 40.
  9. Функция floodfill заполняет область под кругом цветом фона (предположительно черным).
  10. Строка readln ожидает ввода пользователя.
  11. Функция end рисует горизонтальную линию в нижней части экрана.
  12. Программа завершается.

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

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