Générateur de combinaisons, comment séquencer le travail ?

Version imprimable

Je cherche toutes les combinaisons possibles avec 26 caractères.

En théorie, il faut un tableau T(26) de 26 caractères.

Imbriquer 26 boucles (0 to 26)
et écrire
T(1),T(2),T(3),T(4),..........T(24),T(25),T(26).

Facile.

Le problème c'est que c'est complètement ingérable pour l'ordinateur, nous conviendrons.

Donc, ayant au préalable testé des fonctions récursives

http://www.developpez.net/forums/d99...ion-caractere/
Sans succès (Max 6 Caractères)

J'ai testé Ceci Sur 3 caracteres

'''' (....Début VB....)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Dim mot As String Dim a As Integer Dim b As Integer Dim c As Integer mot = a & b & c ListBox1.Items.Add(mot) While a <= 2 And b <= 2 And c <= 2 c = c + 1 mot = a & b & c ListBox1.Items.Add(mot) If c = 2 Then c = 0 b = b + 1 End If If b = 2 And c = 2 Then b = 0 c = 0 a = a + 1 End If End While
'''' (....Fin VB....)

Ne me donne pas toutes les combinaisons des trois caractères a,b,c.

Comment faire pour " cloisonner" le travail de l'ordinateur,comment faire fonctionner les boucles les unes indépendamment des autres en enregistrant les résultats.

J'ai essayé de récupérer la valeur intermédiaire de 4 boucles imbriquées, d'enregistrer les données, de sortir des boucles, et de reprendre les boucles (Travail) au niveau ou je les avais laissé.

Ce fut un échec.

Je pense qu'il doit y avoir un moyen de générer en plusieurs étapes par séquences et en plusieurs liste la totalité des combinaisons de 26 caractères par 26 caractères.

Qu'en pensez vous

29/11/2010, 23h51
pseudocode

Je pense que si tu remplaces tes caractères a,b,c par des chiffres 1,2,3 la réponse t'apparaitra plus clairement. :D
30/11/2010, 00h17
Gilles57-H-G

C'est pas le problème, ou alors il faudrait faire des conversion de string et boucler sur une chaine de caractère.

Je doit avoir
000
001
002
010
011
012
020
021
022
100
101
102
110
111
112
120
121
122
200
201
202
210
211
212
220
221
222
30/11/2010, 00h23
pseudocode

cool. Ca ressemble rudement a un compteur en base 3, non ? ;)
30/11/2010, 00h27
Gilles57-H-G

J'ai la feuille , je l'ai écrite à la main c'est facile LOL.

Je suis en train de faire le dernier algo avec des boucles...:aie:

Comment faire pour avoir toutes ces combinaisons ?

Dans ton exemple, pour avoir les combinaisons à 3 éléments parmi 3 il suffit d'écrire les 27 (3*3*3) premiers nombres en base 3.

Logiquement, pour avoir les combinaisons à 26 éléments parmi 26 il suffit d'écrire les 26^26 premiers nombres en base 26.

(ca fait tout de meme + de 6.10^36 :P)
Code:

1 2 3 4 5 6 7 8 décimal base26 ------- ----------------------- 0000..0 [0][0][0][0]...[0] 0000..1 [0][0][0][0]...[1] 0000..2 [0][0][0][0]...[2] ... 26^26-1 [25][25][25][25]...[25]

Il faut "imbriquer" 26 boucles, et réussir a faire des enregistrement.

