Сформировать квадратную матрицу порядка 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.

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

  1. const
    • n = 10: объявляется постоянная переменная n со значением 10, которая будет использоваться для определения порядка квадратной матрицы.
  2. var
    • i, j: объявляются переменные i и j как целочисленные.
    • a: объявляется массив a размером n x n, содержащий целочисленные значения.
  3. begin..end
    • Внутри блока begin..end происходит заполнение матрицы и её вывод.
    • Для каждого i от 1 до n выполняется:
      • Для каждого j от 1 до n выполняется:
      • Если i равно n - j + 1, то в ячейку матрицы a[i, j] записывается значение i, иначе записывается 0.
      • Значение a[i, j] выводится на экран с выравниванием по ширине в 4 символа.
      • После заполнения строки матрицы происходит переход на новую строку.
  4. end.
    • Конец описания программы. Данный код формирует квадратную матрицу порядка 10, в которой все элементы, находящиеся на побочной диагонали, равны номеру строки, а все остальные элементы равны 0.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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