小數轉換分數(I)

小數轉換分數(I)

程式參考了網友 roviury 及 monday 提供的修改建議。

程式更新日期: 2011年2月4日

正分數(內置分數功能只顯示分數形式，內部(Ans)依然為小數，繼續計算誤差有可能進一步增大)。另外這個程式可以直接計算循環小數轉換分數的問題(只要輸入十一位以上的數值即可(建議13至15位))。

注意: 計數機預設分數的表示方法為帶分數，對於會考的朋友來說，假分數表示方法較為實用，因此建議將計數機預先設定為假分數形式表示(按 SHIFT SETUP → → 2 )。

程式 (66 bytes)

Ans→C: C→D: Pol( 1, 0: While Ans - Rnd(DY:

Fix 0: Y→M: X+YRnd(C→Y: M→X:

C - Rnd(C => Ans^-1→C: Rnd( DY→M: Sci 0:

WhileEnd: Norm 1: M┘Y

例題1: 將0.75化為分數。

按 0.75 EXE 再按 Prog 1 (顯示3┘4，即是3/4)

例題2: 將 0.333.......轉化為分數。

按 0.333 333 333 3 EXE (輸入十一位數值，即是有十一個3)

再按 Prog 1 (顯示 1┘3，即是1/3)

例題3: 將 2.454545........化為分數

按 2.45 454 545 4 (輸入十一位數值)

再按 Prog 1 (顯示 27┘11，即是27/11)

註1: 若果輸多於十位有效數字，程式會假定數值為循環小數，嘗試轉化為分數。

註2: 若果無法轉化為分數，表示式分數及分子的總長度太多，這時可以按 RCL M及RCL Y顯示分子及分母的數值，但要注意當分子或分母是5位整數或大於5位整數時，分數的答案有可能會是一個近似值的答案(特別是無理數所產生的小數)。