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 :
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 : |