Чтение матрицы из файла, как засунуть в процедуру ? Опции

[Hamster]

Чтение матрицы из файла написвть труда не составляет. А как засунуть в процедуру непонятно !?

ЗЫ. Опишите пжаласта эту процедуру(функцию) ! и как ее применить к нескоольким матрицам в одной программе ?

[volvo]

Код

program vvod_matr;
const
 m=3;
 n=3;
type
 matr=array[1..m,1..n] of integer;

procedure read_matrix(var inp: text; var a: matr);
 var i, j: integer;
 begin
   for i:=1 to m do
     for j:=1 to n do
       read(inp,A[i,j]);
 end;

procedure print(a: matr);
 begin
   for i:=1 to m do begin
     for j:=1 to n do
       write(a[i,j], ' ');
     writeln;
   end;
 end;

var
 A, B : matr;
 inp1, inp2 : text;
begin
 assign(inp1, 'c:\a.txt'); reset(inp1);
 writeln('Матрица A : ');
 read_matr(inp1, a); print( a );
 close(inp);

 assign(inp2, 'c:\a2.txt'); reset(inp2);
 writeln('Матрица B : ');
 read_matr(inp2, B); print( b );
 Close(inp2);

 readln;
end.

SHnur
Ну попросили же:

как ее применить к нескоольким матрицам в одной программе ?

Твою процедуру можно к нескольким матрицам применить?