Вывести список уроков по дням в соответствии с расписанием - QBasic

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

Дано расписание занятий в школе на неделю (6 дней, 6 уроков в день, N предметов). Вывести список предметов с указанием дней недели и числа уроков по дням в соответствии с расписанием. Вывести также названия предметов, количество уроков, по которым больше заданного числа К. Выводимые данные отсортировать по алфавиту названий предметов. Исходная информация вводится с клавиатуры.

Решение задачи: «Вывести список уроков по дням в соответствии с расписанием»

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

CLS
DIM D(1 TO 6) AS STRING
DIM U(1 TO 6, 1 TO 6) AS STRING
 
DATA "математика","биология","история","физика","химия","информатика"
DATA "геометрия","русский язык","английский язык","математика","физика","ОБЖ"
DATA "история","физическая культура","математика","биология","литература","химия"
DATA "обществознание","английский язык","ОБЖ","физика","русский язык","история"
DATA "физика","литература","русский язык","геометрия","биология","информатика"
DATA "химия","информатика","математика","физическая культура","ОБЖ","английский язык"
 
D(1) = "ПОНЕДЕЛЬНИК"
D(2) = "ВТОРНИК"
D(3) = "СРЕДА"
D(4) = "ЧЕТВЕРГ"
D(5) = "ПЯТНИЦА"
D(6) = "СУББОТА"
 
FOR i = 1 TO 6
FOR j = 1 TO 6
   READ U(i, j)
NEXT j, i
 
FOR i = 1 TO 6
FOR j = 1 TO 5
FOR k = j + 1 TO 6
   IF U(i, j) > U(i, k) THEN SWAP U(i, j), U(i, k)
NEXT k, j, i
 
FOR i = 1 TO 3
   PRINT D(i)
   FOR j = 1 TO 6
      PRINT j; ") "; U(i, j)
NEXT j, i
 
FOR i = 4 TO 6
   LOCATE 7 * i - 27, 30
   PRINT D(i)
   FOR j = 1 TO 6
      LOCATE 7 * i - 27 + j, 30
      PRINT j; ") "; U(i, j)
NEXT j, i
 
END

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

В этом коде на языке QBasic:

Создаются две матрицы (D и U) размером 6x6, а также шесть строк с названиями предметов.
В матрицу U считываются данные из стандартного ввода (по одному предмету в строку).
Код сортирует матрицу U по возрастанию в каждой строке.
Код выводит на экран список предметов по дням недели (по три в строке).
Затем код выводит на экран список предметов, начиная с четверга и до субботы, по одному предмету в строку.