Ввести предложение. Подсчитать количество гласных в нем. В более общей постановке задачи – символов из некоторого эталонного набора (согласные, звонкие согласные, цифры и т.д.).
Текст программы, реализующей эту задачу, приведен ниже.
Program Count_Gl;
Var
Predl,Gl:String; { Предложение и эталонная строка }
n,m,i,j,kol:Integer; { Вспомогательные переменные }
Begin
Gl:=’аеёиоуыэюяАЕЁИОУЫЭЮЯ’; {Строка эталонов}
m:=Length(Gl);
WriteLn('Введите предложение');
ReadLn(Predl);
n := Length(Predl);
kol := 0;
For i:=1 to n do
For j:=1 to m do
If Predl[i] = Gl[j] then
kol:=kol + 1;
Writeln('Количество гласных в предложении = ',kol);
Readln;
End.
Выделение символов в строке и подсчет слов в строке
Ввести предложение длиной не более 80 символов и подсчитать количество слов в нем и количество букв "а". Будем считать, что одно слово от другого отделяется одним пробелом.
Текст программы, реализующей эту задачу, приведен ниже.
Program Predl;
Var
Pr : String;
i, n, Ks, Ka : Integer;
Begin
Ks := 0;
Ka := 0;
Writeln('Введите предложение');
Readln(Pr);
n := Length(Pr); {Длина предложения}
For i := 1 to n do
If Pr[i] = ' ' Then
Ks:= Ks + 1
Else
If Pr[i] = 'a' Then
Ka := Ka + 1;
If Pr[n]<> ' ' Then
Ks:=Ks+1; {если в конце предложения нет пробела}
Writeln('Количество слов в предложении равно ',Ks,
'количество букв а - ',Ka);
End.
