質因子連乘式(IV)

程式是由網友mike提供，與質因子連乘式(I)程式比較，這個版本的程式除了可以顯示質因子，還可以顯示質因子的冪數，所以較為方便。 另外這個程式會較長，但速度會比質因子連乘式(III)快。

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

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

程式 (205 bytes)

0→C: ?→A: 1→M: Fix 0: Lbl 0: M=5 => Goto 1: 1M+:

A÷M: Rnd: A-MAns => Goto 0: Lbl 9: C+1→C: A÷M→A:

A÷M: Rnd: A=MAns => Goto 9: M^o +C÷60^o◢ 0→C:

Goto 0: Lbl 1: MM>A => Goto 7: 2M+: A÷M: Rnd:

A=MAns => Goto 2: 4M+: A÷M: Rnd: A-MAns => Goto 1:

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

M^o +C÷60^o◢ 0→C: M÷6 - . 5: Rnd: 6Ans-1→M: Goto 1:

Lbl 7: A-1 => A^o1^o : Norm 1
　

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

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

EXE (顯示 11˚1˚0及Norm 1，表示計算完結最後質因子為11)

所以 352 = 2⁵ × 11

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

註2: 程式完結時會顯示Norm 1。

註3: 程式會嘗試 2, 3 ,5 因子，之後每三個單數，只會嘗試二個單數(三倍數的單數不嘗試)，由於嘗試數目較少，所以速度較快(特別是大質因子的情況)

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