Цвет прямоугольников - Turbo Pascal
Формулировка задачи:
Нужно вывести на экран 6 прямоугольников как на картинке но у меня цвет прямоугольников не получается сделать черным как это сделать?
Решение задачи: «Цвет прямоугольников»
textual
Листинг программы
Uses Graph,Dos,Crt; const pat = 'C:\BP\BGI'; var Gd, Gm, i, x1, x2, n: integer; begin n := 6; Gd := VGA;Gm := VGAHi; InitGraph(Gd, Gm, pat ); SetBkColor(White); ClearDevice; SetPalette(Black,0); SetFillStyle(SolidFill,Black); Setcolor(black); x1 := 10; x2 := 40; for i := 1 to n do begin x1 := x1 + 60; x2 := x2 + 60; Bar(x1, 10, x2, 120); end; readln; CloseGraph; end.
Объяснение кода листинга программы
- Код использует библиотеки Graph, Dos и Crt.
- Константа
pat
указывает путь к файлу BGI, который, вероятно, содержит графические данные. - Переменные
Gd
иGm
представляют собой устройства графического вывода, определенные в VGA и VGAHi соответственно. - Функция InitGraph инициализирует графическое устройство, используя указанный путь к файлу BGI.
- Установка цвета фона (SetBkColor) устанавливает цвет фона на белый.
- Очистка устройства (ClearDevice) очищает текущее устройство перед отрисовкой.
- Установка палитры (SetPalette) устанавливает палитру цветов на черный.
- Установка стиля заполнения (SetFillStyle) устанавливает стиль заполнения на сплошной.
- Установка цвета (Setcolor) устанавливает цвет текста на черный.
- Переменные
x1
,x2
иi
представляют собой координаты и счетчик для отрисовки прямоугольников. - Цикл for выполняет отрисовку прямоугольников с координатами
x1
,x2
и увеличивает счетчикi
на 1 для каждой отрисовки. - Координаты
x1
иx2
увеличиваются на 60 для каждой итерации цикла. - Функция Bar рисует прямоугольник с заданными координатами верхнего и нижнего краев и высотой 120.
- Вызов функции readln ожидает ввода пользователя.
- Закрытие графического устройства (CloseGraph) завершает работу с графическим устройством.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д