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

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


戻る inserted by FC2 system