Factoriel

Soyez le premier à donner votre avis sur cette source.

Vue 4 812 fois - Téléchargée 352 fois

Description

Cette une petite application qui calcule le factoriel d'un nombre donné.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

adilzakaria
Messages postés
1
Date d'inscription
mercredi 18 août 2004
Statut
Membre
Dernière intervention
26 août 2004

comment imprimer un etat a partir du vb
gandalfkhorne
Messages postés
70
Date d'inscription
dimanche 11 janvier 2004
Statut
Membre
Dernière intervention
1 octobre 2004

Une valeur de 10 E + 1 002 156 402 (d'après la calculatrice)

Plutôt cela dsl mais ca me semblait bizarre meme extraordainaire le nombre d'avant. :'<
gandalfkhorne
Messages postés
70
Date d'inscription
dimanche 11 janvier 2004
Statut
Membre
Dernière intervention
1 octobre 2004

Le Val(m) nique tous les nombres au dessus de 10E17 il me semble alors évite ;)

Sinon t'aurais pu mettre le code :

Private Sub Text1_Change()
m = 1
If Right(Text1, 1) <> "!" Then
Text2 = Text1
ElseIf Right(Text1, 1) = "!" Then
For i = 1 To Text2
m = m * i
Next i
Text3 = Val(m)
End If
End Sub

Sinon utilise les matrices pour améliorer la portée de ta factorielle, tu pourras alors atteindre des nombres d'une valeur de 10E286330400598229001 (d'après la calculatrice)
Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010

Ca a le mérite de marcher...
Il faut juste signaler aux futurs utilisateurs que ce qu'on entre dans le premier textbox doit se terminer par '!' (ex 64!) pour que le programme se mette à calculer. Il ne le fait pas en temps réel.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.