Считывание матрицы из файла - QBasic

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

В файл записана матрица, которая указана в программе за комментариями (REM). Числа разделены ЗАПЯТЫМИ. Эта программа считывает из файла матрицу и выводит ее на экран. Ничего сложного. Не так ли?

CLS
REM  111, 222, 333
REM  444, 555, 666
REM  777, 888, 999
DIM A(3, 3)
 
OPEN "17.txt" FOR INPUT AS #1
 
FOR i = 1 TO 3
FOR j = 1 TO 3
   INPUT #1, s$
   A(i, j) = VAL(s$)
   PRINT A(i, j);
NEXT j: PRINT
NEXT i
END

Решение задачи: «Считывание матрицы из файла»

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

DIM A(3, 3)
 
OPEN "17.txt" FOR INPUT AS #1
 
FOR i = 1 TO 3
FOR j = 1 TO 3
   INPUT #1, A(i, j)
   PRINT A(i, j),
NEXT j: PRINT
NEXT i

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

DIM A(3, 3) — в этой строке создается матрица размером 3 на 3 с помощью оператора DIM (Define Input/Output Memory). Здесь A — это имя матрицы, а числа в скобках (3, 3) указывают на размер матрицы.
OPEN 17.txt FOR INPUT AS #1 — эта строка открывает файл 17.txt для чтения с помощью оператора OPEN. Рекурсия FOR позволяет нам обрабатывать каждую ячейку матрицы.
FOR i = 1 TO 3 — это цикл, который выполняет указанный блок кода три раза, где i изменяется от 1 до 3.
FOR j = 1 TO 3 — это вложенный цикл в предыдущем цикле, который также выполняет указанный блок кода три раза, где j изменяется от 1 до 3.
INPUT #1, A(i, j) — эта строка считывает данные из файла и сохраняет их в ячейке матрицы A(i, j). Значение ячейки A(i, j) заменяется значением, считанным из файла.
PRINT A(i, j), — эта строка выводит значение ячейки A(i, j) в консоль.
NEXT j: PRINT — эта строка завершает вложенный цикл и переходит к следующему вложенному циклу.
NEXT i — эта строка завершает внешний цикл и переходит к следующей итерации внешнего цикла.