Comment lister des combinaisons ???

Question

Bonjour à tous,


Je cherche à établir la liste de toutes les combinaisons possibles d'une table de N élément par 


un programme VB.NET.


La taille de ce tableau étant variable je ne peux pas utiliser de For imbriqués.


J'ai essayer d'utiliser une fonction récursive mais je galère à fond.


Quelqu'un à t'il une idée ???


Merci d'avance

pymaster · Answer

Bonjour 

Si les for te gène à cause de ton tableau variable alors utilise un While non ? Tu pouras alors placer tes propres conditions plus librement. 

Aussi c'est pas très clair :

Je cherche à établir la liste de toutes les combinaisons possibles d'une table de N élément 

Parceque même avec un for normalement c'est facile non ?

dim tabCombi as List(of string) ' Je suppose que c'est de string 
dim i as integer
dim j as integer
dim tabVar() as string 

code ....
i = nbElementTabVar
j = nbElementTabVar

for i = 0 to nbElementTabVar - 1
  for j = 0 to nbElementTabVar  - 1
      tabCombi.add(tabVar(i) & tabVar(j))
  next
next

Est ce que c'est ce genre de chose que tu veux ?

PY

cs_DARKSIDIOUS · Answer

Si la taille de tes tableaux sont variables, il te faut en effet recourir à la récursion (c'est le plus simple !).

Ca te fera deux boucles : Une boucle pour les lignes, et une boucle pour les colonnes de ton tableau.
Cependant, attention aux boucles infinies !

Ca donnerai un truc de ce genre (à tester donc !) :

function combinaison(x, y)
if x = limiteX then exit function
if y = limiteY then exit function
For i = x to limiteX
    For j = y to limiteY
        combinaison(x, y+1)
    next j
next i
end function

Dolphin Boy · Answer

Salut, je ne sais pas si ça te convient mais j'ai retrouvé un de mes bout de code écrit en VB6 avec une form et un commandbutton (mais ça peut surement marcher en vb.net) qui trouve toutes les combinaisons possibles d'un tableau à une dimension et n éléments avec exclusion des valeurs déjà connues (ici, j'ai limité le nombre d'éléments à 3 - en rouge -) :

'déclaration des tableaux utilisés
Dim tablo_origine() As Integer
Dim tablo_test() As Boolean
Dim tablo_resultat() As Integer


Private Sub Command1_Click()
Dim i As Integer, nElements As Integer
  'dimensionnement du tableau d'origine et remplissage
  ReDim tablo_origine(3)
  nElements = UBound(tablo_origine)
  For i = 0 To nElements
    tablo_origine(i) = i
  Next
  'dimensionnement des tableaux test et résultat
  ReDim tablo_test(nElements)
  ReDim tablo_resultat(0)
  'lancement de la procédure récursive
  test 0
End Sub


Sub test(n As Integer)
Dim i As Integer, i1 As Integer
Dim s As String
  For i = 0 To UBound(tablo_origine)
    'si valeur non sélectionnée
    If tablo_test(i) = False Then
      tablo_resultat(n) = tablo_origine(i)
      'si on a parcourru tout le tableau d'origine
      If n = UBound(tablo_origine) Then
        'on construit la chaine d'affichage
        s = ""
        For i1 = 0 To n
          s = s & tablo_resultat(i1)
        Next
        'on affiche la chaine
        MsgBox s
      'sinon, on relance la procédure récursive
      Else
        'on coche la valeur déjà choisie
        tablo_test(i) = True
        'on prépare le tableau résultat
        ReDim Preserve tablo_resultat(n + 1)
        'on relance la procédure
        test UBound(tablo_resultat)
        'on rétablit le tableau résultat d'avant
        ReDim Preserve tablo_resultat(n)
        'on décoche la valeur déjà choisie
        tablo_test(i) = False
      End If
    End If
  Next
End Sub


Si tu as des questions, je reste à l'écoute.

cs_zephyrin · Answer

Salut 


essaie dans ton for de mettre :


 




dim i as interger



for i = 0 to ubound(MonTab)



...



next



et ainsi tu ne t'occupes pas de la taille de tes tableaux.






Zephyrin

LukeSkywalker67 · Answer

Merci à tous de vos réponses,
J'avais mal poser mon problème : en fait cela revient à établir une table de vérité à 2^N combinaisons.
J'ai fait un petit algo tout simple qui marche bien.

A+

Comment lister des combinaisons ???

5 réponses

Votre réponse

Discussions similaires