générer toutes les grille du loto

Question

j'aimerai savoir coment je pourrai générer toutes les combinaisons  de 6 chiffres du loto (1..49). et les afficher dans un stringgrid.

manu1506 · Answer

c'est que...il y a 13.983.816 combinaisons!

mais bon, tu peux essayer ça :

Ligne:=0;
for a:=1 to 44 do
   for b:=(a+1) to 45 do
      for c:=(b+1) to 46 do
         for d:=(c+1) to 47 do
            for e:=(d+1) to 48 do
               for f:=(e+1) to 49 do begin
                  Ligne:=Ligne+1;
                  Grille[0,Ligne]:=a;
                  Grille[1,Ligne]:=b;
                  Grille[2,Ligne]:=c;
                  Grille[3,Ligne]:=d;
                  Grille[4,Ligne]:=e;
                  Grille[5,Ligne]:=f;
               end;

Sachant qu'au Loto, l'ordre des chiffres ne compte pas :
1 2 3 4 5 6 est équivalent à 6 5 4 3 2 1 par exemple

Générer toutes les grille du loto

1 réponse

Votre réponse

Discussions similaires