10000の階乗（10000!）を計算したい

　有理数モードを用いると，次のプログラムで 10000! の計算が可能です。

10 OPTION ARITHMETIC RATIONAL
20 PRINT FACT(10000)
30 END

テキスト出力ウィンドウの編集メニューで「右端で折り返す」にチェックを入れると結果が見やすくなります。

　さらに大きな数の階乗の計算も可能ですが，計算に要する時間の関係で，10000! くらいまでが実用上の限界です。
　たとえば，ペンティアム4　2.8GHzのPCで，10000の階乗の計算に0.5秒，100000の階乗の計算に77秒かかります。

　およその数を知るのが目的であれば，十進モードか2進モードで

10 INPUT n
20 LET t=0
30 FOR i=1 TO n
40    LET t=t+LOG10(i)
50 NEXT i
60 PRINT 10^(FP(t)); "E";IP(t)
70 END

を実行するのが簡単です。

戻る