Discussion :

[maryach]

est ce ke kelk1 sait comment faire pr ecrire un code de nombres amicaux?
merci...

[Kiboumz]

Salut,

Personnellement, je ne sais pas ce que tu veux dire par "code nombre amicaux", je ne sais pas si je suis le seul ...

Petit conseil, explique plus en détails tes problèmes si tu veux des réponses ...

a+

[maryach]

Deux nombres N et M sont dits nombres amicaux, si la somme des diviseurs stricts (sauf N) de N est égale
à M et la somme des diviseurs stricts (sauf M) de M est égale à N

[belocom]

Voila un exercice qui me plait bien. je m'y mets.
Dans les diviseurs de N et M, 1 est compris ?

[belocom]

Une première version, un peu "bourrin", on va affiner !
Le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Public Class Amicaux
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim m, somme_divM, somme_divN, maxi As Integer
        maxi = valmax.Text
        ListBox1.Items.Clear()
        Label7.Text = ""
        For m = 1 To maxi
            somme_divM = getsomme_div(m)
            If somme_divM > m Then
                somme_divN = getsomme_div(somme_divM)
                If somme_divN = m Then
                    ListBox1.Items.Add(m.ToString & " et " & somme_divM.ToString)
                    Me.Refresh()
 
                End If
            End If
            If m Mod 1000 = 0 Then
                Label7.Text = m.ToString
                Me.Refresh()
            End If
        Next
        MsgBox("C'est fini")
    End Sub
    Function getsomme_div(ByVal n As Integer) As Integer
        Dim i, demi_n As Integer
        getsomme_div = 0
        demi_n = n / 2
        For i = 1 To demi_n
            If n Mod i = 0 Then
                getsomme_div += i
            End If
        Next
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label7.Text = ""
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
 
    End Sub
End Class

Dans la pièce jointe, Amicaux.doc, l'image de la form.

[maryach]

merci beaucoup c'est gentil de ta part.