Fonction récursive
xman
-
KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention -
KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
c'est une fonction récursive pour compter le nombre de voyelles dans une chaine ,
je ne sais pas pourquoi lors de l'exécution de cette fonction le résultat est 0 , qui peut m'aide et MERCI D'AVANCE
function nbv(i:integer;ch:string):integer;
var
n:integer;
begin
n:=0;
if(i<=length(ch)) then
if (upcase(ch[i])in['A','E','U','I','O','Y'])then
begin
n:=n+1;
n:=n+nbv(i+1,ch);
end;
nbv:=n;
end;
c'est une fonction récursive pour compter le nombre de voyelles dans une chaine ,
je ne sais pas pourquoi lors de l'exécution de cette fonction le résultat est 0 , qui peut m'aide et MERCI D'AVANCE
function nbv(i:integer;ch:string):integer;
var
n:integer;
begin
n:=0;
if(i<=length(ch)) then
if (upcase(ch[i])in['A','E','U','I','O','Y'])then
begin
n:=n+1;
n:=n+nbv(i+1,ch);
end;
nbv:=n;
end;
A voir également:
- Fonction récursive
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Fonction remplacer sur word - Guide
- Fonction somme excel - Guide
2 réponses
Ton problème se situe dans le fait que ton appel récursif est uniquement dans le cas où la lettre est une voyelle. Si c'est une consonne, tu arrêtes la fonction avec le résultat courant. En réalité tu comptes donc le nombre de voyelles au début du mot. si ton mot commence par une consonne alors ça donne 0.
Remarque : normalement une fonction récursive va toujours du cas le plus compliqué vers le cas le plus simple, tu ne devrais donc pas avoir nbv(i+1,ch); mais nbv(i-1,ch); ce qui tendrait à partir du caractère length(ch) pour progressivement diminuer la complexité et faire un test sur 0, plutôt que "compter" à chaque fois la taille de ch...
function nbv(i:integer;ch:string):integer;
var n:integer;
begin
n:=0;
if(i<=length(ch))
then begin
if (upcase(ch[i]) in ['A','E','U','I','O','Y'])
then n:=n+1;
n := n+nbv(i+1,ch);
end;
nbv:=n;
end;
Remarque : normalement une fonction récursive va toujours du cas le plus compliqué vers le cas le plus simple, tu ne devrais donc pas avoir nbv(i+1,ch); mais nbv(i-1,ch); ce qui tendrait à partir du caractère length(ch) pour progressivement diminuer la complexité et faire un test sur 0, plutôt que "compter" à chaque fois la taille de ch...
function nbv(i:integer;ch:string):integer;
begin
if (i=0)
then result:=0
else if (upcase(ch[i]) in ['A','E','U','I','O','Y'])
then result:= 1+nbv(i-1,ch)
else result:= nbv(i-1,ch);
end;
Bonjour
Une remarque: le paramètre i n'est pas vraiment indispensable ici
bonne journée
Une remarque: le paramètre i n'est pas vraiment indispensable ici
function nbv(ch:string):word;
begin
if ch = ''
then nbv := 0
else
if upcase(ch[1]) in ['A','E','I','O','U','Y']
then nbv := 1+nbv(copy(ch,2,length(ch)-1)
else nbv := nbv(copy(ch,2,length(ch)-1);
end;
bonne journée
Je suis d'accord sur le principe, mais ça nécessite de faire des copy alors qu'on peut s'en passer.
Il est plus simple d'avoir une deuxième fonction qui appelle la première :
D'ailleurs en Pascal on pourrait mettre les deux fonctions en une seule en utilisant la première fonction comme fonction auxiliaire de la deuxième (à utiliser avec parcimonie) :
Il est plus simple d'avoir une deuxième fonction qui appelle la première :
function nbv(ch:string):integer;
begin
result := nbv(length(ch),ch);
end;
D'ailleurs en Pascal on pourrait mettre les deux fonctions en une seule en utilisant la première fonction comme fonction auxiliaire de la deuxième (à utiliser avec parcimonie) :
function nbv(ch:string):integer;
function aux(i:integer;ch:string):integer;
begin
if (i=0)
then result:=0
else if (upcase(ch[i]) in ['A','E','U','I','O','Y'])
then result:= 1+aux(i-1,ch)
else result:= aux(i-1,ch);
end;
begin
result := aux(length(ch),ch);
end;
