palpelune
Messages postés9Date d'inscriptionmercredi 24 avril 2002StatutMembreDernière intervention22 juin 2005
-
13 juil. 2004 à 14:01
lexsty
Messages postés169Date d'inscriptionsamedi 10 décembre 2005StatutMembreDernière intervention18 juin 2017
-
6 janv. 2006 à 01:09
Bonjour,
J'aimerais faire un programme qui calcule l'ensemble des combinaisons possible au loto, masi je ne sais pas ou commencer pourriez vous m'aider en me donnant une idée de lancement
Merci d'avance
A voir également:
Algorithme loto excel gratuit
Système réducteur loto excel - Meilleures réponses
cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 200910 13 juil. 2004 à 17:08
et comme ça???
For i = 1 To 49
For j = 1 To 49 If j i Then j j + 1
For z = 1 To 49 If z i Then z z + 1 If z j Then z z + 1
Combo1.AddItem i & " - " & j & " - " & z
Next z
Next j
Next i
capoueidiablo
Messages postés316Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention 1 février 20101 13 juil. 2004 à 14:46
a tu deja entendu parler des combinaisons en mathematique ?
c'est justement le faite de chercher les possibilitées possible d'un événement. fait quelque recherches la dessus se sera plus sure :)
sinon le nombre de combinaison possible au loto est de : 13 983 816
tu dois avoir 6 numèros sur 49
Possibilitée = (49 x 48 x 47 x 46 x 45 x 44) / (1 x 2 x 3 x 4 x 5 x 6)
Voili voilou ++
--Capoueidiablo--
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 200910 13 juil. 2004 à 14:52
Dans l'exemple de Tilois il y a 49 boules différentes
sinon Tilois if i=j exit for...il manque un then avant le exit...et je ne vois pas l'utilité..
pour 3 boules ayant pour possible valeur de 1 à 49
-----------------------------------------------------------------------------------
For i = 1 To 49
For j = 1 To 49
For z = 1 to 49
Combo1.AddItem i & " - " & j & " - " & z
Next z
Next j
Next i
-----------------------------------------------------------------------------------
cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 200910 13 juil. 2004 à 17:07
et comme ça???
For i = 1 To 49
For j = 1 To 49 If j i Then j j + 1
For z = 1 To 49 If z i Then z z + 1 If z j Then z z + 1
Combo1.AddItem i & " - " & j & " - " & z
Next z
Next j
Next i
Vb Lover
Messages postés221Date d'inscriptionvendredi 30 novembre 2001StatutMembreDernière intervention13 février 20105 13 juil. 2004 à 22:48
par contre, pour 7 boules, je ne sais pas vous, mais moi je trouve nul d'avoir 7 next qui se suivent... J'utiliserais donc une version récursive. Remarquez au passage que ça donne le minimum de combinaisons, avec toutes les boules différentes.
palpelune
Messages postés9Date d'inscriptionmercredi 24 avril 2002StatutMembreDernière intervention22 juin 2005 16 juil. 2004 à 00:21
Merci les gars c'est vraiment sympas de me repondre ce week end je vais essayer j'espere ne pas faire planter mon ordinateur avec toutes ces combinaisons en tout cas merci encore.
corbeau93
Messages postés13Date d'inscriptionjeudi 26 décembre 2002StatutMembreDernière intervention 3 avril 2008 26 juil. 2004 à 16:36
J'ai un vieux programme qui calcul les stat, ecart, nombre sortie...
mais il est en quick basic, faudrai remettre a jour la base de donnee des tirages, si ca t'interesse....