Построить матрицу k порядка с использованием процедуры, по образцу - Turbo Pascal
Формулировка задачи:
Помогите решить задачу кому не сложно
Построить матрицу k порядка
с использованием процедуры
, по образцуРешение задачи: «Построить матрицу k порядка с использованием процедуры, по образцу»
textual
Листинг программы
- Const n = 10;
- Var A : array [1..n, 1..n] of integer;
- i, j : integer;
- procedure proc(var A : array [1..n, 1..n] of integer; n : integer);
- Var i, j, k : integer;
- begin
- For j:=1 to n do
- begin
- k:= n-j+1;
- For i:=1 to k do A[i,j]:=i;
- end;
- end;
- begin
- proc(A, n);
- For i:=1 to n do
- begin
- For j:=1 to n do Write(A[i,j]:3);
- Writeln;
- end;
- end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д