VB.Net > Calcul du pgcd

Titre	Calcul du pgcd
Postée le	22-06-2011
Affichée	346
Mini-lien
Description	Tiens le voila! (trouvé sur le net) :)
Etat	Ne contient pas d'erreurs.

Code d'insertion

Options

Téléchargement

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

Tiens le voila! (trouvé sur le net) :)