コラム / パイパイモンテカルロたん / 12

• Prev
• Next
• コラム/パイパイモンテカルロたん

実行するとこんな感じ

3.14になかなか向かないのは、
俺のコードに間違いがあるのか、
Delphiの乱数アルゴリズムがウンコなのか
はたまた両方かわかりませんが、
モンテロたんの雰囲気はつかめたと思います。
俺もおもしろかったわ。

補足

で、このページの存在意義ですが、
実は、このプログラム

バグが残ってます。

integer型には、２億の制限があるのを覚えてますか？
もし、満タンを超えると、
負の数に戻ったり０になったり、どうなるか忘れましたが、
とにかく怪しい値に飛びます。
そのあとパイ算出の行に行くと、

０で割り算してしまうかもしれません

そうするとエラーが出ます。
まぁそれだけなんだけど。

ちなみに、１秒に100こゴマを撒きつづけ、
2147483648粒になるのは、
21474836秒　
357913分
5965時間
248日

だ、そうです。
半年実行する前にwindowsがフリーズして落ちるはずだしいいよね。

• Prev
  コラム/パイパイモンテカルロたん/11
• Next
  コラム/パイパイモンテカルロたん/12/補足
• Home
  Up