Задание на строки :)

[zirko_o]

Среди слов заданного предложения найти такое, которое чаще всего встречается в предложении.

[Stilet]

Наработки?
Попытки?

[zirko_o]

Я так понимаю, что нужно разбить строку на слова, подсчитать статистику, вывести самое встречаемое. Трудности с тем, как найти одинаковое слово.

[Stilet]

Разбить строку на слова сможешь?

[zirko_o]

Вроде так?

var predl,razd,slovo:string;  i:integer;
begin
readln(predl);
 razd := ', :;-().?!';
 slovo := '';
 for i := 1 to length(predl) do
 begin
    if pos(predl[i], razd) = 0 then
          slovo := slovo + predl[i]
    else
     begin if length(slovo)>0 then writeln(slovo) ;
             slovo := '';
     end; 
 end;
 end.

[Stilet]

Не фонтан...
Ладно. Опишу стратегию.
Сделай тип:

words=record
 s:string; // Это слово найденное в тексте
 n:integer; // Это кол-во его появлений в тексте.
end;
var w:array[1..10000] of words;

Далее в цикле выделяешь слово. Ищещь его в массиве том, и если найдено увеличиваешь поле n

i:=pos(' ',s); k:=1;
while i<>0 do begin
 s2:=copy(s,1,i-1);
 found:=false;
 for j:=0 to k do if w[j].s=s2 then begin inc(w[j].n);break; found:=true; end;
 if not found then begin w[j].s:=s2; w[j].n=1; end;
 i:=pos(' ',s); 
end;

Таким образом получаешь статистику вхождения слов.
Ну дальше надеюсь понятно что нужно делать?

[zirko_o]

Как ни стыдно признаться, но не совсем. Но огромное спасибо за помощь, я постараюсь разобраться!

[Stilet]

Хорошо что не просишь полный код, значит полюбому разберешся )