PGCD

Ce programme à été inventer par moi même, il permet de trouver les PGCD de deux nb facilement, sans se fatiguer !!!!
Que demander de mieux !!!!!!!





Lbl 1
ClrText
"NB 1"?->A
"NB 2"?->B
A=B=>Goto A...........................-> fleche sous la touche tan (Graph 35+)
A<B=>A->C
A<B=>B->A
A=B=>C->B
A:B->C...........................: signe diviser
Int C->C
B*C->D...........................* signe multiplier
A-D->Z
While Z=/=0...........................=/= signe différent
B->A
Z->B
A:B->C
Int C->C
B*C->D
A-D->Z
WhileEnd
Lbl A
ClrText
"PGCD"
B¤...........................¤ "SHIFT" "VARS" "F5" (pour Graph 35+)
Goto 1






Et le voila fini, bonne programmation