Заполнить матрицу по заданному образцу - Turbo Pascal (29848)

Формулировка задачи:

Cформировать квадратную матрицу порядка n по заданному образцу: Всем огромное спасибо заранее)

Решение задачи: «Заполнить матрицу по заданному образцу»

Листинг программы

for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j=i then a[i,j]:=i*(i+1)
    else a[i,j]:=0;
    write(a[i,j]:4);
   end;
  writeln;
 end;

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

Данный код на языке Turbo Pascal представляет собой цикл, который заполняет матрицу по заданному образцу. Внутри внешнего цикла (от i=1 до n) происходит итерация внутреннего цикла (от j=1 до n). На каждой итерации внутреннего цикла проверяется условие j=i. Если это условие истинно, то в ячейку матрицы a[i,j] записывается значение i*(i+1). Если условие ложно, то в ячейку матрицы a[i,j] записывается значение 0. После завершения внутреннего цикла происходит запись значения i в ячейку матрицы a[i,j] с помощью функции write. Затем происходит переход к следующей итерации внешнего цикла с помощью оператора next. После завершения внешнего цикла на экран выводится символ новой строки с помощью функции writeln.