A Nico1610 - RécursivitéRésolu

Question

J'ai trouv&#233; ce programme dans les codes sources et la proc&#233;dure combinaisons m'est incompr&#233;hensible. Merci pour ton aide,
GDM

Private Sub cmdGO_Click()
Dim Valeur(0 To 2) As Integer
Dim i As Integer
Dim N As Long
Dim Fichsortie As Integer
Fichsortie = 1
Open "c:\m.doc" For Output As #1
    For i = 0 To 2
        If Not IsNumeric(txtSomme(i).Text) Then Exit Sub
        Valeur(i) = CInt(txtSomme(i).Text)
    Next


    With lstCombinaisons
'       .Clear
        Combinaisons Valeur(0), Valeur(1), Valeur(2)
        N = .ListCount
        If N < 0 Then N = 2 ^ 16 + N    ' d&#233;passement de capacit&#233;
        .AddItem CStr(N) & " possibilit&#233;(s) :", 0
    End With
    Print #1,
    Print #1, CStr(N) & " s&#233;ries "
    Close #1
End Sub


' -------------------------------------------------------------------
' Nom  : Combinaisons
' Desc : Cherche k nombres diff&#233;rents, inf&#233;rieurs ou &#233;gaux &#224; N,
'        tels que leur somme soit &#233;gale &#224; Somme
' -------------------------------------------------------------------
Private Sub Combinaisons( _
    ByVal Somme As Integer, ByVal k As Integer, ByVal N As Integer, _
    Optional ByVal strComb As String = "")
Dim Min As Integer, Max As Integer
Dim i As Integer


    Min = k * (k + 1) / 2
    Max = (N + 1) * k - Min
    If Somme < Min Or Somme > Max Then Exit Sub
    
    If k = 1 Then                       ' fin de la r&#233;cursivit&#233;
        If Somme <= N Then              ' combinaison trouv&#233;e
            strComb = strComb & CStr(Somme)
            lstCombinaisons.AddItem strComb
        End If
    Print #1, strComb
    Else                                ' lance la r&#233;cursivit&#233;
        Max = Somme - k * (k - 1) / 2
        Min = (2 * Somme - Max) / k
        If N < Max Then Max = N
        For i = Max To Min Step -1
            Combinaisons Somme - i, k - 1, i - 1, _
                         strComb & CStr(i) & "+"
        Next
    End If
  
End Sub

GDM

Gobillot · Accepted Answer

pour comprendre, il faut prendre un exemple et essayer de suivre: exemple avec: Somme=9 k=3 N=5 contrôle: 3+4+5 --> Max=12 1+2+3 --> Min=6 donc 9 est bien compris entre 6 et 12 pour un chiffre en moins (k=2): - le Minimun est de 3 (=1+2) il reste donc un Max de 9 - 3 --> 6 - jusqu'à une limite moyenne ??? <-- c'est ici le point le plus délicat Min ( (Somme-Max) + (Somme))/kt (9-6 + 9)/3 = 4 - etc ... récapitulation: Somme=9 k=3 N=5 Max=9 - 3*2/2 = 6 Min (2*9 - 6)/34 N < Max donc Max=5 i=5 Combinaisons 4,2,4,"5+" Somme=4 k=2 N=4 Max=4 - 2*1/2 = 3 Min(2*4-3)/2 2 i=3 Combinaisons 1,1,2,"5+3+" k=1 donc print "5+ 3+ 1" i=2 Combinaisons 2,1,1,"5+2+" eXit parce que Somme > 1 i=4 Combinaisons 5,2,3,"4+" Somme=5 k=2 N=3 Max=5 - 2*1/2 = 4 Min(2*5-4)/2 3 N < Max donc Max=3 i=3 Combinaisons 2,1,2,"4+3+" k=1 donc print "4+ 3+ 2" Daniel

ScSami · Answer

Bon, et alors, c'est quoi ton probl&#232;me ???

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

Zlub · Answer

Salut,

Bel effort de Gobillot !! .. j'ai pas v&#233;rifi&#233; mais je lui fais confiance...

Bon courage ..

++

Zlub

Gobillot · Answer

pour plus d'explications, il vaudrait mieux s'adresser directement &#224; l'auteur



http://vbfrance.com/code.aspx?ID=20350
Daniel

Zlub · Answer

Salut,


Re bel effort de Gobillot ... qui lache pas le morceau !!

++

Zlub

LIQUIDAMBAR · Answer

Bonjour,

Merci &#224; tous pour avoir daign&#233; r&#233;pondre &#224; mon probl&#232;me. Proficiat Gobillot, c'&#233;tait on ne peut plus clair. Encore un tout grand merci.

GDM

A Nico1610 - Récursivité

6 réponses

Discussions similaires