17.06.2014, 15:51 | #1 (permalink) |
Banned
Регистрация: 29.05.2014
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Файловый тип данных
|
17.06.2014, 15:51 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно решение проблемы скрывается где то тут Tetra filer - файловый менеджер Файловый менеджер ES File Explorer – файловый менеджер Маленький файловый сервер. Файловый тип данных HDD файловый |
17.06.2014, 16:15 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
И Вам не хворать!
Вам на Коболе, как обычно, или на Аде? А тип данных (тип файла) это, как я понимаю, вообще стратегическая информация, не подлежащая разглашению? А и правда: как говорил Швейк, "разговор по телефону должен быть кратким!". |
17.06.2014, 17:30 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да пожалуйста! Если Вы по-прежнему отказываетесь назвать требуемый тип файла, выбор оного оставляю за собой и ставлю текстовый формат. Имена и пути к файлам поставьте свои, если надо:
Код:
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|