01.03.2014, 13:29 | #1 (permalink) |
Новичок
Регистрация: 15.02.2014
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Файлы паскаль
Пытался написать программу, либо ничего не выводит в файл, либо отдельную строку, которая не является самой длинной. Var f1,f2:Text; s:string; max:integer; Begin max:=1; Assign(f1,'C:\Program Files\PABC\readme.txt'); Reset(f1); Assign(f2,'C:\Program Files\PABC\f1.txt'); Rewrite(f2); while not eof(f1) do begin readln(f1,s); if max<length(s) then max:=length(s); while not eof(f1) do begin repeat readln(f1,s); if length(s)=max then Write(f2,s); Until EoF(f1); end; end; Close(f1); Close(f2); End. |
01.03.2014, 13:29 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно вам будет полезно обратить внимание на эти топики Паскаль, файлы Паскаль, файлы Паскаль, файлы Файлы в Паскаль Типизированные файлы, Паскаль |
01.03.2014, 15:42 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var f1,f2:Text; s:string; max:integer; Begin max:=1; Assign(f1,'C:\Program Files\PABC\readme.txt'); Reset(f1); Assign(f2,'C:\Program Files\PABC\f1.txt'); Rewrite(f2); while not eof(f1) do begin readln(f1,s); if max<length(s) then max:=length(s); end; Reset(f1); repeat readln(f1,s); if length(s)=max then Writeln(f2,s); until length(s)=max; Close(f1); Close(f2); End. |
|
01.03.2014, 18:44 | #3 (permalink) | |
Новичок
Регистрация: 15.02.2014
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
паскаль; помогите; файлы; |
|
|