Bibm@th

Forum de mathématiques - Bibm@th.net

Bienvenue dans les forums du site BibM@th, des forums où on dit Bonjour (Bonsoir), Merci, S'il vous plaît...

Vous n'êtes pas identifié(e).

#1 Re : Programmation » Combinaisons de numéros » 08-04-2019 19: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 17: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 15: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 16: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 12: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 13: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 09: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°.

Pied de page des forums