Считывание матрицы из файла - 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 — эта строка завершает внешний цикл и переходит к следующей итерации внешнего цикла.