Pgcd, ppcm

Soyez le premier à donner votre avis sur cette source.

Snippet vu 21 492 fois - Téléchargée 79 fois

Commenter

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
101giorgio Messages postés 1 Date d'inscription vendredi 9 novembre 2007 Statut Membre Dernière intervention 20 novembre 2007
20 nov. 2007 à 20:19
Très bien vous remercie!!
CORDIALEMENT
Chricl
26 sept. 2001 à 20:29
Ce code est vraiment génial !
GuillaumeS1
5 juil. 2001 à 00:32
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
FreeZer
7 févr. 2001 à 10:50
10/10 !
FreeZer
5 févr. 2001 à 16:14
bravo pour ce super code !
S'inscrire maintenant

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.