質因子連乘式(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次冪的質因子(非度分秒形式表示)。