Двумерная матрица - QBasic (145438)

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

Напишите программу, которая заполняет матрицу размером n*n (n-нечетное число) случайными числами, а затем вписывает в элементы, отмеченные на рисунке серым фоном, число 99

Решение задачи: «Двумерная матрица»

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

CLS
RANDOMIZE TIMER
 
DO
   INPUT "N = "; n
LOOP UNTIL n MOD 2
 
DIM x(n, n) AS LONG
 
FOR i = 1 TO n
FOR j = 1 TO n
   x(i, j) = 40 * RND - 20
NEXT j, i
 
k = n \ 2 + 1
 
FOR i = 1 TO n
FOR j = 1 TO n
   IF ABS(i - k) + ABS(j - k) < k THEN
      x(i, j) = 99
   END IF
NEXT j, i
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT USING " ###"; x(i, j);
NEXT: PRINT
NEXT: PRINT
END

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

CLS — очистка экрана
RANDOMIZE TIMER — случайное заполнение матрицы
DO — начало цикла
INPUTN = ; n — запрос на ввод числа N для размера матрицы
LOOP UNTIL n MOD 2 — цикл, который прерывается, если N нечетное число
DIM x(n, n) AS LONG — объявление двумерной переменной x размером n на n
FOR i = 1 TO n — начало внешнего цикла
FOR j = 1 TO n — начало внутреннего цикла
x(i, j) = 40 * RND - 20 — заполнение матрицы случайными числами от -20 до 40
NEXT j, i — переход к следующей итерации внутреннего цикла
k = n \ 2 + 1 — определение числа k, равного половине n плюс единице
FOR i = 1 TO n — начало внешнего цикла
FOR j = 1 TO n — начало внутреннего цикла
IF ABS(i — k) + ABS(j — k) < k THEN — условие для определения, находится ли элемент в пределах квадрата со стороной k
x(i, j) = 99 — присваивание значению 99 элементам, удовлетворяющим условию
END IF — конец условия
NEXT j, i — переход к следующей итерации внутреннего цикла
FOR i = 1 TO n — начало внешнего цикла
FOR j = 1 TO n — начало внутреннего цикла
PRINT USING ###; x(i, j); — печать значения элемента матрицы в формате ### xxx
NEXT: PRINT — переход к следующей итерации внутреннего цикла
END — конец программы