Подсчитать количество заданных слов в строке - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Разработать подпрограмму обработки исходного предложения на русском языке (из 50÷80 знаков, в котором слова отделяются друг от друга пробелами), с целью подсчета в предложении заданного союза (например, "и", "или" и т.п.)

Решение задачи: «Подсчитать количество заданных слов в строке»

textual
Листинг программы
var
  s, u: String;
  c, p: Integer;
begin
  Write('Предложение: '); ReadLn(s); s:=' '+s+' ';
  Write('Союз: '); ReadLn(u); u:=' '+u+' ';
  p:=Pos(u,s); {c:=0;}
  while p<>0 do begin Inc(c); Delete(s,p,Length(u)-1); p:=Pos(u,s) end;
  WriteLn('Вхождений: ',c);
end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы