プログラム（BASIC） 教えてください

質問

（１）サイコロを n 回投げたとき，3の倍数（3または6）が ちょうど r 回 出る確率を求めるプログラム

（２） サイコロを n 回投げたとき，3の倍数（3または6）が r 回以下 しか出ない確率を求めるプログラム

を教えてください。　解説があるとありがたいです。

回答No.2

QoooL · ベストアンサー

＃１ですが、まあフローチャートくらいは書いてあげましょう。

前教えてあげた、ランダムの話は覚えていますか？
今回乱数は使わないです。確率はｎとｒだけで決まるから。

ＦＯＲ～ＮＥＸＴ　は使えるようになりましたか？

まず数学の確率がわからないとつらいので、確率は次のようになります。
（１）　ｎＣｒ・（2/6）^ｒ・（4/6）^(ｎ－ｒ)
ちょうどｒ回出るという確率をプログラムで求めろ、ということは。
ｎＣｒ＝ｎ（ｎ－1）（ｎ－2）・・・／ｒ（ｒ－1）（ｒ－1）・・・
を求めろということですね（式１と呼ぶ」）。

（２）は（１）の答え　１～ｒ　を全て足し算します。

今、ＦＯＲ～ＮＥＸＴ　の入れ子構造を習っているのではないですか？
ｉとかｊとかｋとか　←見間違いに注意してください。

（１）フロー
画面クリア
変数初期化

式１の分子を　Ｂ、分母をＣ　とおく（Ａ使う予定だったけどやめました）
Ｂ＝1　としておく
Ｃ＝1　としておく
Ｄ＝1　としておく
Ｐ＝２／６　としておく（３の倍数が出る確率）

Ｎ　を入力させる
Ｒ　を入力させる

ＦＯＲ　ｉ＝1　ＴＯ　Ｒ
　Ｘ＝0　としておく
　Ｂ＝Ｂ*（Ｎ－ｉ+1）
※この式によって、分子に　ｎ、（ｎ－1）、（ｎ－2）・・（ｎ－Ｒ＋1）　が順番に掛け算されて行きます
　Ｃ＝Ｃ*ｉ
※この式によって、分母に　１、２、・・ｒ　が順番に掛け算されて行きます
　Ｒ、Ｒ－1、Ｒ－2、・・１　という減る順番でも良かったんですけど、どうせ同じなので式をシンプルにしました
※宿題ならば、ｎＣｒ　を正しく理解しているか、も、ＦＯＲ～ＮＥＸＴの使い方と同時に試されていますよ！
ＮＥＸＴ　ｉ

ＩＦを習っているということにして
ＦＯＲ　ｉ＝1　ＴＯ　Ｎ
　ＩＦ　ｉ＜＝Ｒ　ＴＨＥＮ　Ｄ＝Ｄ*Ｐ
　ＥＬＳＥ　Ｄ＝Ｄ*（1－Ｐ）
ＮＥＸＴ　ｉ

ＩＦを習っていなかったら、２段階仕立て
ＦＯＲ　ｉ＝1　ＴＯ　Ｒ
　Ｄ＝Ｄ*Ｐ
ＮＥＸＴ　ｉ
ＦＯＲ　ｉ＝Ｒ+1　ＴＯ　Ｎ
　Ｄ＝Ｄ*（1－Ｐ）
ＮＥＸＴ　ｉ
ただ、このやり方だとＲ＝Ｎ　のときは答えが狂ってきますから、ＩＦが使えないと結構不便です

ＩＦを使わずにＩＦっぽいことをやる裏技
ＦＯＲ　ｉ＝1　ＴＯ　Ｎ
　Ｄ＝Ｄ*（－Ｐ*（ｉ＜＝Ｒ）－（1－Ｐ）*（ｉ＞Ｒ））
ＮＥＸＴ　ｉ

最後
Ｘ＝Ｂ／Ｃ*Ｄ

Ｘを表示

（２）
（１）の　Ｒ　を入力させる　の後を以下のように変えます

Ｅ＝0　としておく
ＦＯＲ　ｊ＝1　ＴＯ　Ｒ

　（１）の　ＦＯＲ　ｊ＝1　ＴＯ　Ｒ　から　Ｘ＝Ｂ／Ｃ*Ｄ　まで　そのまま

　Ｅ＝Ｅ＋Ｘ
ＮＥＸＴ　ｊ
Ｅを表示

以上です。

お礼

ありがとうございました。
今後は詳しく書くように注意します。

回答No.1

QoooL

自分ではどこまで作りましたか？

どのような命令語を使うと思いますか？

また、どのような命令語を理解していますか？　←これがわからないと、どこまで詳しく解説するか、に困ります。

ＯＮ　ＧＯＴＯ　を使え、という授業課題ですか？
それとも普通に　ＩＦ文　分岐ですか？

ある程度　形を書いてくれたら、直してあげます。