Нужно вводить например 2 (или больше) двумерных массива.
Код
procedure readmatrix( var a: matrix; var n, m :integer);
var i,j : integer;
begin
repeat write('Ievadi rindu skaitu: ');readln(n)
until (n>0) and (n<=nn);
repeat write('Ievadi kolonnu skaitu: ');readln(m)
until (m>0) and (m<=mm);
for i:=1 to n do begin
for j:=1 to m do begin
writeln('A[',i,j,']= '); readln(a[i,j])
end end
end;
procedure printmatrix(a :matrix; n,m: integer);
var i,j,k: integer;
begin for i:=1 to n do begin
for j:=1 to m do write(a[i,j]:6);
writeln;
end
end;
var i,j : integer;
begin
repeat write('Ievadi rindu skaitu: ');readln(n)
until (n>0) and (n<=nn);
repeat write('Ievadi kolonnu skaitu: ');readln(m)
until (m>0) and (m<=mm);
for i:=1 to n do begin
for j:=1 to m do begin
writeln('A[',i,j,']= '); readln(a[i,j])
end end
end;
procedure printmatrix(a :matrix; n,m: integer);
var i,j,k: integer;
begin for i:=1 to n do begin
for j:=1 to m do write(a[i,j]:6);
writeln;
end
end;
можно ли эти 2 процедуры сделать так, чтоб поменяв чтото при их вызове типа readmatrix(a,n,m), например а, она ещё и выполняла чтение другой матрицы?
Брр так сложно написано
Ну то есть в разделе описания будет одна процедура, а при вызове 2 раза, прочитает 2 матрицы