Задача №23
Составитьпрограмму для подсчета числа букв А Б В в предложении.
uses crt-
vara,b,c,x,y:integer-
dl,ch,n,cha,chb,chv:integer-
text,text1:string-
aa,bb,vv,cc:char-
label 1,2,3-
begin
clrscr-
writeln(‘какие символы будем считать(a,b,c-через Enter)’)-
readln(aa)-
readln(bb)-
readln(vv)-
writeln(‘Введите текст’)-
readln(text)-
dl:=length(text)-
text1:=text-
cha:=0-
chb:=0-
chv:=0-
n:=pos(aa,text)-
1:if n>-0 then
begin
cha:=cha+1-
Delete(text1,1,n)-
dl:=length(text1)-
if dl>-0 then
begin
n:=pos(aa,text1)-
goto 1-
end
end-
text1:=text-
n:=pos(bb,text1)-
2:if n>-0 then
begin
chb:=chb+1-
Delete(text1,1,n)-
dl:=length(text1)-
if dl>-0 then
begin
n:=pos(bb,text1)-
goto 2-
end
end-
text1:=text-
n:=pos(vv,text1)-
3:if n>-0 then
begin
chv:=chv+1-
Delete(text1,1,n)-
dl:=length(text1)-
if dl>-0 then
begin
n:=pos(vv,text1)-
goto 3-
end
end-
writeln(‘В предложениии ‘,aa,’ встречается ‘,cha,’раз(а) ‘)-
writeln(‘В предложениии ‘,bb,’ встречается ‘,chb,’раз(а) ‘)-
writeln(‘В предложениии ‘,vv,’ встречается ‘,chv,’раз(а) ‘)-
end.
Категория: Строки |
Дата: 15.01.13
|