質因子連乘式(III)

程式是由網友王義之提供,與質因子連乘式(I)程式比較,這個版本的程式除了可以顯示質因子,還可以顯示質因子的冪數,所以較為方便。

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

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

程式 (92 bytes)

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

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

Lbl 2: A÷M→A: C+1→C: A÷M: Rnd:

Ans M=A => Goto 2: Mo + C÷60o◢ 0→C:

Goto 1: Lbl 3: Norm 1: A
 

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

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

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

所以 352 = 25 × 11

 

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

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

 

返回 fx-3650P及SC-185程式集

Free Web Hosting