Discussion :

[Asdorve]

Bonjour,
en regardant la proposition pour savoir si un nombre est premier, je me rappelle d'une formule qui concerne les nombres premiers qui utilise les factorielles "!" en notation mathématique.http://fr.wikipedia.org/wiki/Formule...mbres_premiers


apparemment il n'y a rien en vb qui permette de calculer les factorielles.
Il n'y a rien de plus simple (plus d'info ici), mais pour ceux qui n'y entendent rien en mathématique je propose une fonction Factorielle:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Function Factorielle(n As Integer) As Double
  On Error GoTo Erreur
  Factorielle = 1
  For i = 1 To n
    Factorielle = Factorielle * i
  Next
 
  Exit Function
Erreur:
  MsgBox "Dépassement de capacité, veuillez saisir un nombre compris entre 1 et 170"
  Exit Function
End Function

Ainsi, lors d'un calcul, il suffira de faire :

Code :

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

1
2
3
 
'exemple : 2 + 5!
res = 2 + Factorielle(5)

Voilà, c'est tout simple, mais j'espère que ça servira à quelqu'un.

A bientôt.
J'attends vos éventuelles remarques.

[sovo]

just une remarque

lorsque je lis ceci

MsgBox "Dépassement de capacité, veuillez saisir un nombre compris entre 1 et 170"

ca veux dire que tu connais deja la borne sup ??

Alors pourquoi faire des calculs alors que tu sais d'office que ca ne va pas aboutir ??

faire un test sur l'appartenance a l'interval [1,170] avant de faire les calculs ??

Ca donnerais un truc de ce genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Function Factorielle(n As Integer) As Double
 
  if n > -1 and n < 171 then   
       Factorielle = 1
       For i = 1 To n
            Factorielle = Factorielle * i
       Next
   else
       MsgBox "Veuillez saisir un nombre compris entre 1 et 170"
   end if
End Function

[Jihnn]

(Je te conseille aussi de déclarer la variable i, et de commencer ta boucle For par 2, parce que x * 1 = x ^^)