Строки.

[spein]

s-andriano, для этого есть функция trim.
Lesii, а при чем здесь пробел после слова?

[Stilet]

для этого есть функция trim

А как тримирование поможет избавиться от внутренних пробелов?

[TinMan]

Старый спор о том, какие символы считать - в котором все не правы. Spein, что за загадочный trim ты имел в виду? )) В разделе про Pascal оставайся, пож, в рамках Pascal'я.

Считать нужно ГРАНИЦЫ (например, тут я считаю левые) между алфавитными символами и разделительными. Вот абсолютно надежный способ, который также учитывает краевые эффекты на концах строки:

if (s>'') and (s[1] in Alphabet) then count:=1 else count:= 0;
for i:=2 to Length(s) do if not (s[i-1] in Alphabet) and (s[i] in Alphabet) then inc(count);

[s-andriano]

Сообщение от Stilet

А мой пример тоже не идеален.

Мы здесь гнем пальцы - чей пример круче, или решаем конкретную задачу.
Если задачу, то решение должно включать следующие этапы:
1. Преобразование всех разделителей к общему виду, например, в пробелы.
2. Удаление повторяющихся разделителей (двойных пробелов).
3. Удаление, если есть, разделителей в начале и конце.
4. Проверка, что результат не пустой.
5. Подсчет оставшихся разделителей.
6. Вычисление и вывод результата на печать.

Вот теперь и считайте, сколько этапов пропущено в чьем примере.

[s-andriano]

Сообщение от TinMan

...абсолютно надежный способ...[/CODE]

Этот способ как-то подразумевает, что если символ не входит в алфавит, то он автоматически является разделителем.
Это дополнительное внешнее условие, не оговоренное в условии задачи.
Т.е. речь может идти только о частном решении (при некоторых дополнительных условиях), но не об общем.
Впрочем, если брать за основу именно однопроходный алгоритм, то его можно реализовать конечным автоматом, который отслеживает переходы от разделителя к символу алфавита при любом количестве символов, не принадлежащих ни к одному из этих множеств, между ними.

[TinMan]

Сообщение от s-andriano

Мы здесь гнем пальцы - чей пример круче, или решаем конкретную задачу.

Только не надо говорить "мы". Я - решал конкретную задачу и решил ее. Ты - сотрясаешь воздух..

Если задачу, то решение должно включать следующие этапы:

И кто это сказал? Кнут? Ленин? Твой препод? Ты?..

5. Подсчет оставшихся разделителей.

Повторю для тех, кто в танке - этот способ порочен по своей сути, по исходной посылке. Осмысление задачи в самом начале (а не хватание за клаву) дает возможность найти более правильный, внутренне согласованный подход (см. мой пост выше).

Сообщение от s-andriano

Этот способ как-то подразумевает, что если символ не входит в алфавит, то он автоматически является разделителем.
Это дополнительное внешнее условие, не оговоренное в условии задачи.

Сан-Андриан, не с той ноги встал?.. Хочется поисследовать случай с тремя и более группами символов?.. Ну, давай - только создай другую тему, а не флуди тут.

Впрочем, если брать за основу именно однопроходный алгоритм, то его можно реализовать конечным автоматом, который отслеживает переходы от разделителя к символу алфавита при любом количестве символов, не принадлежащих ни к одному из этих множеств, между ними.

Умн'о загнул! А чего ж ты стал толкать способ с копированием строки в промежуточную?.. Ох, Андриано, старая ты пер'ечница )).

[Stilet]

Так, ребята, вы уже на дуэль? Вам пистолеты дать или йада?
Тема закрыта - спор прекращаем.