задача подсчета количества слов в строке #607794

Покажите пожалуйста кто-нибудь правильный код к задаче: Нужно разработать функцию, на вход подается произвольная строка. Функция должна вернуть количество слов в ней. Слово - последовательность символов, не содержащая пробела. Считать, что слова могут разделяться любым количеством пробелов. я начинающий, примерно что нужно сделать знаю, но не знаю как реализовать в код :(

xxxxx: В контрольной работе по информатике для студентов экономического факультета требовалось написать на Паскале программку - подсчитать сколько раз в введенной с клавиатуры строке встречается подстрока "мн". Выдержка из одной контрольной: ... readln(str); writeln('Сколько раз в этой строке встречается подстрока "мн"?'); readln(n); writeln('Такая подстрока встречается:',n,'раз'); ... и причем тут 1С ?

не только пробел нужно учитывать, но и неразрывной

СтрЧислоВхождений  :)

+ Ну и сначала удалить соседние пробелы

в принципе можно решить в одну строку ;)

СтрЗаменить(" ", Символы.ПС) и посчитать кол-во не пустых ?

Черт я в 2 смог только :(

кмх.. наверно прав... в одну не получиться :( хотя может стоит подумать подольше :)

ЧислоСлов = СтрЧислоВхождений(СокрЛП(СтрЗаменить(СтрЗаменить(стр,"  "," "),"  "," "))," ")+1;

Если с "Выполнить" - то можно и в одну :))

Что то типа этого :)

Блин просили не раскладывать, а посчитать слова :)

А чё без запросов-то?

Не делай так. Покусают же

не выполняется "Считать, что слова могут разделяться любым количеством пробелов. "

Извращенцы

А если подумать?

"Это тебе надо      подумать"

На дырке из 3х пробелов уже сдохнет

все у него правильно :)) понял.. зачет.. в две строки я думал через структуру сделать

для этого у него контрольный стрзаменить ;)

:( мну дурак

при большем количестве пробелов не сработает реально я тупанул )

А, не из 3х, из 5

кхм.. останется 2 пробела...

меняешь 2,3,4,5 ... т.д пробелов на один пробел считаешь количество пробелов

Версия 1.1 (с костылями)

что такое рекурсия не знаешь ?

не универсально :(

В одну строку не взлетит )

для тупых или не читающих мы тут обсуждаем как в одну строку сделать

главное не говорить об этом заказчику :)))

самое оно... завернуть можно хоть в какую-нибудь сторону. И различные получить, и количество по факту

Проверял?

1. Как бы где результат (количество слов) 2. СокрЛП забыл 3. Все таки 3 строки

Нате вам боле менее универсальную фигулю в одну строку:

что это ?

Это хрень которая посчитает тебе количество слов в строке, разделенных любым количеством пробелов.

четко :)  но лучше комбинацию сцец символов )))

Да, разумеется.

Зачет.. Сам придумал?

И на выставку :) КоличествоСлов=СтрЧислоВхождений(СтрЗаменить( СтрЗаменить(СокрЛП(ИсходнаяСтрока), " ", "$##$"), "##$$", ""),"$##$")+ЗначениеЗаполнено(ИсходнаяСтрока);

ну все, ветку можно закрывать