Запись в конец типизированного файла

[min@y™]

Скопировать в конец файла «temp.dat» отрицательные температуры, хранящиеся в нем.

Дай файл.

[mefisto74]

файл формирутется в программе, выше я кидал исходник ну скопирую еще раз
эти две процедуры его формируют и заполняют

procedure vvodN(var Fx:RealFile);
var
a:real;
i:integer;
begin
assign(Fx,'temp.dat');
rewrite(Fx);
writeln('enter 10 real numbers');
for i:=1 to 10 do
begin
readln(a);
write(Fx,a);
end;
write('numbers recorded');
close(Fx);
end;

procedure vvodM(var Fx:RealFile); {random numbers}
var
a:real;
i:integer;
begin
assign(Fx,'temp.dat');
reset(Fx);
Seek(Fx, FileSize(Fx));
randomize;
for i:=1 to 10 do
begin
a:=random(100);
write(Fx,a);
end;
writeln;
write('random numbers recorded');
close(Fx);
end;

[min@y™]

Слыш, ты чо, нерусский?
По-русски не понимаешь?!
Я тебе по-русски написал:

Дай файл.

Если б мне нужен был код, который этот файл формирует, я бы код попросил.

[mefisto74]

я не понимаю твою просьбу)
какой я тебе должен дать файл? который эта програ сформировывает? во-первых ты бы сам мог скомпилировать, а во-вторых зачем? тебе что-то даст простейший типизированный файл с циферками? в расширении .dat?)

[min@y™]

во-первых ты бы сам мог скомпилировать

ты охренел? оно мне надо?!

тебе что-то даст простейший типизированный файл с циферками? в расширении .dat?

Мне будет проще с этим файлом смоделировать твою ситуацию, чтобы написать тебе кусок кода, который решает твою задачу чуть менее, чем полностью.
Тебе, чо, жалко копию файла мне дать? Даю чесслово - ВЕРНУ!

[mefisto74]

да не груби ты так, просто непонятно зачем тебе нужен файл компиляция которого показана тебе выше в нескольких строках)

https://drive.google.com/file/d/0Bys...ew?usp=sharing

сюда почему-то не закачивается поэтому ссылка на гуглдрайв

[Stilet]

Могу предложить такую схему:

program Project1;

var
  f:File of double;
{$I-}
procedure App(d:Double);
begin
 Seek(f,FileSize(f));
 Write(f,d);
end;

Function GetD(i:integer):Double;
begin
 if i<FileSize(f) then begin
   Seek(f,i); if IOResult<>0 then begin writeln('Dammned man...!'); exit; end;
   Read(f,Result);
 end else
  writeln('Get off, jerk!');
end;

begin
  AssignFile(f,'d:\1\q'); Rewrite(f);
  App(1); App(2);App(3);App(4);App(5);
  Reset(f);
  Writeln(GetD(1):5:2);
  Writeln(GetD(4):5:2);
  readln;
  CloseFile(f);
end.

Устраивает?

[min@y™]

да не груби ты так, просто непонятно зачем тебе нужен файл компиляция которого показана тебе выше в нескольких строках)

https://drive.google.com/file/d/0Bys...ew?usp=sharing

сюда почему-то не закачивается поэтому ссылка на гуглдрайв

Ты издеваешься?

[Serge_Bliznykov]

mefisto74, как Вам уже говорили в этой теме выше, косяк в коде тут:

for i:=1 to FileSize(Fx) do begin
  read(Fx,Ntemp);
  seek(fx,FileSize(Fx));
  if Ntemp<0 then begin
     Narray[i]:=Ntemp;
     write(Fx,Narray[i]);
      seek(Fx,i);
....

нельзя в цикле, где читается переменная, "скакать" по этому же файлу, да ещё и писать в него в конец файла.
(ну, если точнее можно, но очень аккуратно и бережно!
ну, например, так:

procedure FnegativeTemp(var Fx:RealFile);
var
  i,N:integer;
  Ntemp:real;
begin
  assign(Fx,'temp.dat');
  reset(Fx);
  N:=FileSize(Fx);
  i:=0;
  while i<N do begin
    Seek(Fx, i);
    read(Fx,Ntemp);
    if Ntemp<0 then begin
      Seek(Fx, FileSize(Fx));
      Write(Fx, Ntemp);
    end;
    Inc(i);
  end;
  close(Fx);
  WriteLn('end of procedure FnegativeTemp.');
end;

Только учти, будет сделано, как Вы написали - отрицательные значения будут СКОПИРОВАНЫ (сиречь "ПРОДУБЛИРОВАНЫ") в ко