Question

Составить программу на Pascal. В двоичной матрице размером 10 х 10 найдите совпадающие строки

Answer 1

Ответ:

realx3*(far23)

glov3*1*2*3

realin(game)

open(guard)

Answer 2

Конечно, вот пример программы на языке Pascal, который ищет совпадающие строки в двоичной матрице размером 10х10:

pascalCopy code
program FindMatchingRows;
const
  N = 10; // Размер матрицы

type
  TMatrix = array [1..N, 1..N] of Integer;

var
  matrix: TMatrix;
  matchingRows: array [1..N] of Boolean;
  i, j, k: Integer;
  foundMatch: Boolean;

begin
  // Ввод двоичной матрицы
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      writeln('Введите элемент (', i, ', ', j, '): ');
      readln(matrix[i, j]);
    end;
  end;

  // Поиск совпадающих строк
  for i := 1 to N do
    matchingRows[i] := False;

  for i := 1 to N - 1 do
  begin
    if not matchingRows[i] then
    begin
      for j := i + 1 to N do
      begin
        foundMatch := True;
        for k := 1 to N do
        begin
          if matrix[i, k] <> matrix[j, k] then
          begin
            foundMatch := False;
            break;
          end;
        end;

        if foundMatch then
        begin
          matchingRows[i] := True;
          matchingRows[j] := True;
          break;
        end;
      end;
    end;
  end;

  // Вывод результатов
  writeln('Совпадающие строки в матрице:');
  for i := 1 to N do
  begin
    if matchingRows[i] then
    begin
      writeln('Строка ', i, ':');
      for j := 1 to N do
        write(matrix[i, j], ' ');
      writeln;
    end;
  end;

  readln;
end.

Программа запрашивает у пользователя значения элементов матрицы размером 10х10 и затем находит совпадающие строки. Результаты выводятся на экран.