Строковые переменные - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

Строковые переменные

Опции

Очередная	30.01.2004 16:39 Сообщение #1
Гость	??? Привет! Чайник просит помощи у умных людей!!! Помогите решить задачу на строковые переменные. Задача: Сколько одинаковых слов в предложении, введенном с клавиатуры? Вывести на экран слова и их количество. Заранее большое спасибо

Ответов

P@sh@	2.02.2004 4:26 Сообщение #2
Бывалый Группа: Пользователи Сообщений: 180 Пол: Мужской Репутация: 2	А как узнаешь координаты слова? с помощью Pos? тогда для разделения нужен один цикл - while pos('<пробел>',s)<>0 do - или лучше аналогичный repeat ... until. Только этот метод неудобен, если слова могут разделяться не только пробелами, но и запятыми и т.д. Если учитывать все знаки препинания, понадобится еще цикл. Лучше сделать один цикл for по длине строки и каждый символ сравнивать с множеством знаков препинаний, и добавлять к слову, если это буква... затем полученное слово сравнить с массивом и либо увеличить счетчик во втором числовом массиве, либо дополнить массив слов. т.е. получается еще вложенный for, плюс цикл на вывод результатов - 3(три) цикла на программу. А у тебя сколько ?