вопрос, строки |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
вопрос, строки |
-Даша- |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 12 Пол: Женский Репутация: 0 |
Ввести 2 строки (это я знаю как делать), найти кол-во слов (это тоже вроде умею) и
найти кол-во одинаковых слов (КАК?) |
volvo |
Сообщение
#2
|
Гость |
Любым способом отсюда: Разбиение на слова. Все способы. разбиваешь обе строки на слова, и потом проходишь по одному массиву (или списку, что ты там выберешь), и проверяешь, есть ли текущее слово во втором массиве (или списке). Если есть - то увеличиваешь счетчик, и переходишь к след. слову в первой последовательности...
|
-Даша- |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 12 Пол: Женский Репутация: 0 |
function Count(Const s, w: String; start: Byte): Byte;
const limits = ['.', ',', ';', '!', '?', ' ']; var p: Byte; begin p:= Pos(w, Copy(s, start, 255)); if (start > length(s)) or (p = 0) then Count := 0 else if (((start + p - 2) = 0) or (s[ start + p - 2] in limits)) and (((start + p + length(w) - 2) = Length(s)) or (s[start + p + length(w) - 1] in limits)) then Count := 1 + Count(s, w, start + p + length(w) - 2) else Count := 0 + Count(s, w, start + p + length(w) - 2); end; begin writeln(count('papa mama i doch mili mili papu s mamoi mama', 'mili',1)); readln; end. Вот программка, которая находит кол-во одинаковых слов. У меня такой вопрос: как её изменить так, чтобы: 1)можно было вводить строку не вот здесь: writeln(count('papa mama i doch mili mili papu s mamoi mama', 'mili',1)); , а во время выполнения самой программы 2)чтобы она искала не заданные слова, а искала слова сама и выводила их кол-во writeln(count('papa mama i doch mili mili papu s mamoi mama', 'mili',1)); |
Текстовая версия | 8.05.2024 12:28 |