Выполнить действия над матрицами - Turbo Pascal

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

(Фотография текста заменена текстом)

Решение задачи: «Выполнить действия над матрицами»

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

const
  m=3; n=2; p=4; q=3; W=8;
  a: array [1..m,1..p] of Integer = ((1,-3,4,5),(0,1,-2,3),(1,1,1,2));
  b: array [1..p,1..n] of Integer = ((7,2),(0,1),(5,3),(1,4));
  c: array [1..m,1..q] of Integer = ((1,1,1),(3,-2,2),(5,-4,0));
  d: array [1..q,1..n] of Integer = ((1,2),(1,0),(2,3));
var i, j, k, t: Integer;
begin
  for i:=1 to m do begin
    for j:=1 to n do begin
      t:=0;
      for k:=1 to p do t:=t+a[i,k]*b[k,j];
      for k:=1 to q do t:=t+c[i,k]*d[k,j];
      Write(t:W);
    end; WriteLn;
  end;
end.

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

В данном коде происходит выполнение операций над матрицами.

Объявляются константы, которые задают размеры матриц и их элементы.
Объявляются переменные i, j, k и t, которые будут использоваться для выполнения операций.
Задаются начальные значения для переменной t.
Запускается цикл for i:=1 до m do, внутри которого запускается еще один цикл for j:=1 до n do. Внутри второго цикла выполняется следующая операция:
- Инициализируется переменная t значением 0.
- Запускается цикл for k:=1 до p do, внутри которого выполняется операция:
  - t=t+a[i,k]*b[k,j];
- Запускается цикл for k:=1 до q do, внутри которого выполняется операция:
  - t=t+c[i,k]*d[k,j];
- Значение переменной t выводится на экран.
По завершении внутреннего цикла for j:=1 до n do, выводится значение переменной t.
Конец программы.