вопрос, строки Опции

[-Даша-]

Ввести 2 строки (это я знаю как делать), найти кол-во слов (это тоже вроде умею) и
найти кол-во одинаковых слов (КАК?)

[Sozialist]

Можно использовать следующую структуру:

type
TWordCount=record
word:string;
count:integer;
end;
Var
Ms:array [1..n] of TWordCount;

Алгоритм:
Выделяем 1 слово, записываем в ms[i].word, inc(ms[i].count).
Выделяем 2 слово, если одно совпадает с каким нибудь ms[j].word, то делаем inc(ms[j].count), в противном случае делаем так же, как с первым словом.
В конце концов имеем массив записей, который считает кол-во всех слов. Если ms[i].count>1, то ms[i].word является повторяющимся словом с кол-вом повторений ms[i].count.
Может кто предложит более мощный вариант с меньшей затратой памяти, ибо я использовал ее безжалостно.

[-Даша-]

Можно использовать следующую структуру:

type
TWordCount=record
word:string;
count:integer;
end;
Var
Ms:array [1..n] of TWordCount;

Алгоритм:
Выделяем 1 слово, записываем в ms[i].word, inc(ms[i].count).
Выделяем 2 слово, если одно совпадает с каким нибудь ms[j].word, то делаем inc(ms[j].count), в противном случае делаем так же, как с первым словом.
В конце концов имеем массив записей, который считает кол-во всех слов. Если ms[i].count>1, то ms[i].word является повторяющимся словом с кол-вом повторений ms[i].count.
Может кто предложит более мощный вариант с меньшей затратой памяти, ибо я использовал ее безжалостно.

Что-то сложновато, а можно ещё раз и по пунктам?
Ну, например, вот как прописать следующее:
1)находим слова
2)записываем найденные слова в отдельные массивы (а если этих слов много, то что делать?)
3)сравниваем полученные массивы со словами
4)находим кол-во одинаковых слов
5)выводим результат (сколько одинаковых слов было найдено)