CALCUL DE PGCD , PPCM
Xav88
Messages postés
178
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
25 septembre 2008
-
17 mars 2004 à 14:15
typhoon_74 Messages postés 66 Date d'inscription jeudi 11 mars 2004 Statut Membre Dernière intervention 11 février 2007 - 18 mars 2004 à 19:48
typhoon_74 Messages postés 66 Date d'inscription jeudi 11 mars 2004 Statut Membre Dernière intervention 11 février 2007 - 18 mars 2004 à 19:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/21266-calcul-de-pgcd-ppcm
https://codes-sources.commentcamarche.net/source/21266-calcul-de-pgcd-ppcm
18 mars 2004 à 19:48
17 mars 2004 à 14:55
17 mars 2004 à 14:15
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