Question

Написать процедуру выводящую на экран матрицу (двумерный массив) на языке Pascal abc

Answer 1

Procedure PrintMatrix(matrix : array[,] of integer);
begin
  matrix.Println;
end;

Answer 2

Для вывода матрицы (двумерного массива) на экран на языке Pascal ABC, нужно использовать вложенные циклы для обхода всех элементов массива и вывода их на экран. Вот пример процедуры, которая выполняет это:

pascalCopy code
program OutputMatrix;

const
  Rows = 3; // Количество строк матрицы
  Cols = 4; // Количество столбцов матрицы

type
  Matrix = array[1..Rows, 1..Cols] of Integer;

// Процедура для вывода матрицы на экран
procedure PrintMatrix(const mat: Matrix);
var
  i, j: Integer;
begin
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
      Write(mat[i, j]:4); // Число 4 здесь определяет ширину поля вывода одного элемента матрицы
    Writeln;
  end;
end;

var
  myMatrix: Matrix;

begin
  // Пример заполнения матрицы значениями (это можно заменить на свои значения)
  myMatrix[1, 1] := 1;
  myMatrix[1, 2] := 2;
  myMatrix[1, 3] := 3;
  myMatrix[1, 4] := 4;
  myMatrix[2, 1] := 5;
  myMatrix[2, 2] := 6;
  myMatrix[2, 3] := 7;
  myMatrix[2, 4] := 8;
  myMatrix[3, 1] := 9;
  myMatrix[3, 2] := 10;
  myMatrix[3, 3] := 11;
  myMatrix[3, 4] := 12;

  // Вывод матрицы на экран
  PrintMatrix(myMatrix);
end.

В данном примере процедура PrintMatrix выводит на экран матрицу размером 3x4. Вы можете изменить значения констант Rows и Cols для создания матрицы с другими размерами. Также можно изменить значения элементов массива myMatrix в блоке begin перед выводом матрицы на экран, чтобы вывести свои данные.