小數轉分數 ( 第二版 ) ( Decimal Number to Fraction : Version 2 )

( 程式版本：1.0，最後更新日期 14 AUG 2003。)

LBL 0	R/S	STO 0	ABS	STO 1	1
STO 3	LBL 1	RCL 1	－	(	RCL 1
÷	RCL 3	)	IP	×	RCL 3
=	STO 2	ABS	INPUT	1	E
+/-	1	0	x ≦ y?	GTO 3	LBL 2
RCL 3	STO 1	RCL 2	STO 3	GTO 1	LBL 3
C	RCL 3	1/x	IP	STO 2	×
RCL 0	=	FIX 0	RND	ALL	STO 3
R/S	RCL 2	PRGM	50 steps

例 : 將 0.6 轉為分數

按 XEQ 0，再按  0.6 R/S

顯示  3  ( 分子 )，再按 R/S  顯示  5  ( 分母 )。亦即是說 0.6 = 3/5