Question 182

Comment calculer le Plus Grand Commun Diviseur (PGCD) de 2 nombres ?

Le calcul du PGCD peut parfois être utile, par exemple pour simplifier des fractions. Le calcul du PGCD est très simple à implémenter en VB, à l'aide de l'algorithme d'Euclide :

'
' Retourne le PGCD de n1 et n2, selon l'algorithme d'Euclide
'
Function PGCD(ByVal n1 As Long, ByVal n2 As Long) As Long

    If n2 = 0 Then
        PGCD = n1
    Else
        PGCD = PGCD(n2, n1 Mod n2)
    End If
End Function

A noter que l'on peut utiliser cette fonction pour calculer le "Plus Petit Commun Multiple"

Pour aller plus loin

Voir aussi :

Date de publication : 06 mars 2008
Dernière modification : 06 mars 2008
Rubriques : Math
Mots-clés : calcul, algorithme, euclide, multiple, diviseur, commun, PGCD, PPCM, PPMC