実行するとこんな感じ
3.14になかなか向かないのは、
俺のコードに間違いがあるのか、
Delphiの乱数アルゴリズムがウンコなのか
はたまた両方かわかりませんが、
モンテロたんの雰囲気はつかめたと思います。
俺もおもしろかったわ。
補足
で、このページの存在意義ですが、
実は、このプログラム
バグが残ってます。
integer型には、2億の制限があるのを覚えてますか?
もし、満タンを超えると、
負の数に戻ったり0になったり、どうなるか忘れましたが、
とにかく怪しい値に飛びます。
そのあとパイ算出の行に行くと、
0で割り算してしまうかもしれません
そうするとエラーが出ます。
まぁそれだけなんだけど。
ちなみに、1秒に100こゴマを撒きつづけ、
2147483648粒になるのは、
21474836秒
357913分
5965時間
248日
だ、そうです。
半年実行する前にwindowsがフリーズして落ちるはずだしいいよね。
コンテンツ
最新の12件
2023-06-12
2021-02-15
2013-06-19
2012-07-14
2012-02-04
2012-01-06
2011-03-31
2010-08-26
2010-03-15
2009-10-21
2009-02-12
2008-11-18
メニュー編集
- counter: 878
- today: 1
- yesterday: 0
- online: 1