Discussion :

[Maxence45]

Bonsoir , dans cette fonction que j'ai écrite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function toutou(ByVal n As Long) As Long
 
If n >= 0 Then
    toutou = toutou((n*(n + 1) * (2 * n + 1)) / 6)
Else
   toutou = n
 
End Function

A la compilation j'ai le message variable non définie et ça me surligne cette ligne :

toutou = n

mais ya pas besoin de définir de variable ici c'est quoi cette histoire ?

merci

[Gorfael]

Salut
il te manque un "End If"
si tu mets -1 => avec le end if, la function renvoit bien -1, mais
tu utilises la fonction en boucle et tu as une erreur de "#valeur " du au dépassement de capacité, puisqu'à chaque appel
n secondaire devient ((n*(n + 1) * (2 * n + 1)) / 6)
si f(n)=((n*(n + 1) * (2 * n + 1)) / 6)
toutou (2) = toutou(f(2)) = toutou(f(f(2))) etc.
et Excel dépasse la capacité de Long et renvoit une erreur
avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function toutou(ByVal n As Long) As Long
If n >= 0 Then
    toutou = ((n * (n + 1) * (2 * n + 1)) / 6)
Else
   toutou = n
End If
End Function

ça marche
A+

[Maxence45]

c'est gentil de répondre mais ça serait plus gentil de ne pas mettre de code tt fait sinon je bosse pas , j'ai une question :

c'est de la récursivité que je dois employer donc je peux pas écrire toutou = formule , je dois écrire :

toutou = toutou(...)

vu que c'est une fonction qui s'appelle , toi ton code n'est pas récursif .

[ucfoutu]

juste un mot, maxence :

n ne sera jamais inférieur à 0 avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
toutou = toutou((n*(n + 1) * (2 * n + 1)) / 6)

et ta récursivité sera alors sans fin.

[Maxence45]

oui ucfoutu et je me rappelle bien d'un message de pgz quii disait qu'il fallait que n converge pour que la fonction soit récursive mais ici j'ai 2 questions :

1.est ce que le code de gorfael donne une fonction récursive ? Je dirai NON mais j'attends confirmation

2.est ce que cette modification rend ma fonction récursive :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

toutou = toutou(n-1)* ((n + 1) * (2 * n + 1)) / 6)

merci

[ucfoutu]

Oui aux deux réponses.
Seule ta fonction est récursive et elle l'est sans fin ...

[Maxence45]

alors comment modifierais tu ma modification pour que mon toutou = toutou(n-1)* ((n + 1) * (2 * n + 1)) / 6) possède une fin ?

et je ne vois pas en quoi la fonction de Gorfael est récursive vu qu'elle ne s'appelle pas...

[ucfoutu]

1) je t'ai précisément confirmé :

Seule ta fonction est récursive et elle l'est sans fin ...

2)

c'est gentil de répondre mais ça serait plus gentil de ne pas mettre de code tt fait sinon je bosse pas , j'ai une question :
.

Alors ? ...

comment modifierais tu ma modification pour que mon toutou = toutou(n-1)* ((n + 1) * (2 * n + 1)) / 6)

a) n'appelle pas de réponse possible (car ce serait donner un code et tu as été clair sur ce point).
b) ne risque pas d'en appeler dès lors que l'on ne connait pas la finalité même de la fonction (le résultat à retourner)..


Bon travail.

[Maxence45]

non mais maintenant que j'ai la réponse on peut poster des codes voyons , donc si j'ai çà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function toutou(ByVal n As Long) As Long
 
If n >= 0 Then
    toutou = toutou(n-1)* ((n + 1) * (2 * n + 1)) / 6)
Else
   toutou = n
 
End Function

tu dis que ce code est sans fin ? pourtant je décrémente bien n à chaque appel de fonction...

[ucfoutu]

Ah oui, je vois que ton premier code :

Bonsoir , dans cette fonction que j'ai écrite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function toutou(ByVal n As Long) As Long

If n >= 0 Then
    toutou = toutou((n*(n + 1) * (2 * n + 1)) / 6)
Else
   toutou = n

End Function

a été entre temps bouleversé (le n est devenu n-1)

Mais je vois un drôle de truc .... (compte donc tes parenthèses) ...

dans ;

toutou = toutou(n-1)* ((n + 1) * (2 * n + 1)) / 6)

Allez

Bon appétit...

[Gorfael]

c'est gentil de répondre mais ça serait plus gentil de ne pas mettre de code tt fait sinon je bosse pas , j'ai une question :

c'est de la récursivité que je dois employer donc je peux pas écrire toutou = formule , je dois écrire :

toutou = toutou(...)

vu que c'est une fonction qui s'appelle , toi ton code n'est pas récursif .

Salut
Pour te donner une réponse, il faudrait qu'on ait une idée de la question !
Comme je ne sais pas ce que tu attends, j'ai donné une solution, qui corrige ton erreur (manque end if), mais qui donne un résultat différent d'une erreur.
Ta formule avec n-1 est finie, mais comme tu ne donnes aucune indication
sur ce que tu espères trouver, on peut chercher pendant des mois, ce ne serait que chance que de partir dans la bonne direction.

Une fonction recursive doit avoir un résultat fini pour qu'Excel te le donnes. Mais pour que ça fonctionne, on doit avoir une idée du résultat.

Pour l'instant je ne sais ni la finalité de la formule, ni ce que tu cherches sur le forum.
J'abandonne
A+