Считывание матрицы

← →
newnewnew (2007-04-17 11:55) [0]

Подскажите, как быстрее всего считать из текстового файла матрицу в массив
M: array [1..100,1..100] of Double;

Внешний файл:
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5

← →
newnewnew (2007-04-17 11:55) [1]

Или такой внешний файл:

1 2 3 4 5
1 2 3 4 5
1 2 3 4 5

← →
Сергей М. © (2007-04-17 12:12) [2]

Размерности твоего массива не совпадают с размерностями матриц, примеры которых ты привел.

Что на это скажешь ?

← →
newnewnew (2007-04-17 12:42) [3]

Размерность любая

← →
Сергей М. © (2007-04-17 12:46) [4]

> Размерность любая

Любая так любая)

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

← →
newnewnew (2007-04-17 13:06) [5]

Но она же меньше чем размерность матрицы. Что из этого?

> она же меньше чем размерность матрицы. Что из этого?

Ты что, с дуба упал ?)

Ну и в какое "место массива" должно считывать твою матрицу при этом ?

прочитать построчно, разделить по пробелам.

{$APPTYPE CONSOLE} var M: array [1..100,1..100] of Double; f: Text; i, j: Integer; begin AssignFile(f, "infile.txt"); Reset(f); i := 1; while not Eof(f) do begin j := 1; while not Eoln(f) do begin Read(f, M[i][j]); j := j + 1; end; ReadLn(f); i := i + 1; end; CloseFile(f); ReadLn end.

Считывание матрицы Найти похожие ветки