Выделение областей другим цветом в матрице - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите напишите код Дана матрица: 00000 00000 00000 00000 00000 Нужно чтобы выделил другим цветом области где стоит 1 00111 00110 00100 01100 11100

Решение задачи: «Выделение областей другим цветом в матрице»

textual
Листинг программы
uses
  crt;
const
  n = 10;
  m = 8;
 
var
  i, j: integer;  
  a: array [1..n, 1..m] of integer;
 
begin
  randomize;  
  textcolor(white);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(2);
      if a[i, j] = 1 then 
        textcolor(Red)
      else 
        textcolor(White);
      write(a[i, j], ' ');
    end;
    writeln;
  end; 
end.

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

  1. В начале кода используются необходимые библиотеки и константы.
  2. Переменная n инициализируется значением 10, а переменная m - значением 8. Эти значения представляют размеры матрицы, которую мы будем заполнять.
  3. Переменная a инициализируется как массив целых чисел размером от 1 до n на 1 до m. Это будет наша матрица.
  4. Следующий блок кода использует два вложенных цикла для заполнения матрицы случайными значениями. Внешний цикл проходит по строкам матрицы, а внутренний - по столбцам.
  5. В каждой итерации внутреннего цикла генерируется случайное число от 0 до 1. Если это число равно 1, то цвет ячейки матрицы будет красным, иначе - белым.
  6. После завершения внутреннего цикла выводится значение ячейки матрицы с помощью функции write. Значение a[i, j] выводится через пробел.
  7. После завершения внешнего цикла выводится символ новой строки с помощью функции writeln.
  8. Код завершается без использования функций обработки ошибок или завершения программы.

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


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

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

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