Найти произведение матриц - QBasic

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

Даны матрицы целых чисел X(n, т) и Y(т, п). Получить их произведение. Вывести исходные и полученную матрицы. Значения буквенных переменных и элементов матрицы задавать с клавиатуры.

Решение задачи: «Найти произведение матриц»

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

CLS
n = 2
m = 3
r = 2
 
DIM X(1 TO n, 1 TO m) AS INTEGER
DIM Y(1 TO m, 1 TO r) AS INTEGER
DIM Z(1 TO n, 1 TO r) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO m
   PRINT "X("; i; ","; j; ")";
   INPUT X(i, j)
NEXT j, i
 
FOR i = 1 TO m
FOR j = 1 TO r
   PRINT "Y("; i; ","; j; ")";
   INPUT Y(i, j)
NEXT j, i
PRINT
 
FOR i = 1 TO n
FOR j = 1 TO m
   PRINT X(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO m
FOR j = 1 TO r
   PRINT Y(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO n
FOR j = 1 TO r
FOR k = 1 TO m
   Z(i, j) = Z(i, j) + X(i, k) * Y(k, j)
NEXT k, j, i
 
FOR i = 1 TO n
FOR j = 1 TO r
   PRINT Z(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
END

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

В этом коде выполняется следующие действия:

Задаются размеры матриц n, m и r (строки, столбцы и число столбцов результата соответственно).
Создаются матрицы X, Y и Z размером n на m, m на r и n на r соответственно.
Вводятся значения элементов матрицы X с помощью цикла FOR и функции INPUT.
Вводятся значения элементов матрицы Y с помощью цикла FOR и функции INPUT.
Выводятся значения элементов матрицы X с помощью цикла FOR.
Выводятся значения элементов матрицы Y с помощью цикла FOR.
Вычисляются значения элементов матрицы Z путем перемножения соответствующих элементов матриц X и Y и сложения результатов с помощью цикла FOR и операции *.
Выводятся значения элементов матрицы Z с помощью цикла FOR.
Код завершается с помощью команды END.