Определить сумму элементов матрицы, расположенных на главной диагонали - QBasic

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

Вложение 591050

Решение задачи: «Определить сумму элементов матрицы, расположенных на главной диагонали»

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

CLS
DIM a(1 TO 8, 1 TO 8) AS INTEGER
 
FOR i = 1 TO 8
   FOR j = 1 TO 8
      a(i, j) = 8 * (i - 1) + j
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
 
PRINT
100 :
INPUT "NOMER KLETKI ="; n
IF n < 1 OR n > 64 THEN GOTO 100
 
SELECT CASE n
   CASE 1: PRINT 2; 9
   CASE 8: PRINT 7; 16
   CASE 57: PRINT 49; 58
   CASE 64: PRINT 56; 63
   CASE IS < 8: PRINT n - 1; n + 1; n + 8
   CASE IS > 57: PRINT n - 1; n + 1; n - 8
   CASE n MOD 8 = 1: PRINT n + 1; n - 8; n + 8
   CASE n MOD 8 = 7: PRINT n - 1; n - 8; n + 8
   CASE ELSE
      PRINT n - 1; n + 1; n - 8; n + 8
END SELECT
 
END

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

В этом коде определен массив a размером 8x8, заполненный значениями, равными сумме индексов (i-1) и j. Затем эти значения выводятся на экран. После этого пользователю предлагается ввести номер строки (n), и в зависимости от этого номера выводятся соответствующие значения. Код выполняет следующие действия:

Объявляет массив a размером 8x8 и заполняет его значениями.
Выводит значения массива a на экран.
Просит пользователя ввести номер строки (n).
Проверяет, что введенный номер соответствует допустимому диапазону от 1 до 64.
В зависимости от введенного номера выводит соответствующие значения.