平成11年3月8日
☆☆「流れ星」☆☆
第11回
数学的な応募問題<解答募集期間:3月8日〜3月25日>
[ゴルフのスコア]
15ホールを終わってちょうど84ストロークをたたいていました。
残り3ホールは16番パー3、17番パー4、18番パー5です。
さて、堅実な教え子は1ホールに対して、パー、ボギー、ダブル
ボギーの起こる可能性として、1割、5割、4割の腕前です。
ここで、問題です。
何通りですか。
起こる場合は何通りですか。
太郎さんは、教え子が100を下回るか心配になって、早速計算しています。
<浜田 明巳>さんの解答(4月6日)
第11回数学的な応募問題解答
QBASICのプログラムを作成し求めました.QBASICはWindows95のCDROMに装備されています.
内容は次の通りです.
問題1,2は,単純にパー(0),ボギー(1),ダブルボギー(2)の並び方を計算するだけです.
問題3は,コンピュータの乱数計算をします.0になる確率を0.1,1になる確率を0.5,2になる確率を0.4として乱数を発生させ,スコアを計算します.1000000回試行し,期待値を計算しました.
答は1が27通り,2が10通り,3が99.89819300000001でした.
3の正解は99.9ですから,ほぼ正解に近い値が出たと思います.
一番苦労した点は,パー,ボギー,ダブルボギーの意味が分からなかったところです.ゴルフはやったことがないのです.
サレジオ学院高等学校 浜田 明巳
'golf.bas
CLS
FOR j = 0 TO 1
baainosuu = 0
FOR j1 = 0 TO 2
FOR j2 = j1 * j TO 2
FOR j3 = j2 * j TO 2
baainosuu = baainosuu + 1
NEXT
NEXT
NEXT
PRINT j + 1; baainosuu
NEXT
RANDOMIZE TIMER
DEFDBL W
wa = 0
max = 1000000
FOR kaisuu = 1 TO max
score = 0
FOR hole = 1 TO 3
ransuu = RND
score = score - (ransuu >= .1 AND ransuu < .6) - 2 * (ransuu >= .6)
NEXT
wa = wa + score
NEXT
PRINT 3; 84 + 3 + 4 + 5 + wa / max; "("; max; "kai shikou )"
END
<コメント:水の流れから>
いつもありがとうございます。私はQBASICのプログラムを全く知りませんが、
これからも、よろしくお願いします。今、「Mathematica」というソフトを勉強中です。