-->
-->
Soit ch une chaine formée par des lettres alphabétiques
et des espaces.
On se propose de calculer le nombre des voyelles et celui
des consonnes.
program chaine ;
uses wincrt ;
var
ch: string;
i,v,c: integer;
b:boolean;
begin
repeat
writeln('donner une chaine qui renferme seulement des
lettres ou des espaces ');
readln(ch);
repeat
for i:= 1 to length(ch) do
b:= upcase(ch[i]) in ['A'..'Z',' '];
until not(b) or (i=length(ch))
until b ;
CLRSCR;
v:=0; c:=0;
for i:= 1 to length(ch) do
if upcase(ch[i]) in ['A','E','Y','U','I','O'] then
v:= v+1
else
if ch[i] <> ' ' then
c:=c+1;
writeln('le nombre de voyelles dans ',ch,' est : ',v);
writeln('quant à le nombre de consonnes est : ',c,' :p');
end.
