階乘 (Factorial)

更新日期: 2014年8月31日

程式由網友  Skwai提供。

程式可以計算比內置功能更大的階乘(n>69)。

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

?→M: M(M nPr 0M-: For Ans→A To 70 step -1:

log( AM+: Next: log( A!M+: Fix 0: Rnd( M - . 5→A:

10^( M - Ans: Norm 1◢ A

註1:輸入的數值必須是正整數或是零(非負整數)。

註2:程式的計算範圍是由 0 至 9 999 999 999 的整數。 (計算機計算 9 999 999 999! 是可行的,其約為 2.3258×1095657055176 ,約用 45.3 年) ,程式的計算時間:若 M < 70 約 1 秒,否則約 ( M / 7 - 9 ) 秒。

註3:程式碼"(M nPr 0" 是正整數防錯,可以選擇輸入或不輸入,若不輸入程長度可減4 Bytes 。

註4: 參考網址: http://webcal.freehostia.com/casio.fx-50FH/factorial.htm

 

例題: 計算100!

按 Prog 1 再按 100 EXE (顯示9.332621544)

EXE (顯示157,即100!=9.332621544×10157 )

 

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

Free Web Hosting