Il ne faut pas que toutes les boucles soient lancées au même moment.
Faire des paquet de 50000 réponses

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Dim top As Integer
        top = 0
        Dim mot As String
        Dim a As Integer
        Dim b As Integer
        Dim c As Integer
        Dim cc As Integer
 
 
        While top <= 27
            For c = cc To 2
                top = top + 1
                If a = 3 Then
                    Exit For
                    Exit While
                End If
 
                mot = a & b & c
                ListBox1.Items.Add(mot)
 
 
                If c = 2 Then
 
                    b = b + 1
                    If b = 3 Then
                        b = 0
                        a = a + 1
                        'b = 0
                        'c = 0
                        If a = 3 Then
                            Exit For
                            Exit While
                        End If
                        mot = a & b & c - 2
                        ListBox1.Items.Add(mot)
 
 
 
                    End If
                    If a = 1 And b = 0 And c = 2 Then
 
                        Exit For
                    End If
                    If a = 2 And b = 0 And c = 2 Then
 
                        Exit For
                    End If
 
                    mot = a & b & c - 2
                    ListBox1.Items.Add(mot)
 
                    cc = 1
                    Exit For
                End If
            Next
 
        End While

Cela fonctionne.

Mais c'est Bidon, c'est de l'empirique. :marteau:

Il Me Faudrait une Bonne vraie Méthode :zen:

30/11/2010, 14h50
pseudocode

Citation:

Envoyé par Gilles57-H-G

Il faut "imbriquer" 26 boucles, et réussir a faire des enregistrement.

Non, pas forcément.

Si on te donne un nombre en base 26, c'est facile de trouver le nombre suivant (et donc la combinaison suivante).

Par exemple si on te donne le nombre [9][1][17][8][22], alors le suivant est [9][1][17][8][23]. Il suffit d'ajouter 1 au dernier paquet.

Le cas qu'il faut gérer, c'est quand on dépasse la valeur max (25), auquel cas le paquet repasse à 0 et on ajoute 1 au paquet précédent. C'est comme un compteur kilométrique.

[1][17][8][24] -> [1][17][8][25] -> [1][17][9][0] -> [1][17][9][1] -> ...
30/11/2010, 21h06
Gilles57-H-G

Je te remercie pour ton aide.
J'ai trouvé ceci :
http://www.vbaexpress.com/kb/getarticle.php?kb_id=949
c'est adaptable sans Excel.

Bon je crois avoir une piste.:aie:

Je vais écrire (sur trois caractères je dois avoir 27 Résultats) :
Pseudo Code

Var A = 0
Var B =0
Var C =0

Écrire A B C "1 Résultat" = AAA
C= C + 1
Écrire A B C "2 Résultat" = AAB
C= C + 1
Écrire A B C "3 Résultat" = AAC

Si C = 2
C = 0
B = B +1
Fin Si

Écrire A B C "4 Résultat" = ABA
C= C + 1
Écrire A B C "5 Résultat" = ABB
C= C + 1
Écrire A B C "6 Résultat" = ABC

Si C = 2
C = 0
B = B +1
Fin Si

Écrire A B C "7 Résultat" = ACA
C= C + 1
Écrire A B C "8 Résultat" = ACB
C= C + 1
Écrire A B C "9 Résultat" = ACC

Si C= 2 ET B =2
C = 0
B =0
A = A+1

Fin Si

Écrire A B C "10 Résultat" = BAA
C= C + 1
Écrire A B C "11 Résultat" = BAB
C= C + 1
Écrire A B C "12 Résultat" =BAC

Si C = 2
C = 0
B = B +1
Fin Si

Écrire A B C "13 Résultat" = BBA
C= C + 1
Écrire A B C "14 Résultat" = BBB
C= C + 1
Écrire A B C "15 Résultat" =BBC

Si C = 2
C = 0
B = B +1
Fin Si

Écrire A B C "16 Résultat" = BCA
C= C + 1
Écrire A B C "17 Résultat" = BCB
C= C + 1
Écrire A B C "18 Résultat" =BCC

Si C= 2 ET B =2
C = 0
B =0
A = A+1

Fin Si

Écrire A B C "19 Résultat" = CAA
C= C + 1
Écrire A B C "20 Résultat" = CAB
C= C + 1
Écrire A B C "21 Résultat" =CAC

Si C = 2
C = 0
B = B +1
Fin Si

Écrire A B C "22 Résultat" = CBA
C= C + 1
Écrire A B C "23 Résultat" = CBB
C= C + 1
Écrire A B C "24 Résultat" =CBC

