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

я начинающий, примерно что нужно сделать знаю, но не знаю как реализовать в код :(

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

http://bash.im/quote/278092


и причем тут 1С ?

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

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

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

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

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

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

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

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

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

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

// Функция "расщепляет" строку на подстроки, используя заданный
//        разделитель. Разделитель может иметь любую длину.
//        Если в качестве разделителя задан пробел, рядом стоящие пробелы
//        считаются одним разделителем, а ведущие и хвостовые пробелы параметра Стр
//        игнорируются.
//        Например,
//        ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(",ку,,,му", ",") возвратит массив значений из пяти элементов,
//        три из которых - пустые строки, а
//        ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(" ку   му", " ") возвратит массив значений из двух элементов
//
//    Параметры:
//        Стр -            строка, которую необходимо разложить на подстроки.
//                        Параметр передается по значению.
//        Разделитель -    строка-разделитель, по умолчанию - запятая.
//
//
//    Возвращаемое значение:
//        массив значений, элементы которого - подстроки
//
Функция мРазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ",") Экспорт
   
   МассивСтрок = Новый Массив();
   Если Разделитель = " " Тогда
       Стр = СокрЛП(Стр);
       Пока 1=1 Цикл
           Поз = Найти(Стр,Разделитель);
           Если Поз=0 Тогда
               МассивСтрок.Добавить(Стр);
               Возврат МассивСтрок;
           КонецЕсли;
           МассивСтрок.Добавить(Лев(Стр,Поз-1));
           Стр = СокрЛ(Сред(Стр,Поз));
       КонецЦикла;
   Иначе
       ДлинаРазделителя = СтрДлина(Разделитель);
       Пока 1=1 Цикл
           Поз = Найти(Стр,Разделитель);
           Если Поз=0 Тогда
               МассивСтрок.Добавить(Стр);
               Возврат МассивСтрок;
           КонецЕсли;
           МассивСтрок.Добавить(Лев(Стр,Поз-1));
           Стр = Сред(Стр,Поз+ДлинаРазделителя);
       КонецЦикла;
   КонецЕсли;
   
КонецФункции // глРазложить

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

Буду банальным :)
Функция КоличествоСлов(ИсходнаяСтрока)
   КоличествоСлов=0;
   
   ИсходнаяСтрокаМ=СтрЗаменить(ИсходнаяСтрока," ",Символы.ПС);
   Для сч=1 По СтрЧислоСтрок(ИсходнаяСтрокаМ) Цикл
       Если ПустаяСтрока(СтрПолучитьСтроку(ИсходнаяСтрокаМ,сч)) Тогда
           Продолжить;
       КонецЕсли;
       
       КоличествоСлов=КоличествоСлов+1;
   КонецЦикла;
   
   Возврат КоличествоСлов;
КонецФункции

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

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

(9)
не выполняется

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

Извращенцы

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

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

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

(20) все у него правильно :))

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

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

(20) :( мну дурак

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

(23) А, не из 3х, из 5

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

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

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

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

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

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

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

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

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

Функция ПоОдномуПробелуВСтроке(Слово)
 
   Возврат ? ( СтрЧислоВхождений (Слово , "  ") > 0,  ПоОдномуПробелуВСтроке ( СтрЗаменить(Слово, "  ", " ") ), Слово );


КонецФункции

Проверял?

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

Нате вам боле менее универсальную фигулю в одну строку:
Слов = СтрЧислоВхождений ( СтрЗаменить( СтрЗаменить(СокрЛП(Стр), " ", "ЭтаПрабэл"), "таПрабэлЭ", ""), "ЭтаПрабэл") + 1;

(39) что это ?

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

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

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

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

И на выставку :)

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

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