Вычислить сумму двух матриц - Turbo Pascal

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

2) Написать программу на языке Pascal, которая вычисляет сумму двух матриц размерностью 4 х 4, содержащих случайные числа в диапазоне от 1 до 10.

Решение задачи: «Вычислить сумму двух матриц»

Листинг программы

const m=4; n=m; W=4;
type  TMatrix = array [1..m,1..n] of Integer;
procedure mGen(var a: TMatrix; b, c: Integer);
var i, j: Integer;
begin
  for i:=1 to m do for j:=1 to n do a[i,j]:=b+Random(c-b+1);
end;
procedure mWrite(const a: TMatrix; const s: String);
var i, j: Integer;
begin
  WriteLn(s);
  for i:=1 to m do begin
    for j:=1 to n do Write(' ',a[i,j]:W-1); WriteLn;
  end;
end;
procedure mSum(const a, b: TMatrix; var c: TMatrix);
var i, j: Integer;
begin
  for i:=1 to m do for j:=1 to n do c[i,j]:=a[i,j]+b[i,j];
end;
var a, b, c: TMatrix;
begin
  mGen(a,1,10); mGen(b,1,10); mSum(a,b,c);
  mWrite(a,'A ='); mWrite(b,'B ='); mWrite(c,'C =');
end.

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

В начале определяются константы m, n и W, которые задают размеры матрицы и количество знаков после запятой.
Затем определяется тип данных TMatrix, который представляет собой массив целых чисел размером m x n.
Далее определены три процедуры: mGen, mWrite и mSum.
Процедука mGen генерирует случайные значения для каждого элемента матрицы a.
Процедука mWrite выводит на экран заданную строку и затем выводит каждый элемент матрицы a, разделяя их пробелами.
Процедука mSum суммирует элементы матриц a и b и записывает результат в матрицу c.
В конце определены три переменные a, b и c типа TMatrix, которые будут использоваться в процедурах mGen, mWrite и mSum.
Затем происходит инициализация переменных i и j целыми числами.
Основной блок программы начинается с вызова процедур mGen, mWrite и mSum с соответствующими аргументами.
Затем вызывается процедура mWrite с аргументами a, 'A =' и b, 'B =', чтобы вывести на экран матрицу a и матрицу b.
Наконец, вызывается процедура mWrite с аргументами c, 'C =' и заканчивается программа.