Pgcd, ppcm

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 193 fois - Téléchargée 66 fois

Contenu du snippet

2 fonctions: PPCM(A,B) l'autre PGCD(A,B) a mettre dans un module. Les 2 doivent être présente dans votre projet car le PPCM se calcule en fonction du PGCD.

Source / Exemple :


'--------------------------------'

'////////////////////'
'// AUTEUR Coyotte //'
'////////////////////'

'pgcd pbtenu par l'algorithme d'euclide.
'ppcm obtenu en fonction de ppcm.

'29/11/2000

'Si vous utiliser uniquement la fonction ppcm(,), la fonction pgcd',) doit aussi être présente !

'--------------------------------'

'Determination du plus grand diviseur commmun
Function PGCD(A1, B1)

'Si erreur:
        If A1 = 0 And B1 = 0 Then PGCD = 1: Exit Function

While B1 <> 0
        Q = Int(A1 / B1)
        Z = A1
        A1 = B1
        B1 = Z - Q * B1
Wend

PGCD = A1

End Function

'Determination du plus petit multiple commun (en foncion du pgcd)
Function ppcm(A1, B1)

        ppcm = (A1 * B1) / PGCD(A1, B1)

End Function

Conclusion :


le code de votre forme sera par exemple
X= PGCD (11,7)
La valeur renvoyée pour X sera 1.
Y = PPCM (2,4)
La valeur renvoyé pour Y sera 4.

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de FreeZer

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.