Fonction récursive
Fermé
xman
-
Modifié par xman le 19/12/2012 à 19:17
KX Messages postés 16753 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 25 novembre 2024 - 21 déc. 2012 à 12:22
KX Messages postés 16753 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 25 novembre 2024 - 21 déc. 2012 à 12:22
A voir également:
- Fonction récursive
- Fonction si et - Guide
- Fonction moyenne excel - Guide
- Fonction somme excel - Guide
- Fonction remplacer word - Guide
- Virginie organise un rallye avec 30 équipes. elle veut créer un code pour désigner chaque équipe. elle a commencé à la main, mais elle voudrait le faire calculer à l'aide d'une formule. proposez une formule comportant une seule fonction et à recopier vers le bas dans la colonne a du fichier à télécharger. quelle formule sera en a9 ? ✓ - Forum Programmation
2 réponses
KX
Messages postés
16753
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
25 novembre 2024
3 020
19 déc. 2012 à 19:46
19 déc. 2012 à 19:46
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;
ccm81
Messages postés
10904
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 décembre 2024
2 428
21 déc. 2012 à 12:15
21 déc. 2012 à 12:15
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
KX
Messages postés
16753
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
25 novembre 2024
3 020
Modifié par KX le 21/12/2012 à 12:33
Modifié par KX le 21/12/2012 à 12:33
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;
