Определить какое слово встречается в тексте чаще всего

[Aleksandr H.]

Как вариант?

    wordToCount := 'НЕТ';
    Counter := 0;
    inputLine := 'НЕТasНsНЕТНЕТ';
    WordPosition := pos(wordToCount,inputLine);
    while WordPosition >0 do
    begin
        inc(Counter);
        inputLine := Copy(inputLine,WordPosition+length(wordToCount),length(inputLine)-WordPosition+length(wordToCount));
        WordPosition := pos(wordToCount,inputLine);
    end;
    writeln(Counter);

[kostya_hor]

.........

[kostya_hor]

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

короче, такой код - "в топку"!

а как правильн сделать?

[Serge_Bliznykov]

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

а как правильн сделать?

во-первых, Вы определитесь, Вам нужно учитывать вхождение заданной подстроки или искать строго совпадение по словам?
ну, например, дана подстрока "нет"
во фразе
"брюнетка тонет, но паники нет."
сколько совпадений?

от этого и нужно дальше плясать.

[kostya_hor]

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

"брюнетка тонет, но паники нет."
сколько совпадений?

да,вот так надо сделать

[Serge_Bliznykov]

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

да,вот так надо сделать

как так?!
я задал вам вопрос - сколько совпадений в приведённом мной примере?
Ноль совпадений?
Одно совпадение?
Два совпадения?
Три совпадения?

[kostya_hor]

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

я задал вам вопрос - сколько совпадений в приведённом мной примере?

у меня есть текст и мне нужно узнать сколько в тексте словосочетаний "нет"

[Serge_Bliznykov]

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

у меня есть текст и мне нужно узнать сколько в тексте словосочетаний "нет"

так.
Вы без программы можете посчитать.
сколько в тексте "брюнетка тонет, но паники нет."
словосочетаний "нет" ?

[Serge_Bliznykov]

впрочем, не трудитесь.
не считайте.
это трудно и сложно.

возьмите готовый код.

procedure TForm5.Button1Click(Sender: TObject);
var s,sl:string;
    i,k:integer;
begin
  s :=Edit1.Text;  //  Строка:
  sl :=Edit2.Text; // искомое слово
  if sl='' then Exit; // если пустая строка, ничего не делаем
  k:=0;
  for i:=1 to length(s)+1-length(sl) do 
     if Copy(s,i,length(sl))=sl then Inc(k);
    
  Edit3.Text :=Format('Словосочетание %s встречается %d раз', [sl, k]);
end;

[kostya_hor]

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

Вы без программы можете посчитать.

если бы проблема была в этом
а мне именно надо сделать программу
Вводишь в Edit допустим эту строчку "брюнетка тонет, но паники нет." , нажимаешь кнопку и в другой Edit выводит ,что там 3 словосочетаний "нет"