Скачать: CL | DM;

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

← →
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]

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

---

← →
Сергей М. ©   (2007-04-17 13:08) [6]

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


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

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

---

← →
MBo ©   (2007-04-17 15:01) [7]

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

---

← →
palva ©   (2007-04-17 21:15) [8]


{$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.


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c