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