Forum de mathématiques - Bibm@th.net
Vous n'êtes pas identifié(e).
- Contributions : Récentes | Sans réponse
Pages : 1
#1 Re : Programmation » Combinaisons de numéros » 08-04-2019 20:03:07
Bonsoir,
Moi, je fais des recherches en passant par les Modulo, les Entiers ou autres, mais pas évident.
A +
#2 Re : Programmation » Combinaisons de numéros » 03-04-2019 18:36:15
Grand Merci Yoshi
Grace a ta 1ére idée, j'ai trouvé l'identique en VBA:
Dim lst As New List(Of Decimal)
For p1 = 1 To 67
For p2 = p1 + 1 To 68
For p3 = p2 + 1 To 69
For p4 = p3 + 1 To 70
lst.Add(p1 & p2 & p3 & p4)
Next p4
Next p3
Next p2
Next p1
lst.IndexOf("1111824") '--> 18513
A voir s'il n'y a pas d'erreur avec des N° accollés sinon je passerai en Dim lst As New List(Of String).
J'ai testé, ça marche aussi.
C'est ok aussi pour 5 N° mais Dépassement de mémoire pour 6 N° donc ..... formule.
#3 Re : Programmation » Combinaisons de numéros » 02-04-2019 16:30:21
Merci yoshi.
ta solution est trés bien .
En VBA cela fonctionne:
Dim Keno(67, 68, 69, 70), Numero As Long (mém. importante(22 005 480) pour 4N° ok mais pas 5)
For p1 = 1 To 67
For p2 = p1 + 1 To 68
For p3 = p2 + 1 To 69
For p4 = p3 + 1 To 70
Numero = Numero + 1
Keno(p1, p2, p3, p4) = Numero
Next p4
Next p3
Next p2
Next p1
mais je ne trouve pas pour convertir keno(Numero)=(p1,p2,p3,p4) en VBA qui ne prend que 916 895.
Merci aussi pour Python mais vu que je ne suis pas un grand programmeur, je reste sur Vba.
je suis donc toujours à la recherche d'une solution.
#4 Re : Programmation » Combinaisons de numéros » 01-04-2019 17:16:43
Voila comment je trouve les numéros en VBA mais c'est beaucoup trop long:
A = 6: B = 7: C = 8: D = 9
Numero = 0
For p1 = 1 To 67
For p2 = p1 + 1 To 68
For p3 = p2 + 1 To 69
For p4 = p3 + 1 To 70
Numero = Numero + 1
If p1 = A And p2 = B And p3 = C And p4 = D Then
MsgBox (Numero)
Exit Sub
End If
Next p4
Next p3
Next p2
Next p1
Je cherche une formule d'aprés les relations ci-dessous mais je ne suis pas assez calé en maths pour trouver
71-4= 71-5= etc...
M-N= 67 66 65
X-Y= 2 278 2 211 2 145 2 080
M N
52 394 50 116 47 905 45 760 43 680
X Y
A 1 2 3 4 5 6
B 2 3 4 5 6 7
C 3 4 5 6 7 8
D 4 5 6 7 8 9
Numéro 1 52 395 102 511 150 416 196 176 239 856
#5 Re : Programmation » Combinaisons de numéros » 01-04-2019 13:28:07
J'ai beaucoup trop d'accès disque,non il me faut une formule.
#6 Re : Programmation » Combinaisons de numéros » 30-03-2019 14:20:28
Comme j'ai un très grand nombre de fois à calculer ce numéro, je pensais que des boucles ce serai trop long mais j'ai fait ta méthode et
ça a l'air impeccable.Je ne gagnerai surement pas grand chose avec une formule mais c'était pour le Fun.
Grand merci à toi.
#7 Programmation » Combinaisons de numéros » 30-03-2019 10:06:40
- bidibulle63
- Réponses : 15
Combinaisons au jeu du Keno
Nombre de Numéros : 70
916 895 combinaisons de 4N°
Je recherche le numéro d'une combinaison sachant que :
1-2-3-4 --> N°1
1-2-3-70 --> N°68
1-2-4-5 --> 69
1-2-4-70 --> 133
1-2-5-6 --> 134 etc,etc,etc...
Autres exemples ( si pas d'erreur) :
1-30-31-32 --> 41 735
1-68-69-70 --> 52 394
2-3-4-5 --> 52 395
Je recherche donc une formule qui pourrait me donner ces numéros en fonction bien sur des 4N°
ou un algorithme si une formule n'est pas possible.
Je préferai une formule car c'est pour faire avec Visual Studio donc Visual Basic.
Merci d'avance et si vous trouvez, pouvez-vous faire la même chose pour 5N° voir éventuellement 6N°.
Pages : 1