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

[zzz6]

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

[Utkin]

А если в предложении встретилась точка? Она будет считаться элементом слова?

[zzz6]

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

А если в предложении встретилась точка? Она будет считаться элементом слова?

нет не будет))

[Utkin]

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

[Serge_Bliznykov]

Utkin, согласно заголовку темы - точка - всё, конец предложения. Так что, цикл перебора строки можно завершать. Найден конец предложения. И, кстати, в подобных задачах можно считать, что в конце строки 100% есть точка. Иначе исходные данные не соответствуют заданному условию. Поэтому программа может НЕ РАБОТАТЬ! (хотя, безусловно, это касается ТОЛЬКО ИСКЛЮЧИТЕЛЬНО учебных задач! В реальной программисткой практике подобные "вольности" категорически недопустимы!)


zzz6,
традиционный вопрос: что удалось сделать, что не получается?

я бы
1) взял на форуме код парсинга и рабора строки на отдельные слова
примерно так

{отпарсить - разобрать строчку на слова.
 выделить слова} { (c) Stilet}
var 
  s:string; a:array[1..100] of string;
  i,count:integer;
begin
 s:='Hello my world';
 count:=1;
 i:=1; 
 while (i<=length(s)) do begin
   if s[i] in [' ',',','.'] then begin inc(count);inc(i);end;
   a[count]:=a[count]+s[i];
   inc(i);
 end;

2) дальше вариантов масса. Начиная с использования TStringList и банальной сортировки, потом вывод результатов в простом однопроходном цикле.
Либо, обработать массив, проверив, встречается ли I-е (слово с индексом i) слово после текущего I, если встречается - то проверить, если слова нет с индексом меньше I (это значит ранее это слово уже выводилось) - тогда вывести данное слово, как повторяющееся...


p.s. а ещё Вам нужно решить, регистрозависимая ли проверка должна быть ( слова Мама и мама - это повторяющееся или нет...)

[zzz6]

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

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

надо чтоб программа просто выводила повторяющиеся слова в данном предложении. знаки препинания не выводить..)