質因子連乘式(III)

質因子連乘式(III)

程式是根據網友王義之提供fx-3650P版本的質因子連乘式(III)程式修改以適合fx-50FH/50F PLUS使用，與質因子連乘式(I)程式比較，這個版本的程式除了可以顯示質因子，還可以顯示質因子的冪數，所以較為方便。

網友提供程式日期: 2008年1月24日

注意: 藍色程式碼 ˚ 是按 ^o,,,

程式 (88 bytes)

ClrMemory: Fix 0: ?→A: Lbl 1: 2M+: M=4M-:

MM>A => Goto 3: A - M Rnd( A÷M => Goto 1:

Lbl 2: A÷M→A: C+1→C: A=M Rnd( A÷M => Goto 2:

M^o + C÷60^o◢ 0→C: Goto 1: Lbl 3: Norm 1: A
　

例題: 求 352的質因子連乘式。

按 Prog 1 再按 352 EXE (顯示 2˚5˚0，即是質因子為2⁵)

EXE (顯示 11，非度分秒形式表示最後質因子為11)

所以 352 = 2⁵ × 11

註1: 輸入的數值必須為正整數，否則計算會錯誤，程式計算的數值要小於 9999 9999 99。

註2: 程式完結時，最後會顯示1或1次冪的質因子(非度分秒形式表示)。