FACTORIELS ET COMBINAISONS

Function Combinaison(n As String, k As String) As String
'Les deux premieres étapes évitent des calculs évidents

If k = 0 Or n = k Then
   Combinaison = 1
   Exit Function
End If

If k = 1 Or k = n - 1 Then
   Combinaison = n
   Exit Function
End If

Combinaison = Factoriel(n) / (Factoriel(k) * Factoriel(n - k))

End Function

Function Factoriel(n As String) As String
Dim f As String

If n <= 1 Then
   'Par convention 0!=1
     
   Factoriel = 1
Else
   Factoriel = n * Factoriel(n - 1)
End If

End Function

Télécharger le zip

18 juillet 2005 06:55:00 :

Modifications suite au commentaire de Zlub.

25 novembre 2005 21:42:45 :

Code

• CARRÉ PAR MÉTHODE DE L'ABAQUE
• ETUDE DE FONCTIONS ALÉATOIRES
• FONCTION VRAIMENT ALÉATOIRE
• MATHÉMATIQUES PÉDAGOGIQUES
• DESSIN TYPE PAINT MAIS ORIENTÉ MATHS

• EQUATION DU SECOND DEGRÉ RÉSOLUE AVEC DEUX METHODES
• PROJECTION SOLEIL
• INTERRUPTEUR ALÉATOIRE
• PROBABILITES
• PIVOT DE GAUSS

• CALCUL DÉTAILLÉ DE FACTORIEL
• POK_CALC POUR LE POKER TEXAS HOLDEM
• COMBILETTRE : LOGICIEL DE COMBINAISON DE LETTRES
• CALCUL DE LA FACTORIELLE D'UN NOMBRE AVEC TOUS SES CHIFFRES (AUCUNE LIMITE !)
• TIMON ET PUMBA