Сформировать квадратную матрицу n-го порядка - Pascal ABC
Формулировка задачи:
Помогите сделать матрицу по образцу
Сам попробовал но что то вникнуть не могу
Решение задачи: «Сформировать квадратную матрицу n-го порядка»
textual
Листинг программы
var ar: Array[1..200, 1..200] Of Byte; i, j, n: Byte; begin repeat Write('Input n (1..200) ='); ReadLn(n); until (n in [1..200]); for i := 1 to n do begin for j := 1 to n do begin if (j > i) then ar[i, j] := 0 else ar[i, j] := n - i + j; Write(ar[i, j]:4); end; WriteLn; end; end.
Объяснение кода листинга программы
- Создается переменная
ar
, которая представляет собой массив размером 200x200, и инициализируется значением 0. - Затем, в цикле
repeat
, программа запрашивает у пользователя числоn
от 1 до 200 и проверяет, пока это число не будет в указанном диапазоне. - В цикле
for
, который идет от 1 доn
, программа создает вложенный циклfor
, который идет от 1 доn
. - Внутри вложенного цикла, если
j
большеi
, то значение элементаar[i, j]
устанавливается равным 0. В противном случае, значение элемента устанавливается равнымn - i + j
. - После окончания вложенного цикла, выводится значение элемента
ar[i, j]
с помощью функцииWrite(ar[i, j]:4)
. - После окончания внешнего цикла, выводится строка
WriteLn
, чтобы перейти на новую строку. - Код повторяется, пока
n
не станет равным 0.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д