階乘 (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 程式集