Plus grand denominateur commun

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 232 fois - Téléchargée 72 fois

Contenu du snippet

Recherche le plus grand denomiateur commun entre 2 chiffres.

Source / Exemple :


'***********************************************************************************************************
' Name       : xGCF
' Purpose    : Returns the Greatest Common Factor
'              i.e. The largest number which will evenly divide into both X and Y
' Syntax     : xGCF(Number1, Number2)
' Parameters : Number1  : 1st number
'              Number2  : 2nd number
' Return     : The Greatest Common Factor
'***********************************************************************************************************
Public Function xGCF(ByVal Number1 As Long, ByVal Number2 As Long) As Long
    Dim lngTemp As Long
    
    Number1 = Abs(Number1) 'Make both numbers positive
    Number2 = Abs(Number2)
    lngTemp = Number1 Mod Number2
    
    Do While lngTemp > 0
        Number1 = Number2
        Number2 = lngTemp
        lngTemp = Number1 Mod Number2
    Loop
    
    xGCF = Number2
End Function

A voir également

Ajouter un commentaire

Commentaires

jmfmarques
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
18 -
Euh......
Et pourquoi ne pas utiliser la récursivité, dans cette "affaire" ?

Faisons-le, juste pour voir :

Public Function PGCD(X As Long, Y As Long) As Long
If X Mod Y = 0 Then
PGCD = Y
Else
PGCD = PGCD(Y Mod X, X)
End If
End Function

Amitiés à tous
C'est bien mais il faut pouvoire telecharger les programme facilemant le metre en premiere page.

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.