質因子連乘式(IV)

程式由網友 Kith 提供，這個版本速度較其它版本快。

網友提供程式日期: 2009年10月18日

程式 (70 bytes，使用記憶為A及b)

Fix 0: ?→A: While A=2 Rnd(A÷2: 2◢ A÷2→A:

WhileEnd: Goto 0: Lbl 1: A÷B→A: B◢ Lbl 0:

For 3→B To √(A Step 2: A=BRnd(A÷B => Goto 1:

Next: Norm 1: A
　

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

按 Prog 1  110 EXE (顯示2) EXE (顯示5) EXE (顯示11)

所以 110 = 2 × 5 × 11

註: 有時最後答案會顯示1(表示再沒有其它因子)

返回 CASIO fx-50FH 及 fx-50F PLUS 程式集