Ввести номер элемента. Получить описание элемента (data — read) - QBasic

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

Имеем 7 элементов. Вводим номер элемента. Должны получить его описание(DATA - READ) Использовать оператор IF

Решение задачи: «Ввести номер элемента. Получить описание элемента (data — read)»

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

DATA 222,167,234,345,90,78,2
DATA "London","Moscow","Berlin","Warsaw","Minsk","Sverdlovsk","Riga"
 
DIM a(1 TO 7)
DIM s$(1 TO 7)
 
FOR i = 1 TO 7
  READ a(i)
NEXT i
 
FOR i = 1 TO 7
  READ x$(i)
NEXT i
 
PRINT "Number of train?"
INPUT n
 
FOR i = 1 TO 7
  IF n = a(i) THEN
    PRINT "Destination: "; x$(i)
  END IF
NEXT i

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

Вот что делает этот код:

Заголовок DATA используется для определения двух двухмерных массивов: массива чисел a(1 TO 7) и массива строк x$(1 TO 7).
Два цикла FOR используются для чтения значений из массива a(1 TO 7) и x$(1 TO 7).
После этого пользователю предлагается ввести номер поезда с помощью команды INPUT n.
Затем, с помощью условного оператора IF, проверяется, соответствует ли введенный номер поезда одному из номеров в массиве a(1 TO 7).
Если введенный номер совпадает с номером в массиве, то выводится сообщение с названием пункта назначения из массива x$(1 TO 7).
Если введенный номер не совпадает ни с одним из номеров в массиве, то ничего не выводится.