Файловый тип данных

[йцуйцу]

Файловый тип данных

Записать в файл g только те значения из файла f, которые больше предыдущего.

 

[Vladimir_S]

И Вам не хворать!
Вам на Коболе, как обычно, или на Аде? А тип данных (тип файла) это, как я понимаю, вообще стратегическая информация, не подлежащая разглашению?
А и правда: как говорил Швейк, "разговор по телефону должен быть кратким!".

 

[йцуйцу]

Паскаль как всегда)

 

[Vladimir_S]

Паскаль как всегда)

Да пожалуйста! Если Вы по-прежнему отказываетесь назвать требуемый тип файла, выбор оного оставляю за собой и ставлю текстовый формат. Имена и пути к файлам поставьте свои, если надо:

Var
 f,f1:Text;
 a1,a2,i:Integer;
Begin
 Randomize;
 Assign(f,'D:\xxx.txt');
 Rewrite(f);
 for i:=1 to 100 do
  begin
   a1:=-20+Random(40);
   write(f,a1:4);
  end;
 Close(f);
 Reset(f);
 Assign(f1,'D:\yyy.txt');
 Rewrite(f1);
 Read(f,a1);
 for i:=2 to 100 do
  begin
   read(f,a2);
   if a2>a1 then write(f1,a2:4);
   a1:=a2;
  end;
 Close(f);
 Close(f1);
End.