(12C) Decimal to Fraction

[Gamo]

Program to covert Decimal to Fraction.

This program still need improvement and still not a foolproof routine.
Anyone here got any idea is very welcome.

Example: example used FIX 4

3.1416 [R/S]

1250 [X<>Y] 3927 // Denominator <-> Numerator

Answer: 3927 / 1250

Program: Decimal to Fraction

Code:


01 ENTER
02   x
03  √x
04 STO 0
05   1
06 STO 1
07 R↓
08 1/x
09 STO x 1
10 ENTER
11 INTG
12   -
13 EEX
14   4
15 1/x
16 X≤Y
17 GTO 07
18 RCL 0
19 RCL 1
20 INTG
21   x
22 LSTx

Gamo