Сформировать квадратную матрицу порядка n по заданному образцу - Turbo Pascal (35290)
Формулировка задачи:
n 0 0 ... 0 0 0
0 n-1 0 ... 0 0 0
0 0 n-2 ... 0 0 0
. . . . . . .
. . . . . . .
. . . .. . .
0 0 0 ... 0 2 0
0 0 0 ... 0 0 1
Решите кто-нибуть пожалуйста очень нужно!!!
Решение задачи: «Сформировать квадратную матрицу порядка n по заданному образцу»
textual
Листинг программы
program 123; uses crt; var a:array[1..20,1..20]of byte; n,i,j:byte; begin clrscr; write('n='); readln(n); for i:=1 to n do begin for j:=1 to n do begin if i=j then a[i,j]:=(n-i+1) else a[i,j]:=0; write(a[i,j]:4); end; writeln; end; readkey; end.
Объяснение кода листинга программы
В данном коде происходит формирование квадратной матрицы порядка n по заданному образцу.
- Создается переменная
a
, которая представляет собой матрицу порядка n. - Задается значение переменной
n
, которое является размером матрицы. - Запускается цикл
for i:=1 to n do
, который проходит по каждому элементу матрицы. - Внутри цикла запускается вложенный цикл
for j:=1 to n do
, который проходит по второму измерению матрицы. - Внутри вложенного цикла проверяется условие
if i=j
, которое определяет, является ли текущий элемент диагональным. - Если условие истинно, то в соответствующий элемент матрицы записывается значение
n-i+1
. - Если условие ложно, то в элемент матрицы записывается значение 0.
- После завершения вложенного цикла выводится значение элемента матрицы с помощью функции
write
. - После завершения внешнего цикла выводится символ новой строки с помощью функции
writeln
. - Запускается функция
readkey
, которая ожидает ввода пользователя. - Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д