Si C = 2
C = 0
B = B +1
Fin Si

Écrire A B C "25 Résultat" = CCA
C= C + 1
Écrire A B C "26 Résultat" = CCB
C= C + 1
Écrire A B C "27 Résultat" =CCC

je ne sais pas si c'est la solution...

Je vais voir l'écrire avec 5 caractères avec des tableaux :calim2:

Je conçoit que toute les combinaison de 26 caractères par 26 caractères soit totalement irréalisable.

Cependant ceci génère un "mot" de 10 lettres avec, n lettres.
Mettre les lettres dans la variable "alpha"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
 
Dim fo As New Form2
 
        Dim t1() As String
        Dim t2() As String
        Dim t3() As String
        Dim t4() As String
        Dim t5() As String
        Dim t6() As String
        Dim t7() As String
        Dim t8() As String
        Dim t9() As String
        Dim t10() As String
        Dim cont As Long
 
        Dim test As Integer
 
        test = 0
 
        Dim a, b, c, d, ee, f, g, h, i, j As Integer
        Dim mot As String
        Dim alpha As String
 
        alpha = "a,b,c,d"
 
        t1 = Split(alpha, ",")
        t2 = Split(alpha, ",")
        t3 = Split(alpha, ",")
        t4 = Split(alpha, ",")
        t5 = Split(alpha, ",")
        t6 = Split(alpha, ",")
        t7 = Split(alpha, ",")
        t8 = Split(alpha, ",")
        t9 = Split(alpha, ",")
        t10 = Split(alpha, ",")
 
        Dim top As Integer
        top = UBound(t10)
 
        Dim cond As Integer
        cond = 0
 
 
        While j < top + 1
 
 
            For a = 0 To top
                cont = cont + 1
                mot = t1(j) & t2(i) & t3(h) & t4(g) & t5(f) & t6(ee) & t7(d) & t8(c) & t9(b) & t10(a)
 
                Select Case test
                    Case 0
                        fo.ListBox1.Items.Add(mot)
                    Case 1
                        fo.ListBox2.Items.Add(mot)
                End Select
 
 
                If a = top And b = top And c = top And d = top And ee = top And f = top And g = top And h = top And i = top Then
                    b = 0
                    c = 0
                    d = 0
                    ee = 0
                    f = 0
                    g = 0
                    h = 0
                    i = 0
                    j = j + 1
                    Exit For
                End If
 
                If a = top And b = top And c = top And d = top And ee = top And f = top And g = top And h = top Then
                    b = 0
                    c = 0
                    d = 0
                    ee = 0
                    f = 0
                    g = 0
                    h = 0
                    i = i + 1
 
                    Exit For
                End If
 
 
                If a = top And b = top And c = top And d = top And ee = top And f = top And g = top Then
                    b = 0
                    c = 0
                    d = 0
                    ee = 0
                    f = 0
                    g = 0
                    h = h + 1
                    Exit For
                End If
 
 
                If a = top And b = top And c = top And d = top And ee = top And f = top Then
                    test = 1
                    b = 0
                    c = 0
                    d = 0
                    ee = 0
                    f = 0
                    g = g + 1
                    Exit For
                End If
 
 
                If a = top And b = top And c = top And d = top And ee = top Then
                    b = 0
                    c = 0
                    d = 0
                    ee = 0
                    f = f + 1
                    Exit For
                End If
 
 
                If a = top And b = top And c = top And d = top Then
                    b = 0
                    c = 0
                    d = 0
                    ee = ee + 1
                    Exit For
                End If
 
 
                If a = top And b = top And c = top Then
                    b = 0
                    c = 0
                    d = d + 1
                    Exit For
                End If
 
 
                If a = top And b = top Then
                    b = 0
                    c = c + 1
                    Exit For
                End If
 
                If a = top Then
                    b = b + 1
                    Exit For
                End If
 
 
            Next
 
        End While
        fo.Text = cont
        fo.Show()