J ai un BUG!!!(Bogue pour les maniaques de la francophonie)

Signaler
-
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
-
Bonjour, je vais essayer de m exprimer simplement.
Private Function PGCD(E As Double, nbr As Double)
'Plus grand commun diviseur
On Error Resume Next

Dim R#
Dim tmp#
Dim a#
Dim b#

If E < nbr Then
a = nbr
b = E
Else
a = E
b = nbr
End If

While b > 0
R = a Mod b
a = b
b = R
Wend
PGCD = a
End Function

Donc voila.Je recois bien mes valeurs "E" et "nbr" dans ma fonction.Dans ma boucle while, j ai besoin de diviser le plus grand nombre par le plus petit.(d'ou mon test juste avant).
Mais quand E<nbr et que je rentre dans ma boucle while,
j ai "a Mod b = 0" alors qu en debuggant, j ai bien des valeurs dans a et b mais rien dans R.
Je sais pas d ou ca vient ce bug...
Aidez moi! Merci

1 réponse

Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
Bonjour, tu trouveras plusieurs exemples/solutions sur ce site dans les rubriques "math" ou "module". Ou depuis le moteur de recherche avec les mots clef "math, pgcd". Si malgres cela tu ne trouves pas de reponse et si ta question est toujours d'actualité, tu peux lancer une nouvelle discussion sur le forum.

Bonne pr@g