Astuces de recherche...
Home
- Accueil & nouveautés
- Les newsgroups VB
- Téléchargements
- L'équipe
- Nous contacter
- Liens
Rubriques
- Toutes les questions
- Affichage & graphismes
- Algorithmique
- API
- Base de registre
- Bases de données
- Contrôles
- Date & heure
- Déploiement
- Divers
- Erreurs & problèmes
- Fichiers & dossiers
- Généralités
- Impression
- Internet & mails
- Math
- Multimédia
- Réseaux
- Structures de données
- Texte & strings
- VB .Net
- VB Script
- VBA
- Windows

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