Calcul de pgcd , ppcm

Soyez le premier à donner votre avis sur cette source.

Vue 17 068 fois - Téléchargée 733 fois

Description

Un simple calcul de PGCD et de PPCM entièrement commenté. Ce code peut facilement rentrer dans un projet de Maths , de Calculatrice ou autres ...

Source / Exemple :


' Consulter le zip

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
66
Date d'inscription
jeudi 11 mars 2004
Statut
Membre
Dernière intervention
11 février 2007

C'est bon c'est mieux comme ça ??!!!
Messages postés
66
Date d'inscription
jeudi 11 mars 2004
Statut
Membre
Dernière intervention
11 février 2007

Ouai je sais pout la fonction puisque comme je l'ai dit il est dérivé d'un programme dans lequel il est sous forme de fonction et exactement comme tu l'as sité !!! ;) Enfin merci quand même ! D'ailleurs si tu veux je vais mettre ma propre fonction si vous le preferez sous cette forme ! !ok
Messages postés
178
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
25 septembre 2008

Salut,
Il y a les parenthèses pour les msgbox qui sont en trop.
Sinon je pense que le faire sous forme de fonction serai plus facile à utiliser dans un prog (ce n'est que mon avis). Je mets ton code avec les modofications que je lui est apporté:

Function PGCD(PremierNombre As Single, DeuxièmeNombre As Single)
Dim A As Single, B As Single
Dim C As Long
A = PremierNombre
B = DeuxièmeNombre
If A <> Int(A) Then
MsgBox "Nombre entier requis", "PGCD"
Exit Function
End If
If B <> Int(B) Then
MsgBox "Nombre entier requis", "PGCD"
Exit Function
End If
If A < B Then
C = A
A = B
B = C
End If
C = 1
Do Until C = 0
C = A Mod B
A = B
B = C
Loop
PGCD = A
End Function

De cette manière on peut appeler la fonction dans le prog pour mettre le résultat dans un label par exemple en faisant comme ceci :

Label1.Caption = PGCD(10, 20)

Sinon pour ce qui est du calcul ça fonctionne sans problème.

Voilà

Xav

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.