Pgcd et ppcm des entiers naturels

Télécharger le projet
Commenter

Description

Une petite application pour trouver le plus grand commun diviseur et le plus petit commun multiple de deux entiers naturels

Source / Exemple : 


Private Sub Command1_Click()

Dim r As Long

Dim a, b, c As Long

a = Val(Text1.Text)

b = Val(Text2.Text)
If a > 2147483647 Or b > 2147483647 Then
MsgBox ("Entrez une valeur pour a et une valeur pour b inférieur à 2147483647")
Else

If Text1.Text = "" Or Text2.Text = "" Then
MsgBox ("Entrez une valeur pour a et une valeur pour b")
Else

If a = 0 And b = 0 Then
MsgBox ("Le plus grand diviseur de 0 et 0 est infinie.")
Else

    If b = 0 Then
    Text3.Text = a
    Text4.Text = 0
    Text5.Text = 1
    Text6.Text = 0
    Else
    r = a Mod b
     If r = 0 Then
        Text3.Text = b
        Text4.Text = a
        Text5.Text = a / b
        Text6.Text = 1
        Else
   
        While r <> 0
        a = b
        b = r
        r = a Mod b
        Wend
        r = 0
        Text3.Text = b
        Text4.Text = (Text1.Text * Text2.Text) / Text3.Text
        Text5.Text = Text1.Text / Text3.Text
        Text6.Text = Text2.Text / Text3.Text
     End If
    
    End If
End If

End If

End If
End Sub

Private Sub Command2_Click()
End
End Sub

Conclusion :


Mon soft sera mis à jours dans quelque jours
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.