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

[Hamster]

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

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

[SHnur]

Например так :

Код

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

procedure vvod_matr;
var
A : matr;      {matrivca A}
i,j : integer; {peremnnie cikla}
inp : text;
begin
 assign(inp, 'c:\a.txt');
 reset(inp);
 writeln('Ishodmaja Matrica A : ');
 for i:=1 to m do
 begin
  for j:=1 to n do
  read(inp,A[i,j]);
  end;
  for i:=1 to m do
  begin
 for j:=1 to n do
 write      (A[i,j],' ');
 writeln;
 end;
readln;
 close(inp);
end;

begin
{main program}
   vvod_matr; {vizov proceduri}
end.

исправлено.

Сообщение отредактировано: SHnur - 18.03.2005 1:11