Подсчитать количество заданных слов в строке - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы