| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Считывание матрицы [D7]
newnewnew © (2007-04-17 11:55:00)Подскажите, как быстрее всего считать из текстового файла матрицу в массив
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
palva (2007-04-17 21:15:00) [1]
{$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.
MBo (2007-04-17 15:01:00) [2]прочитать построчно, разделить по пробелам.
Сергей М. (2007-04-17 13:08:00) [3]
> она же меньше чем размерность матрицы. Что из этого?
Ты что, с дуба упал ?)
Ну и в какое "место массива" должно считывать твою матрицу при этом ?
newnewnew (2007-04-17 13:06:00) [4]Но она же меньше чем размерность матрицы. Что из этого?
Сергей М. (2007-04-17 12:46:00) [5]
> Размерность любая
Любая так любая)
Но размерности матрицы, "изображенной" в файле, должны в точности соответствовать размерностям массива, а у тебя они не соответствуют.
newnewnew (2007-04-17 12:42:00) [6]Размерность любая
Сергей М. (2007-04-17 12:12:00) [7]Размерности твоего массива не совпадают с размерностями матриц, примеры которых ты привел.
Что на это скажешь ?
newnewnew (2007-04-17 11:55:00) [8]Или такой внешний файл:
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
| |
