Ну, если Вам нравится заново поизобретать что-нибудь, то пожалуйста... Только учтите, что приведенная процедура ничего вернуть не может, поскольку матрица описана в ней локально, следовательно она исчезнет при выходе из процедуры... Скажите спасибо
SHnur-у :D
Чтобы вернуть матрицу (притом, как выясняется - не одну, а несколько), нет другого пути, кроме как использовать Var - параметры... Но этот путь Вас устраивает только "как вариант", тогда ищите другой.
Отвечаю не вопрос -
нет. Нельзя применить процедуру
SHnur-а для ввода нескольких матриц... У нее просто НЕТ параметров... Я уже привел свой вариант... В крайнем случае, могу посоветовать вот это:
Код
program vvod_matr;
const
m=3; n=3;
type
matr=array[1..m,1..n] of integer;
Procedure read_matrix(s: string; var a: matr);
var
inp: text;
i, j: integer;
begin
assign(inp, s);
reset(inp);
for i:=1 to m do
for j:=1 to n do
read(inp,A[i,j]);
for i:=1 to m do begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
close(inp)
end;
var
A, B : matr;
begin
writeln('Ishodmaja Matrica A : ');
read_matrix('c:\a.txt', A);
writeln('Ishodmaja Matrica B : ');
read_matrix('c:\b.txt', B)
end.
Вот так...