質因子連乘式

程式編寫日期: 2007年9月19日

程式 (58 bytes,使用記憶為A及M)

?→A: MM-: Lbl 0: 2M+: M=4 => 1M-: Fix 0:

Lbl 1: A- M Rnd( A nCr 1 ÷ M => Goto 0: M◢

A ÷ M→A: A - 1 => Goto 1: Norm 1: A

 

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

按 Prog 1  110 EXE (顯示2) EXE (顯示5) EXE (顯示11) EXE (顯示1,表示計算完結)

所以 110 = 2 × 5 × 11

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集

Free Web Hosting