|
|
|
|
Bonjour,bonjour,comme alex,je suis un joueur de pmu,seulement je ne connais pas du tout exel.j'aimerais savoir si quelqu'un dans la toile,pourrait m'aider a trouver des combinaisons possibles de 5 chifres,entre 1 et 15.
exemple,
12345
13456
23456
12456 etc...
merci de me contacter au :ferreira_m@hotmail.fr ou au 0626741400
Configuration: Windows Vista Firefox 3.0.8
Je cherche a trouver quelqu'un qui puisse m'aider a trouver des combinaisons de 5 chifres ,entre 1-15 numeros
|
Si tu as Excel, colle ce qui suit dans une macro:
For i = 1 To 15
z = 0
For j = 1 To 15
For k = 1 To 15
For l = 1 To 15
For m = 1 To 15
z = z + 1
Cells(z, i).Value = i & "-" & j & "-" & k & "-" & l & "-" & m
Next m
Next l
Next k
Next j
Next i
Bon il faut être patient pour que les 759375 combinaisons s'affichent. Mais bon, on ne le fait qu'une fois! Bon turf |
C'est idiot ce que j'ai écrit hier, c'est ni 15 puis 5, ni 5 puis 15 puisqu'on ne peut pas avoir plusieurs fois le même cheval à l'arrivée. C'est donc un arrangement de 5 chevaux parmi 15 (si on les veux dans l'ordre) ou une combinaidon (dans le désordre) donc respectivement 360360 ou 3003 possibilités.
|
Voila qui est plus mieux:
For i = 1 To 15
z = 0
For j = 1 To 15
If j <> i Then
For k = 1 To 15
If k <> j And k <> i Then
For l = 1 To 15
If l <> k And l <> j And l <> i Then
For m = 1 To 15
If m <> l And m <> k And m <> j And m <> i Then
z = z + 1
Cells(z, i).Value = i & " " & j & " " & k & " " & l & " " & m
End If
Next m
End If
Next l
End If
Next k
End If
Next j
Next i |
Bonjour, il semblerait que 15 cheveaux coutent 6006 euros et sachant que un quinté coute 2 euros, j'en dédui qu'il y a 3003 formules possible!!!
|
Après m'être creusé la méninge, l'affichage des 3003 combinaisons
For i = 1 To 15
z = 0
For j = 1 To 15
If j > i Then
For k = 1 To 15
If k <> j And k <> i And k > j Then
For l = 1 To 15
If l <> k And l <> j And l <> i And l > k Then
For m = 1 To 15
If m <> l And m <> k And m <> j And m <> i And m > l Then
z = z + 1
Cells(z, i).Value = i & " " & j & " " & k & " " & l & " " & m
End If
Next m
End If
Next l
End If
Next k
End If
Next j
Next i
resterait le peaufinage de la présentation pour équilibrer les colonnes et puis en faire une macro générique qui marche quelque soit le nombre d'élément à arranger parmi un nombre d'éléments |