Технический форум - Файловый тип данных

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Файловый тип данных (http://www.tehnari.ru/f41/t97010/)

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

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

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

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

Цитата:

Сообщение от йцуйцу (Сообщение 1041378)

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

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

Код:

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.