Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Cherche 1 bon en algo + math ???

Cherche 1 bon en algo + math ???

17 réponses
Avatar
X
Bonjour,

J'ai un problème, je dois comparer 20 données avec "toutes" les
possiblité possibles, qui pourrait à l'aide de boucles me faire un algo ???

Sub Form_Load()
Dim nb(20)
Dim i As Long
'
i = 1
nb(i) = 29.99: i = i + 1
nb(i) = 228.97: i = i + 1
nb(i) = 200: i = i + 1
nb(i) = 116.87: i = i + 1
nb(i) = 7.3: i = i + 1
nb(i) = 500: i = i + 1
nb(i) = 92: i = i + 1
nb(i) = 1130.55: i = i + 1
nb(i) = 11.2: i = i + 1
nb(i) = 172.33: i = i + 1
nb(i) = 18.02: i = i + 1
nb(i) = 57.6: i = i + 1
nb(i) = 24.8: i = i + 1
nb(i) = 24.8: i = i + 1
nb(i) = 3.38: i = i + 1
nb(i) = 15.9: i = i + 1
nb(i) = 14.4: i = i + 1
nb(i) = 66.98: i = i + 1
nb(i) = 112.5: i = i + 1
nb(i) = 7.3
End Sub

Merci beaucoup, au revoir et à bientôt :o)
------
Site
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
John Smith
Si je comprend bien tu veux faire se genre d'opération
Tirée d'un livre de statistique 4 lettres Combinaison possible de 3 lettres
A,B,C,D
Combinaison Arrangement
ABC ABC ACB BAC BCA CAB CBA
ABD ABD ADB BAD BDA DAB DBA
ACD ACD ADC CAD CDA DAC DCA
BCD BCD BDC CBD CDB DBC DCB


Toi tu aurais 20 nombre combinaison possible de 2 nombres, 3 nombres,etc...
20 nombres
est-ce que j'ai bien compris?

"X" <x> wrote in message news:
Bonjour,

J'ai un problème, je dois comparer 20 données avec "toutes" les
possiblité possibles, qui pourrait à l'aide de boucles me faire un algo
???

Sub Form_Load()
Dim nb(20)
Dim i As Long
'
i = 1
nb(i) = 29.99: i = i + 1
nb(i) = 228.97: i = i + 1
nb(i) = 200: i = i + 1
nb(i) = 116.87: i = i + 1
nb(i) = 7.3: i = i + 1
nb(i) = 500: i = i + 1
nb(i) = 92: i = i + 1
nb(i) = 1130.55: i = i + 1
nb(i) = 11.2: i = i + 1
nb(i) = 172.33: i = i + 1
nb(i) = 18.02: i = i + 1
nb(i) = 57.6: i = i + 1
nb(i) = 24.8: i = i + 1
nb(i) = 24.8: i = i + 1
nb(i) = 3.38: i = i + 1
nb(i) = 15.9: i = i + 1
nb(i) = 14.4: i = i + 1
nb(i) = 66.98: i = i + 1
nb(i) = 112.5: i = i + 1
nb(i) = 7.3
End Sub

Merci beaucoup, au revoir et à bientôt :o)
------
Site
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------











Avatar
Clive Lumb
Clive Lumb wrote:
Voilà, j'ai déja une réponse - mais je vais continuer parce qu'il
peut y en avoir plusieurs
Indices :3 9 10 11 15 17 18
Montants : 200 11,2 172,33 18,02 3,38 14,4 66,98



Je confirme, combinaison unique.
Avatar
John Smith
J'ai pas fait encore l'algo mais
Nb de chiffre Nb d'addition Nb combinaison
20 2 190
20 3 1140
20 4 4845
20 5 15504
20 6 38760
20 7 77520
20 8 125970
20 9 167960
20 10 184756
20 11 167960
20 12 125970
20 13 77520
20 14 38760
20 15 15504
20 16 4845
20 17 1140
20 18 190
20 19 20
20 20 1
somme 1048555

"John Smith" wrote in message
news:JkbAf.20380$
Si je comprend bien tu veux faire se genre d'opération
Tirée d'un livre de statistique 4 lettres Combinaison possible de 3
lettres
A,B,C,D
Combinaison Arrangement
ABC ABC ACB BAC BCA CAB CBA
ABD ABD ADB BAD BDA DAB DBA
ACD ACD ADC CAD CDA DAC DCA
BCD BCD BDC CBD CDB DBC DCB


Toi tu aurais 20 nombre combinaison possible de 2 nombres, 3
nombres,etc...
20 nombres
est-ce que j'ai bien compris?

"X" <x> wrote in message news:
Bonjour,

J'ai un problème, je dois comparer 20 données avec "toutes" les
possiblité possibles, qui pourrait à l'aide de boucles me faire un algo
???

Sub Form_Load()
Dim nb(20)
Dim i As Long
'
i = 1
nb(i) = 29.99: i = i + 1
nb(i) = 228.97: i = i + 1
nb(i) = 200: i = i + 1
nb(i) = 116.87: i = i + 1
nb(i) = 7.3: i = i + 1
nb(i) = 500: i = i + 1
nb(i) = 92: i = i + 1
nb(i) = 1130.55: i = i + 1
nb(i) = 11.2: i = i + 1
nb(i) = 172.33: i = i + 1
nb(i) = 18.02: i = i + 1
nb(i) = 57.6: i = i + 1
nb(i) = 24.8: i = i + 1
nb(i) = 24.8: i = i + 1
nb(i) = 3.38: i = i + 1
nb(i) = 15.9: i = i + 1
nb(i) = 14.4: i = i + 1
nb(i) = 66.98: i = i + 1
nb(i) = 112.5: i = i + 1
nb(i) = 7.3
End Sub

Merci beaucoup, au revoir et à bientôt :o)
------
Site
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------















Avatar
X
Merci beaucoup :o)

-----------

"Clive Lumb" a écrit dans le message
de news:
Clive Lumb wrote:
Voilà, j'ai déja une réponse - mais je vais continuer parce qu'il
peut y en avoir plusieurs
Indices :3 9 10 11 15 17 18
Montants : 200 11,2 172,33 18,02 3,38 14,4 66,98



Je confirme, combinaison unique.




Avatar
X
Merci, c'est exactement ce que je cherchais, pourrais-tu m'envoyer l'algo
stp ???

http://irolog.free.fr/ecrire/index.htm


"Clive Lumb" a écrit dans le message
de news:
Clive Lumb wrote:
Voilà, j'ai déja une réponse - mais je vais continuer parce qu'il
peut y en avoir plusieurs
Indices :3 9 10 11 15 17 18
Montants : 200 11,2 172,33 18,02 3,38 14,4 66,98



Je confirme, combinaison unique.




Avatar
X
Clive,

Merci pour le "rar" mais je n'ai rien pour l'ouvrir, ne pourrais-tu pas
me l'envoyer en zip ???

@+, bye, Joe

----------------

"Clive Lumb" a écrit dans le message
de news:
Clive Lumb wrote:
Voilà, j'ai déja une réponse - mais je vais continuer parce qu'il
peut y en avoir plusieurs
Indices :3 9 10 11 15 17 18
Montants : 200 11,2 172,33 18,02 3,38 14,4 66,98



Je confirme, combinaison unique.




Avatar
Clive Lumb
X wrote:
Clive,

Merci pour le "rar" mais je n'ai rien pour l'ouvrir, ne
pourrais-tu pas me l'envoyer en zip ???

@+, bye, Joe

----------------



Je renvoie en zip, mais WinRar est mieux - à essayer ici
http://www.rarlab.com/rar/wrar351fr.exe
1 2