Une problème du pascal (boucles & testes)
Résolu
hadir
-
hadir -
hadir -
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??!!
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??!!
A voir également:
- Une problème du pascal (boucles & testes)
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Comment tester une tête de parabole ✓ - Forum TNT / Satellite / Réception
- Comment tester le wifi dans une maison - Guide
1 réponse
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.
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.
c'est plus facile