平成11年3月8日

         ☆☆「流れ星」☆☆

    第11回数学的な応募問題

 <解答募集期間:3月8日〜3月25日>

     ゴルフのスコア

  1. 太郎さんにはゴルフの好きな教え子がいます。先日のことです。

   15ホールを終わってちょうど84ストロークをたたいていました。

   残り3ホールは16番パー3、17番パー4、18番パー5です。

    さて、堅実な教え子は1ホールに対して、パー、ボギー、ダブル

   ボギーの起こる可能性として、1割、5割、4割の腕前です。

    ここで、問題です。

  1. 残り3ホールを区別して、パー、ボギー、ダブルボギーの起こる場合は
  2.   何通りですか。

  3. 残り3ホールを区別せずに、パー何回、ボギー何回、ダブルボギー何回の
  4.   起こる場合は何通りですか。

  5. 最終18番ホールを終わって、教え子のストローク数の期待値を求めよ。

 

    太郎さんは、教え子が100を下回るか心配になって、早速計算しています。 


  皆さんも、考えてください。 

  

  <自宅>  mizuryu@aqua.ocn.ne.jp

 <浜田 明巳>さんの解答(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」というソフトを勉強中です。