Подсчитать количество заданных слов в строке - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д