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