|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
07.06.2010, 20:37 | #1 (permalink) |
Member
Регистрация: 29.09.2009
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Работа с текстовым файлом
Дан файл. Слова в нем разделены пробелами. Найти самое длинное слово среди тех, вторая буква которых "Е". Получается, что нужно как-то разбивать каждое слово на буквы и сравнивать вторую, "Е" или нет. Вот не знаю как сделать этот момент. Заранее благодарю. |
07.06.2010, 20:37 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Встречал подобные посты ранее, вы можете их прочитать Проблемы с файлом hosts Работа с текстовым файлом, Pascal Проблема с файлом Задача на работу с файлом и строками. СИ. |
07.06.2010, 21:25 | #2 (permalink) | |
Member
Регистрация: 29.09.2009
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
и еще, скажите пожалуйста, реально эту задачу решить на паскале:
Цитата:
|
|
07.06.2010, 21:44 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR f,f1:TEXT; c:Char; S,Smax:String; MaxLeng:WORD; BEGIN Assign(f,'D:\Inp_f'); ReSet(f); Assign(f1,'D:\Out_f'); ReWrite(f1); Repeat Repeat Read(f,c); If c<>' ' then Write(f1,c); Until (c=' ') or (EoF(f)); If (NOT EoF(f)) then WriteLn(f1); Repeat Read(f,c); Until (c<>' ') or (EoF(f)); If (NOT EoF(f)) then Write(f1,c); Until EoF(f); Close(f); Close(f1); MaxLeng:=0; ReSet(f1); Repeat ReadLn(f1,S); If (Length(S)>MaxLeng) and ((S[2]='e') or (S[2]='E')) then begin Smax:=S; MaxLeng:=Length(S); end; Until EoF(f1); Close(f1); Erase(f1); WriteLn('The longest word with second "e" is "'+Smax+'"'); ReadLn; END. Имена файлов и пути скорректируйте, если надо. |
|
08.06.2010, 15:28 | #5 (permalink) | |
Member
Регистрация: 29.09.2009
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|