une problème du pascal (boucles & testes) Résolu/Fermé

Question

Bonjour,
j'ai cet exercice qui dit:<< on se propose un programme qui saisit une phrase puis calcule et affiche le nombre des voyelles.NB:la phrase est en minuscule .>>

et je n'ai pu pas le terminer :

uses wincrt;
var a:string;
aa,ii,uu,oo,ee,j:integer;
begin
writeln('donner une phrase:');
readln(a);
repeat
aa:=pos('a',a);
if (aa>0) then
j:=j+1;
ee:=pos('e',a);
if (ee>0) then
j:=j+1;
ii:=pos('i',a);
if (ii>0) then
j:=j+1;
uu:=pos('u',a);
if (uu>0) then
j:=j+1;
oo:=pos('o',a);
if (oo>0) then
j:=j+1;
until( ????????);
writeln('nombre de voyelle est:',j);
end.

qui peut svp m'aider??!!

zayneb · Answer

bonjour, tu peux resoudre ce probleme avec une autre methode plus facile

program voyelle;
uses wincrt;
var
ch:string;
i,n,nv:integer;

begin
writeln('saisir une phrase differante de la chaine vide'); readln(ch);
nv:=0;
 for i:=1 to length(ch) do
  if (ch[i] in ['a'..'z']) then
   if upcase(ch[i]) in ['A','E','I','O','U','Y'] then
         nv:= nv +1;
 writeln('le nombre de voyelles est: ',nv);
 end.

Une problème du pascal (boucles & testes)

1 réponse

Discussions similaires