urgant svp calcule dynamic (pas de solution)

Question

Bonjour, 
J'aimerais ecrire un script  qui repete le même calcul plusieures fois 

exemple : 

3^2+1 c je donne s ( le nombre de fois ) 


s = 4 

alors 
3^2+1 = 10 premier etape 
10^2+1= 101 deuxième etape 
101^2+1= 10202 troisième etape 
10202^2+1=104080805 dernière etape 

resultat = 104080805 

jai chercher partou mais pas de solution

grand merci pour la reponseeeee

cs_Jack · Answer

Salut
"Urgant" (je suppose "Urgent") : Ca n'a aucun effet ici, à part énerver tout le monde.

Première étape :
Créer une Function avec paramètres dans laquelle tu mets ton calcul et qui te renverra le résultat du calcul.
Deuxième étape :
Répéter l'appel à cette fonction X fois avec une boucle For-Next 

Tout ceci est le b.a.ba. de VB.
Si tu a déjà vu les lignes d'un programme quelconque, ils font tous appels à ce genre de structure.
Bien sûr, il y a aussi l'aide de VB6.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_casy · Answer

Principe des fonctions récursives, avec généralement le calcul de la factorielle donné en exemple 

Ici ça pourrait donner un truc con comme ceci :

Private Sub Form_Load()
  MsgBox (fx(3, 4))

End Sub

Private Function fx(x, n) As Double

  If n = 1 Then
    fx = x ^ 2 + 1
  Else
    fx = fx(x, n - 1) ^ 2 + 1
  End If

End Function


[i][b]---- Sevyc64  (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i

Urgant svp calcule dynamic (pas de solution)

2 réponses

Votre réponse

Discussions similaires