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
|