bonsoir, j'ai un exo en visual et ce que j'ai fait me laisse perplexe, si quelqu'un pouvait y jeter un coup d'oeil svp ..
j'ai (un) avec n>0 une suite numérique avec u1 = 2 et un = 2u(n-1)+3 je dois écrire un algorithme qui demande à l'utilisateur la valeur de n puis affiche u(n)
voila ce que j'ai écrit :
Sub exo()
Dim i, n As Integer
Dim S() As Integer
n = InputBox("donner la valeur de n" )
ReDim S(n)
For i = 1 To n S(1) = 2 S(i) = 2 * S(i - 1) + 3 Next
MsgBox ("la valeur de Sn est " & S(n))
End Sub
ça tourne, le soucis c'est que j'arrive pas à comprendre pourquoi quand je mets n=1 il calcule et trouve S(1)=3 alors que je précise bien que S(1)=2 .
si qqn pouvait m'aider à corriger ça svp et jeter un ptit coup d'oeil sur mon prog, merci !
Tu dis que S(1)=2, puis tu dis que S(de 1 à n)=qqch d'autre. Donc, à ta première boucle, n vaut 1. Vérifie ta logique.
--------------- Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Marsh Posté le 14-03-2005 à 21:21:33
bonsoir, j'ai un exo en visual et ce que j'ai fait me laisse perplexe, si quelqu'un pouvait y jeter un coup d'oeil svp ..
j'ai (un) avec n>0 une suite numérique avec u1 = 2 et un = 2u(n-1)+3
je dois écrire un algorithme qui demande à l'utilisateur la valeur de n puis affiche u(n)
voila ce que j'ai écrit :
Sub exo()
Dim i, n As Integer
Dim S() As Integer
n = InputBox("donner la valeur de n" )
ReDim S(n)
For i = 1 To n
S(1) = 2
S(i) = 2 * S(i - 1) + 3
Next
MsgBox ("la valeur de Sn est " & S(n))
End Sub
ça tourne, le soucis c'est que j'arrive pas à comprendre pourquoi quand je mets n=1 il calcule et trouve S(1)=3 alors que je précise bien que S(1)=2 .
si qqn pouvait m'aider à corriger ça svp et jeter un ptit coup d'oeil sur mon prog, merci !