Pgcd, ppcm

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 187 fois - Téléchargée 76 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

Messages postés
1
Date d'inscription
vendredi 9 novembre 2007
Statut
Membre
Dernière intervention
20 novembre 2007

Très bien vous remercie!!
CORDIALEMENT
Ce code est vraiment génial !
j'avais fait le meme programme et je viens de tomber sur celui-ci! rien à rajouter...:)et donc pas besoin de le mettre dans la liste
bravo pour ce super code !

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.