Réducteur de fractions: (GT)
Ce programme permet de réduire au maximum une fraction compliquée. Au lancement rentrez d'abord le numérateur et appuyez sur EXE, puis le dénominateur et appuyez sur EXE. La fraction simplifiée apparaitra après un très court laps de temps.
mémoire: 306 octets
Lbl 0 : ? -> B : ? -> A : 0 -> E
If A = B
Then 1 -> A ~ B : Goto 1
IfEnd
Lbl 1 : If Frac ( B div 2 ) = 0
Then If Frac ( A div 2 ) = 0
Then B div 2 -> B : A div 2 -> A : 0 -> E
IfEnd : IfEnd : Isz E
If Frac ( B div 3 ) = 0
Then If Frac ( A div 3 ) = 0
Then B div 3 -> B : A div 3 -> A : 0 -> E
IfEnd : IfEnd : Isz E
If Frac ( B div 5 ) = 0
Then If Frac ( A div 5 ) = 0
Then B div 5 -> B : A div 5 -> A : 0 -> E
IfEnd : IfEnd : Isz E
E inf 10 => Goto 1
Lbl 2 : B sup A => B -> C
B inf A => A -> C
ClrText : 10 -> D : 1 -> G
Lbl 3 : C div D -> F
If F inf 1
Then 21 - G -> G : B $
" " : Goto 4
IfEnd
Isz G : 10 D -> D
Goto 3
Lbl 4 : Isz G
Locate G, 2, "-"
G =/= 21 => Goto 4
A $
Goto 0