![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
Public Sub test()
Dim 試行回数, 両方1, 同じ目
Dim dice1, dice2
Randomize ' 乱数発生ルーチンを初期化します。
同じ目 = 0
両方1 = 0
For 試行回数 = 1 To 10000 '1万回試してみる
dice1 = dice() '1個目のサイコロ
dice2 = dice() '2個目のサイコロ
If dice1 = dice2 Then '同じ目が出た
同じ目 = 同じ目 + 1 '同じ目がでたことをカウントして記録
If dice1 = 1 Then 両方1 = 両方1 + 1 '両方1がでたことをカウントして記録
End If
Next
MsgBox "同じ目が出た割合:" & 同じ目 / 10000, , "同じ目が出た割合"
MsgBox "両方1が出た割合:" & 両方1 / 10000, , "両方1が出た割合"
End Sub
Function dice() As Integer
dice = Int((6 * Rnd) + 1) ' 1 から 6 までの乱数を発生させる
End Function
'------------------------------------------------
って感じですかね。
やってみたところ
同じ目:1.167
両方1:0.0288
になりました。
理論的には、
同じ目:1.16666…(1/6)
両方1:0.02777…(1/36)
なので
実験結果としては、両方1が出るのが若干大きくなりました。
こういうことは、使用する乱数(の良さ)に依るところもあるので、まあ、なんとも言えないですけど。
試行回数は、適当に大きくしたりしてみて下さい。
No.1
- 回答日時:
Randomize ' 乱数発生ルーチンを初期化します。
しておいて、
function dice() as Integer
dice=Int((6 * Rnd) + 1) ' 1 から 6 までの乱数を発生させます。
end function
みたいにしておいて
適当な(かなりの回数)回数diceを呼び出し
試行回数と求める条件の成立した回数を数えて
確率=成立回数/試行回数
で求められます。
この回答への補足
すいません、ほんとに初心者なのでdiceの呼び出しかた、条件の成立した回数の数え方がわかりません。具体的にプログラムを教えてもらえませんか?
補足日時:2005/06/07 21:04お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 数学 数学A、確率の問題です。 nを4以上の自然数とする。数字の1からnが書かれたカードが1枚ずつ、合計n 3 2023/07/02 22:54
- 統計学 確率統計の問題です。 3 2022/04/07 04:39
- 数学 正五角形の頂点を反時計回りにabcdeとする。二つの動点r、wが、rは頂点aを、w頂点cを出発して次 3 2022/07/22 11:40
- 数学 二項定理と乗法定理の問題について 2 2022/04/25 22:05
- 数学 確率、排反と独立の問題について 2 2022/04/19 11:39
- 数学 至急!!大学2年の女子です。この高校レベルの問題が分からないので教えてください!お願いしますm(_ 2 2022/11/11 22:10
- 数学 最初に1の目が上面にあるようにサイコロがおかれている。 その後、4つの側面から1つの面を無作為に選び 2 2023/01/18 09:54
- 数学 数学Bの確率についての質問です 確率変数Zが正規分布N(36,4^2)に従うとき、確率P(30=<X 3 2022/09/11 18:55
- 数学 確率変数 Zが正規分布N(5,4^2)に従うとき、確率P(7=<X=<9)を求めると、【??】である 5 2022/09/11 18:53
- 数学 数学の課題です。 「2枚の硬貨を同時に投げるとき、表の出る確率は、2枚、1枚、0枚の3通りである。よ 6 2022/09/23 18:57
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
1つ目、2つ目、3つ目…の「目...
-
不幸なことは何もないのに、何...
-
同性で目を見てくれない、あま...
-
を目にする、見かける、見える...
-
「目を上げる」という表現について
-
目を合わすことができない理由
-
至近距離になって目が合う男性...
-
目に指を入れる息子(1歳9ヶ月)
-
目の前の女性に勘違いされた。 ...
-
目つきが悪いとよく言われる高...
-
濁った目
-
エクセルでドロップダウンリス...
-
敬語で表現したい「また会いま...
-
すれ違うときに目を合わせない...
-
目の前にイケメンがいたら
-
お目にかかれること、お目にか...
-
リゼロについてなんでレムばか...
-
目が輝いている人
-
寄り目の顔文字は無いでしょうか?
-
「私の目から見れば」の意味。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
1つ目、2つ目、3つ目…の「目...
-
同性で目を見てくれない、あま...
-
目を決して逸らさない人の心理
-
「目を上げる」という表現について
-
すれ違うときに目を合わせない...
-
エクセルでドロップダウンリス...
-
至近距離になって目が合う男性...
-
キョンと言うのは本当に四つ目...
-
敬語で表現したい「また会いま...
-
「目が綺麗」と良く言われます...
-
を目にする、見かける、見える...
-
美男美女は目の保養になりますか?
-
目つきが悪いとよく言われる高...
-
目が合うと意識してしまう。と...
-
幸せって、目に見える幸せと目...
-
大小二つのサイコロを振る時出...
-
目を合わすことができない理由
-
正面に座る女性 女性の方から自...
-
目が怖いと言われました。目が...
-
ノリと勢いだけで生きてる人っ...
おすすめ情報