Discussion :

[Maxence45]

Bonsoir , est ce que dans cette fonction que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
Function puiss(ByVal x As Long, ByVal n As Double) As Double
If x <> 0 And n > 0 Then
    puiss = puiss(x) * n
Else
    puiss = 1
End If
End Function

vous voyez un probleme avec les arguments à cette ligne : puiss = puiss(x) * n

merci

[ouskel'n'or]

Oui, ta fonction attend deux arguments et, dans ta ligne, puiss(x), il n'y en a qu'un.
Regarde ce que dit l'aide pour les arguments "Optional" à Function, instruction, exemple
Mais je ne suis pas du tout certain que ce soit adapté à ton problème.

[Maxence45]

j'ai modifié la fonction mais apparemment j'ai un probleme de pile , pourtant je sors de ma fonction comme il faut ... :

Code :

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

1
2
3
4
5
6
7
Function puiss(ByVal x As Long, ByVal n As Double) As Double
If x <> 0 And n > 0 Then
    puiss = puiss(x, n) * n
Else
    puiss = 1
End If
End Function

[pgz]

Bonsoir.

vous voyez un probleme avec les arguments à cette ligne : puiss = puiss(x) * n

Je vois au moins 2 pb :
- C'est une forme récursive non convergente ( On va revoir l'erreur 28)
- la fonction puiss est censée avoir 2 arguments.

Bon courage,

PGZ

[Maxence45]

et là j'ai essayé de faire en sorte que ça converge mais bon çà met tjs l'erreur que tu as cité :

Code :

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

1
2
3
4
5
6
7
Function puiss(ByVal x As Long, ByVal n As Double) As Double
If x <> 0 And n > 0 Then
    puiss = puiss(x, n) * (n - 1)
Else
    puiss = 1
End If
End Function

[pgz]

Tu appelles toujours la fonction avec les mêmes arguments : il n'y a donc jamais de fin.

Voici par exemple une fonction récursive qui calcule x^n, avec x réel et n entier relatif.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function puiss(ByVal x As Double, ByVal n As Integer) As Double
 
If n > 0 Then
    puiss = puiss(x, n - 1) * x
ElseIf n < 0 Then
    puiss = puiss(x, n + 1) / x
Else
    puiss = 1
End If
 
End Function

A chaque appel de la fonction puisssance, n est modifié, jusqu'à ce qu'il vaille 0, ce qui permet d'arrêter les appels récursifs.
Le If porte donc sur n!
Ici on traite le cas n>0 et n<0.

Bon courage,

PGZ

[Maxence45]

merci pgz en fait j'étais très proche de ton résultat car j'avais finir par écrire :

puiss = puiss(x, n - 1) * n

mais c'etait * x qu'il fallait écrire , tes explications m'ont été utiles dans ma compréhension de la récursivité je t'en remercie .