TakaPの数学日記

数学を教えていて感じたことや日常の感想などを記録しました。

確率クイズ答え

2006年04月02日 08時32分50秒 | 数学
答え 300000回で約90%は0.166または0.167になります。詳しい説明は後日にしますが、パソコンでシミュレートできますから是非やってみて下さい。
(問題はこちら)
十進basic
から十進basicのファイル(プログラムソフト)"(仮称)十進BASIC for Windows" をダウンロードして下さい。そのあと、次のプログラムを実行すると分かると思います。
以下はプログラムソースです。







!====== 確率のシミュレーション=====
! 同じ回数で何度も試行
! '03 2/11 プリントの体裁を整える
! By Toshio Takasu
!
!
!
100 DIM N(6)
110 INPUT N0
PRINT "回数N=";N0
PRINT
130 LET N1=0 ! 繰り返し回数のリセット
150 RANDOMIZE ! 乱数系列の変更

200 !カウンターのリセット
FOR I=1 TO 6
LET N(I)=0
NEXT I

300 ! 1~6目の出る回数を数える
! N(P); Pの目出るの回数
! N0回乱数発生

FOR I=1 TO N0
LET P=INT(RND*6)+1
LET N(P)=N(P)+1
NEXT I

350 LET N1=N1+1

400 PRINT N1;"回目"
PRINT " 目 ";
FOR P=1 TO 6
PRINT " ";P;" ";TAB((P+1)*10);
NEXT P
PRINT

500 PRINT "出現回数 ";
FOR P=1 TO 6
PRINT " ";N(P);TAB((P+1)*10);
NEXT P
PRINT

600 PRINT "相対度数 ";
FOR P=1 TO 6
LET E1=N(P)/N0
PRINT USING " .###":E1;
PRINT TAB((P+1)*10);
NEXT P
PRINT

700 !どれかのキー入力で繰り返す
CHARACTER INPUT Z$
IF Z$="" THEN GOTO 700
PRINT
GOTO 150
800 END
!=====================================
コメント
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする