Цвет прямоугольников - 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.

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

  1. Код использует библиотеки Graph, Dos и Crt.
  2. Константа pat указывает путь к файлу BGI, который, вероятно, содержит графические данные.
  3. Переменные Gd и Gm представляют собой устройства графического вывода, определенные в VGA и VGAHi соответственно.
  4. Функция InitGraph инициализирует графическое устройство, используя указанный путь к файлу BGI.
  5. Установка цвета фона (SetBkColor) устанавливает цвет фона на белый.
  6. Очистка устройства (ClearDevice) очищает текущее устройство перед отрисовкой.
  7. Установка палитры (SetPalette) устанавливает палитру цветов на черный.
  8. Установка стиля заполнения (SetFillStyle) устанавливает стиль заполнения на сплошной.
  9. Установка цвета (Setcolor) устанавливает цвет текста на черный.
  10. Переменные x1, x2 и i представляют собой координаты и счетчик для отрисовки прямоугольников.
  11. Цикл for выполняет отрисовку прямоугольников с координатами x1, x2 и увеличивает счетчик i на 1 для каждой отрисовки.
  12. Координаты x1 и x2 увеличиваются на 60 для каждой итерации цикла.
  13. Функция Bar рисует прямоугольник с заданными координатами верхнего и нижнего краев и высотой 120.
  14. Вызов функции readln ожидает ввода пользователя.
  15. Закрытие графического устройства (CloseGraph) завершает работу с графическим устройством.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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