Сформировать квадратную матрицу порядка n по заданному образцу - Pascal (80712)
Формулировка задачи:
0 0 0...0 0 1
0 0 0...0 2 0
0 0 0...3 0 0
......................
0 (n-1) 0 0 0 0
n 0 0 0 0 0
Решение задачи: «Сформировать квадратную матрицу порядка n по заданному образцу»
textual
Листинг программы
const n = 10; var i, j: integer; a: array [1..n, 1..n] of integer; begin for i := 1 to n do begin for j := 1 to n do begin if i = n - j + 1 then a[i, j] := i else a[i, j] := 0; write(a[i, j]:4); end; writeln; end; end.
Объяснение кода листинга программы
- const
n
= 10: объявляется постоянная переменнаяn
со значением 10, которая будет использоваться для определения порядка квадратной матрицы.
- var
i, j
: объявляются переменныеi
иj
как целочисленные.a
: объявляется массивa
размером n x n, содержащий целочисленные значения.
- begin..end
- Внутри блока
begin..end
происходит заполнение матрицы и её вывод. - Для каждого
i
от 1 доn
выполняется:- Для каждого
j
от 1 доn
выполняется: - Если
i
равноn - j + 1
, то в ячейку матрицыa[i, j]
записывается значениеi
, иначе записывается 0. - Значение
a[i, j]
выводится на экран с выравниванием по ширине в 4 символа. - После заполнения строки матрицы происходит переход на новую строку.
- Для каждого
- Внутри блока
- end.
- Конец описания программы. Данный код формирует квадратную матрицу порядка 10, в которой все элементы, находящиеся на побочной диагонали, равны номеру строки, а все остальные элементы равны 0.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д