Составить программу вывода матрицы по схеме - 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.

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

  1. В начале программы объявляются следующие переменные: n - размерность матрицы (в данном случае 4); a - массив, представляющий собой квадратную матрицу размерности n на n; i, j, k - целочисленные переменные, используемые в процессе работы программы.
  2. Переменная k инициализируется нулем. Она используется для подсчета количества заполненных ячеек матрицы.
  3. Два вложенных цикла for выполняются следующим образом:
    • Первый цикл for проходит по всем элементам матрицы a от верхнего левого угла к правому нижнему углу.
    • Второй цикл for проходит по всем элементам матрицы a по горизонтали.
  4. Условие if в рамках второго цикла проверяет, что суммарный индекс элемента, который будет заполнен, не превышает размерность матрицы.
  5. Если условие if выполняется, то к переменной k прибавляется единица, так как мы перешли к следующему заполняемому элементу. Затем значение k записывается в элемент матрицы a с индексами (n-1-(j+i)) и j.
  6. После завершения вложенных циклов for, происходит вывод всех элементов матрицы a на экран с помощью цикла for и функции write.
  7. Для каждого элемента выводится его значение, а после него символ новой строки writeln.
  8. Программа завершается после вывода всех элементов матрицы.

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы