質因子連乘式(I)
程式新版
第一個程式在comp模之執行，使用上較方便，計算範圍亦較大，但程式較長，第二個程式較短，但需要在BASE 模式下執行，一般計算完結後要按 MODE 1返回 comp模式。
程式編寫日期: 2006年6月9日 最新修改日期: 2007年12月14日
第一個程式 (64 bytes，使用記憶為A及M)
?→A: 2→M Lbl 0:
M=4 => 1M-: MM>A => A→M:
A ÷ M: Fix 0: Rnd: Norm 1:
A - M Ans => 2M+ => Goto 0: M◢
A ÷ M→A: A - 1 => Goto 0: A
第二個程式 (59 bytes，使用記憶為A及M)
程式需要在 BASE 模式下執行，因此在輸入程式前請先按 Mode Mode 3 進入BASE模式。
Dec: ?→A: 2→M: Lbl 0:
M=4 => 1M-: MM>A => A→M:
A - A ÷ M × M => 2M+ =>Goto 0: M◢
A ÷ M→A: A - 1 => Goto 0: A
註: 輸入的數值必須為正整數，否則計算會錯誤。第一個程式計算的數值要小於 9999 9999 99，第二個程式計算的數值要小於 2147 4836 47
例題: 求 110的質因子連乘式。
按 Prog 1 110 EXE (顯示2) EXE (顯示5) EXE (顯示11) EXE (顯示1，表示計算完結)
所以 110 = 2 × 5 × 11
若果是第二個程式請按 MODE 1 返回正常計算模式