как обработать двумерный массив из файла

[_LEX_]

В блокноте имеется квадратная матрица. Необходимо ее считать и обработать, затем уже обработанную добавить в этот файл.

[whatever]

Язык какой?

Update:

Type
  matrix=array of array of integer;

procedure GetMatrixFromFile(var T:textfile; var M:matrix);
var
  i,j:integer;
  TMP:integer;
begin
  reset(T);
  i:=0;
  j:=0;
  while not EOLN(T) do
    begin
      read(T,tmp);
      inc(i)
    end;
  setlength(m,i,i);
  reset(T);
    while not EOF(T) do
      begin
        i:=0;
        while NOT EOLN(T) do
          begin
            read(T,m[j,i]);
            inc(i);
          end;
          readln(T);
        inc(j);
      end;

end;

procedure SaveMatrixToFile(var T:textfile; var M:matrix);
var
  i,j:integer;
begin
  append(T);
  write(T,#13#10);
  write(T,#13#10);
  for i:=0 to high(m) do
    begin
      for j:=0 to high(m) do
        begin
          write(T,m[i,j]);
          write(T,' ');
        end;
      write(T,#13#10);
    end;
  close(T);
end;

VAR
  T:textfile;
  m:matrix;
  i,j:integer;
BEGIN
  assignfile(T,'input.txt');
  GetMatrixFromFile(T,M);
{Здесь матрица обрабатывается }
  SaveMatrixToFile(T,M);
readln

END.

Если в текстовике числа не целые, то массив делаешь of real и TMP в GetMatrixFromFile тоже.

[_LEX_]

язык дельфи

[_LEX_]

спасибо)))

[_LEX_]

И еще вопрос есть: По какому принципу выбираются формальные параметры, тюе которые записаны в скобочках возле имени процедуры?

[_LEX_]

как просто считать матрицу из файла? самый простой вариант. мне нужно разобраться

[whatever]

Сообщение от _LEX_

И еще вопрос есть: По какому принципу выбираются формальные параметры, тюе которые записаны в скобочках возле имени процедуры?

Ну, "в скобочках возле имени процедуры" перечисляется то, что эта процедура будет обрабатывать, в нашем случае текстовик и массив.
В самой процедуре есть переменные i,j,tmp, но они нужны только для работы внутри процедуры, поэтому как параметры мы их не передаем.

как просто считать матрицу из файла? самый простой вариант. мне нужно разобраться

Вот самый простой, и совершенно непригодный для реальной жизни вариант

procedure GetMatrixFromFile(var T:textfile);
var
  TMP:integer;
begin
  reset(T);
    while not EOF(T) do             //пока не конец файла
      begin
        while NOT EOLN(T) do      //пока не конец строки в файле
            read(T,TMP);              //чтение из файла в переменную TMP (одного из элементов матрицы). так как TMP:integer чтение будет производится до пробела, либо другого знака, который не цифра.
        readln(T);                       //перескакиваем на следующую строчку
      end;
end;