Graph 35+

[ludo56]

Bonjour,je cherche à écrire un programme sur ma bonne vielle Graph 35+ qui calcul le pgcd de deux entiers naturels.
Voici ce que j'ai écris:

"ENTRER A" :?-->A
"ENTRER B" :?-->B
If B>A
Then A-->C : B-->A : C-->B
Ifend
While (A-B)xINT(A/B) !=0 (different de 0)
B-->X
(A-B)xINT(A/B)-->B
X-->A
WhileEnd
B

Voila et bien sur sa ne marche pas! Le programme tourne mais renvoit des chiffres incoherants!
Merci pour votre aide

[bombastus]

Bonjour,

avec un peu de retard :
Il y a un problème avec le calcul du reste :
Il faut mettre A-BxINT(A/B) à la place de (A-B)xINT(A/B)