|
Taro |
|
プログラムで実験された方はおられないでしょうか。
ためしに以下のようなものも作ってみました。 100 T=6 110 M=T+1 120 C=0 130 X=0 140 Y=0 150 for I=1 to M 160 if rnd>0.5 then X=X+1 170 next I 180 for I=1 to T 190 if rnd>0.5 then Y=Y+1 200 next I 210 if X>Y then W=W+1 220 C=C+1 230 if C@10000=0 then print W;"/";C;" ";W/C 240 goto 130 |
|
新しいPC(某裏ページにアップ中)
7月11日（木） 0:36:22
MAIL:tarox@nifty.com HomePage:もうひとつの理科チャレ２ 16517 |