Построить матрицу k порядка с использованием процедуры, по образцу - Turbo Pascal

Узнай цену своей работы

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

Помогите решить задачу кому не сложно Построить матрицу k порядка

с использованием процедуры

, по образцу

Решение задачи: «Построить матрицу k порядка с использованием процедуры, по образцу»

textual
Листинг программы
  1. Const n = 10;
  2. Var A : array [1..n, 1..n] of integer;
  3.     i, j : integer;
  4.  
  5. procedure proc(var A : array [1..n, 1..n] of integer; n : integer);
  6. Var i, j, k : integer;
  7. begin
  8. For j:=1 to n do
  9.     begin
  10.     k:= n-j+1;
  11.     For i:=1 to k do A[i,j]:=i;
  12.     end;
  13. end;
  14.  
  15. begin
  16. proc(A, n);
  17. For i:=1 to n do
  18.     begin
  19.     For j:=1 to n do Write(A[i,j]:3);
  20.     Writeln;
  21.     end;
  22. end.

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


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

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

5   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы