答え 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
!=====================================
(問題はこちら)
十進basic
から十進basicのファイル(プログラムソフト)"(仮称)十進BASIC for Windows" をダウンロードして下さい。そのあと、次のプログラムを実行すると分かると思います。
以下はプログラムソースです。
!====== 確率のシミュレーション=====
! 同じ回数で何度も試行
! '03 2/11 プリントの体裁を整える
! By Toshio Takasu
!
!
!
100 DIM N(6)
110 INPUT N0
PRINT "回数N=";N0
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
500 PRINT "出現回数 ";
FOR P=1 TO 6
PRINT " ";N(P);TAB((P+1)*10);
NEXT P
600 PRINT "相対度数 ";
FOR P=1 TO 6
LET E1=N(P)/N0
PRINT USING " .###":E1;
PRINT TAB((P+1)*10);
NEXT P
700 !どれかのキー入力で繰り返す
CHARACTER INPUT Z$
IF Z$="" THEN GOTO 700
GOTO 150
800 END
!=====================================