Подсчет слов в строке, Реализация метода поиска |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Подсчет слов в строке, Реализация метода поиска |
Atreides |
Сообщение
#1
|
Ветеран Броуновского Движения Группа: Пользователи Сообщений: 281 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
задачка попалась по реализации метода подсчета слов в строке, а вот как реализовать? Была идея поисков пробелов в строке + 1, но как можно найти пробелы в строке?
-------------------- Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
|
Unconnected |
Сообщение
#2
|
mea culpa Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: 24 |
Если предположить, что слова разделяются пробелами, то можно использовать например:
Код if (s[i]=' ') and (s[i+1]<>' ') then schetchik_slov:=schetchik_slov+1; Добавлено через 16 мин. Вот программа, могущая работать с большим количеством разделителей. В качестве разделителя могут быть пробел и символ _ . Можно использовать оба, но между двумя словами может быть только один вид разделителя. Код var s:string; a,b:integer; begin writeln('Введите строку'); readln(s); for a:=1 to length(s) do begin if (s[a]=' ') and (s[a+1]<>' ') then b:=b+1; if (s[a]='_') and (s[a+1]<>'_') then b:=b+1; end; b:=b+1; writeln('В строке ', b ,' слов.'); readln; end. -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
Текстовая версия | 27.04.2024 15:07 |