Algorithme
33william
Messages postés
7
Date d'inscription
samedi 25 juin 2005
Statut
Membre
Dernière intervention
22 juillet 2005
-
20 juil. 2005 à 17:51
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 22 juil. 2005 à 16:39
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 22 juil. 2005 à 16:39
12 réponses
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
20 juil. 2005 à 18:31
20 juil. 2005 à 18:31
Dim i As Long
Dim j As Long
Dim n As Long
For i = 1 To 18423
DoEvents
For j = i + 1 To 18424
n = n + 1
Next
Next
MsgBox n
Daniel
Dim j As Long
Dim n As Long
For i = 1 To 18423
DoEvents
For j = i + 1 To 18424
n = n + 1
Next
Next
MsgBox n
Daniel
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
20 juil. 2005 à 18:38
20 juil. 2005 à 18:38
je ne comprend pas trop ta question. tu peux préciser? ou reformuler?
si Gollibit est sur la bonne voie (dans quel cas je comprend encore moins pourquoi tu parles de liste), alors un simple n = 18423^18424 suffit ;)
PCPT
si Gollibit est sur la bonne voie (dans quel cas je comprend encore moins pourquoi tu parles de liste), alors un simple n = 18423^18424 suffit ;)
PCPT
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
20 juil. 2005 à 18:38
20 juil. 2005 à 18:38
"Gobillot" pardon ^^
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
20 juil. 2005 à 18:48
20 juil. 2005 à 18:48
je pense qu'il doit prendre la combinaison 1 avec la 2, puis la 3, jusqu'à la 18424
puis avec la 2, il prend la 3, puis la 4, ect ...
jusqu'à la dernière possibilité 18423 avec la 18424
donc je trouve 169712676 = 18423 * 18424 / 2
Daniel
puis avec la 2, il prend la 3, puis la 4, ect ...
jusqu'à la dernière possibilité 18423 avec la 18424
donc je trouve 169712676 = 18423 * 18424 / 2
Daniel
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
33william
Messages postés
7
Date d'inscription
samedi 25 juin 2005
Statut
Membre
Dernière intervention
22 juillet 2005
20 juil. 2005 à 19:11
20 juil. 2005 à 19:11
je veux regrouper les 18424 combinaisons de 3 numéros dans un minimum de combinaisons de 6 numéros.
sachant qu'avec une combinaison de 6 numeros (ex: 11-24-30-31-33-48)
je peux avoir 20 combinaisons de 3 numeros(11-24-30;11-24-31;etc...31-33-48).
sachant qu'avec une combinaison de 6 numeros (ex: 11-24-30-31-33-48)
je peux avoir 20 combinaisons de 3 numeros(11-24-30;11-24-31;etc...31-33-48).
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
20 juil. 2005 à 19:22
20 juil. 2005 à 19:22
désolé, je ne comprend toujours pas.
réduisons :
les numéros vont de 1 à 4 inclus
tu voudrais une liste avec :
1-2
1-3
1-4
2-3
2-4
3-4
et une autre liste avec :
1-2
1-3
1-4
2-1
2-3
2-4
3-1
3-2
3-4
4-1
4-2
4-3
c'est l'idée?
PCPT
réduisons :
les numéros vont de 1 à 4 inclus
tu voudrais une liste avec :
1-2
1-3
1-4
2-3
2-4
3-4
et une autre liste avec :
1-2
1-3
1-4
2-1
2-3
2-4
3-1
3-2
3-4
4-1
4-2
4-3
c'est l'idée?
PCPT
33william
Messages postés
7
Date d'inscription
samedi 25 juin 2005
Statut
Membre
Dernière intervention
22 juillet 2005
20 juil. 2005 à 19:24
20 juil. 2005 à 19:24
ce n'est pas ce que je veux faire.
je veux regrouper les 18424 combinaisons de 3 numéros dans un minimum de combinaisons de 6 numéros.
sachant qu'avec une combinaison de 6 numeros (ex: 11-24-30-31-33-48)
je peux avoir 20 combinaisons de 3 numeros(11-24-30;11-24-31;etc...31-33-48).
je veux regrouper les 18424 combinaisons de 3 numéros dans un minimum de combinaisons de 6 numéros.
sachant qu'avec une combinaison de 6 numeros (ex: 11-24-30-31-33-48)
je peux avoir 20 combinaisons de 3 numeros(11-24-30;11-24-31;etc...31-33-48).
33william
Messages postés
7
Date d'inscription
samedi 25 juin 2005
Statut
Membre
Dernière intervention
22 juillet 2005
20 juil. 2005 à 19:36
20 juil. 2005 à 19:36
je mets dans un objet list1 (de vb6) le resultat de la boucle suivante :
for i=1 to 47
for j=i+1 to 48
for k=j+1 to 49
list1.Additem i & j & k
next ,next,next
j'obtient donc les 18424 combis de 3 numeros.
je veux ensuite les regrouper dans un nombre (que je ne connais pas a l'avance) de combinaisons de 6 numeros.
En théorie on a 18424/20=921,2 combinaisons de 6 numéros or il me semble que l'on peux réduire de beaucoup ce nombre.
for i=1 to 47
for j=i+1 to 48
for k=j+1 to 49
list1.Additem i & j & k
next ,next,next
j'obtient donc les 18424 combis de 3 numeros.
je veux ensuite les regrouper dans un nombre (que je ne connais pas a l'avance) de combinaisons de 6 numeros.
En théorie on a 18424/20=921,2 combinaisons de 6 numéros or il me semble que l'on peux réduire de beaucoup ce nombre.
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
22 juil. 2005 à 12:27
22 juil. 2005 à 12:27
salut'
est-ce que ce genre de suite te semble être le résultat à abtenir?
1 2 43 1 2 44
1 2 45 1 2 46
1 2 47 1 2 48
1 2 49 1 3 4
1 3 5 1 3 6
1 3 7 1 3 8
1 3 9 1 3 10
1 3 11 1 3 12
1 3 13 1 3 14
...
il y a 9212 lignes
en l'attente...
PCPT
est-ce que ce genre de suite te semble être le résultat à abtenir?
1 2 43 1 2 44
1 2 45 1 2 46
1 2 47 1 2 48
1 2 49 1 3 4
1 3 5 1 3 6
1 3 7 1 3 8
1 3 9 1 3 10
1 3 11 1 3 12
1 3 13 1 3 14
...
il y a 9212 lignes
en l'attente...
PCPT
33william
Messages postés
7
Date d'inscription
samedi 25 juin 2005
Statut
Membre
Dernière intervention
22 juillet 2005
22 juil. 2005 à 16:17
22 juil. 2005 à 16:17
salut
non car les chiffres sont identiques dans ton exemple 1 3 11 1 3 12 (deux fois 1 et deux fois 3) , 1 3 13 1 3 14 (deux fois 1 et deux fois 3) .
ce que je recherche c'est une suite de 6 chiffres non identique
a vrai dire je voudrais obtenir un de combinaison de 6 numeros (nombre le plus petit possible) me permettant de gagner a coup sur 3 numeros
non car les chiffres sont identiques dans ton exemple 1 3 11 1 3 12 (deux fois 1 et deux fois 3) , 1 3 13 1 3 14 (deux fois 1 et deux fois 3) .
ce que je recherche c'est une suite de 6 chiffres non identique
a vrai dire je voudrais obtenir un de combinaison de 6 numeros (nombre le plus petit possible) me permettant de gagner a coup sur 3 numeros
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
22 juil. 2005 à 16:23
22 juil. 2005 à 16:23
comme dirait Coluche si t'as joué le 1 le 13 et le 1, t'as joué 2 fois le 1
le seul moyen de gagner à tous les coups, c'est de ne pas jouer
Daniel
le seul moyen de gagner à tous les coups, c'est de ne pas jouer
Daniel
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
22 juil. 2005 à 16:39
22 juil. 2005 à 16:39
j'me doutais bien que j'essaiyais de trouver inutilement...
si là est le seul but, il n'y a aucun intérêt à repasser par une suite à 6 chiffres, surtout que çà n'apportera rien comme "valeur sûre" pour trouver toujours 3bons numéros sur 6.
tiens, voici tes 11 suites telles que tu les veux alors....
2 48 49 3 4 5
6 48 49 7 8 9
10 48 49 11 12 13
14 48 49 15 16 17
18 48 49 19 20 21
22 48 49 23 24 25
26 48 49 27 28 29
30 48 49 31 32 33
34 48 49 35 36 37
38 48 49 39 40 41
42 48 49 43 44 45
et voici le test de boucle :
If (Tablo2(cpt2).C1 <> Tablo2(cpt2).C4 And Tablo2(cpt2).C1 <> Tablo2(cpt2).C5 And Tablo2(cpt2).C1 <> Tablo2(cpt2).C6) And _
(Tablo2(cpt2).C2 <> Tablo2(cpt2).C4 And Tablo2(cpt2).C2 <> Tablo2(cpt2).C5 And Tablo2(cpt2).C2 <> Tablo2(cpt2).C6) And _
(Tablo2(cpt2).C3 <> Tablo2(cpt2).C4 And Tablo2(cpt2).C3 <> Tablo2(cpt2).C5 And Tablo2(cpt2).C3 <> Tablo2(cpt2).C6) Then
...
bye
PCPT
si là est le seul but, il n'y a aucun intérêt à repasser par une suite à 6 chiffres, surtout que çà n'apportera rien comme "valeur sûre" pour trouver toujours 3bons numéros sur 6.
tiens, voici tes 11 suites telles que tu les veux alors....
2 48 49 3 4 5
6 48 49 7 8 9
10 48 49 11 12 13
14 48 49 15 16 17
18 48 49 19 20 21
22 48 49 23 24 25
26 48 49 27 28 29
30 48 49 31 32 33
34 48 49 35 36 37
38 48 49 39 40 41
42 48 49 43 44 45
et voici le test de boucle :
If (Tablo2(cpt2).C1 <> Tablo2(cpt2).C4 And Tablo2(cpt2).C1 <> Tablo2(cpt2).C5 And Tablo2(cpt2).C1 <> Tablo2(cpt2).C6) And _
(Tablo2(cpt2).C2 <> Tablo2(cpt2).C4 And Tablo2(cpt2).C2 <> Tablo2(cpt2).C5 And Tablo2(cpt2).C2 <> Tablo2(cpt2).C6) And _
(Tablo2(cpt2).C3 <> Tablo2(cpt2).C4 And Tablo2(cpt2).C3 <> Tablo2(cpt2).C5 And Tablo2(cpt2).C3 <> Tablo2(cpt2).C6) Then
...
bye
PCPT
