Как работать с очень большим кол-вом чисел??

[Umnik1]

Сообщение от Ламер_001

ну как бы работать с числами сразу. допустим надо найти минимум то

read(file, min);
while (not eof(file))
begin
 read(file, x);
 if (x < min) then min := x;
end;

что то вроде этого

вот так я как раз и не хочу делать)
по идее 400 000 риал чисел вполне должны помещаться в памяти - это 1.6 метра...

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

[Ламер_001]

http://programmersforum.ru/showpost....26&postcount=4

[Umnik1]

А как мне переписать файл в динамический массив (на паскале)?

[Ламер_001]

  p:=nil;
 while(not eof(f))
   begin
     read(f, x);
     new(tt); 
     tt^.x := x; 
     tt^.next := p; 
     p := tt;
   end;

[Umnik1]

Я кое-как прочитал чертовы данные в динамический массив: (С использованием TFileStream)

var
f:TFileStream;
buf:real;
......................
----------------------------------

begin
f:=TFileStream.Create('filename',fm OpenRead);
..........................

-----------------------------------------------

kol:= round(f.Size/sizeof(buf));
for i:=0 to kol-1 do
begin
f.Read(buf,sizeof(buf));
SetLength(vec,i+1);
vec[i]:=buf;
end;
f.Free;
.........................

поместились)
Кстати может кто-нибудь подсказать как переписывать числа из файла в массив не по одному а по несколько? чтобы быстрее было, а то так уж совсем медленно

[Umnik1]

Уже записал

  f:=TFileStream.Create('filename',fmOpenRead);  
  kol:= round(f.Size/sizeof(buf));
  SetLength(polar,kol);
  f.Read(polar[0],f.Size);

Надо обязательно вектор[0] писать, чтобы в этот динамический массив все нормально записалось

[Mixasik]

Извините, не то написал и не туда)