строки в паскале сложная программа

[Евгудвин]

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

[Alex11223]

Предложение-то какое? Как слова разделены?

[Евгудвин]

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

Предложение-то какое? Как слова разделены?

нашелДоЧегоДокапатьсяГлавноеНеТоКак иеОшибкиЯНаписал,аТоКакРешитьЗадачу

[Xcopy]

Я бы использовал функцию Pos(Substr : String; S : String) : Byte;
Задал бы массив (чар) латинских символов и сравнивал, если нашел латинский символ, смотри латинский ли символ следующий от него, если да то копировал бы их в другой, уже строковый массив.

[Евгудвин]

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

Я бы использовал функцию Pos(Substr : String; S : String) : Byte;
смотри латинский ли символ следующий от него, если да то ....

это я все понимаю но как показать что это 3 последовательных буквы алфавита.

[Евгудвин]

он должен отображать 3 последовательные буквы abc или opq ну и тому подобное

[Alex11223]

если да то копировал бы их в другой, уже строковый массив.

В этой задаче наверно нет смысла так делать. Просто +1 к какому-нибудь счетчику, просят же посчитать их количество.

[Xcopy]

ну... у тебя есть массив латинских символов, и строка в которой нужно найти последовательность. ты через цикл начинаешь каждый символ строки проверять на сходство со всеми символами массива. если такое сходство найдено, то записываешь (например в i) номер ячейки массива в которой найдена последовательность и проверяешь следующий символ строки на сходство с символом в ячейке массива i+1...
Alex11223, как я понял, ему потом все эти слова вывести нужно будет)

[Евгудвин]

Аааа все дошло до меня! спасибо!

[Xcopy]

не за что)))