Матрица из файла, без использования массивов Опции

[setare]

Здравствуйте! Не могли бы вы мне помочь решить одну простейшую задачку. Она тоже про матрицы. В текстовом файле есть квадратная матрица произвольного размера (массивами и строками пользоваться нельзя). Нужно найти сумму элементов на главн диоганали.
Проблема состоит в том, как можно считать числа с каждой строки: 1 число с первой, второе число со второй и тд.

Сообщение отредактировано: volvo - 14.12.2004 19:41

[volvo]

setare
Вот работающий код (проверен на матрице размера 3Х3)

Код

var
 f: text;
 a, sum: real;
 i, j: integer;
begin
 assign(f, 'data.txt');
 reset(f);
 i := 1; sum := 0;

 while not eof(f) do
   begin
     for j := 1 to pred(i) do
       read(f, a);
     read(f, a);
     sum := sum + a;
     while not seekeoln(f) do
       begin
         read(f, a);
       end;
     inc(i);
   end;
 writeln('s = ', sum:10:6);
 close(f);
end.

Пример входного файла:

0.002 0.003 0.004
0.005 0.006 0.007
0.001 0.006 0.004

Сообщение отредактировано: volvo - 14.12.2004 20:22