Задан текст в виде последовательности из 40 слов, каждое не более 25 символов. Сколько раз в тексте встречаются слова: ЗНАЧИТ, ВОТ, АВТМОБИЛЬ?через процедуры
В программе предполагается, что слова отделяются друг от друга одним пробелом, знаков препинания нет.
const m=3;
var s:string;
sl:array[1..m] of string=(ЗНАЧИТ, ВОТ, АВТОМОБИЛЬ);
n:array[1..m] of integer;
i:integer;
procedure pr(s1,s2:string; var k:integer);
var l,p:integer;
begin
s1:= +s1+ ;
l:=length(s2);
k:=0;
p:=pos(s2,s1);
while p>0 do
begin
if (s1[p-1]= )and(s1[p+l]= ) then k:=k+1;
delete(s1,1,p+l);
p:=pos(s2,s1);
end;
end;
begin
writeln(Введите текст:);
readln(s);
for i:=1 to m do
begin
pr(s,sl[i],n[i]);
writeln(sl[i], - ,n[i]);
end;
end.
Пример (слов меньше 40):
Введите текст:
ЗНАЧИТ ТАК ВОТ АВТОМОБИЛЬ РАЗ ВОТ АВТОМОБИЛЬ ДВА ВОТ АВТОМОБИЛЬ ТРИ
ЗНАЧИТ - 1
ВОТ - 3
АВТОМОБИЛЬ - 3
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
