世の中不思議なもので2人でじゃんけんをした場合
数多くじゃんけんをしたら10連勝、20連勝もありうるらしいのですが
とても信じられません
そこで十進ベーシック(フリーソフト)でじゃんけんを10万回
するプログラムを書いてみました
でもこのプログラムが正しいかどうかわかりません
計算上A君がじゃんけんで10連勝と10連敗する確率を教えてください
できればA君がじゃんけんで10連勝と10連敗する確率を求めるプログラム
を教えてください
RANDOMIZE
LET zz$=""
LET m=0
LET J=100000 !じゃんけんの回数
LET k=0
FOR n=0 TO J
LET a=INT(3*RND)
LET B =INT(3*RND)
IF A=0 AND B=1 THEN LET s$="勝"
IF A=0 AND B=2 THEN LET s$="負"
IF A=1 AND B=0 THEN LET s$="負"
IF A=1 AND B=2 THEN LET s$="勝"
IF A=2 AND B=0 THEN LET s$="勝"
IF A=2 AND B=1 THEN LET s$="負"
IF a=b THEN LET s$="引"
IF s$="引" THEN GOTO 490 !引き分けを除く
LET s1$=s$
IF s2$=s1$ THEN
LET zz$ = zz$ & s$
LET m=m+1
ELSEIF s2$<>s1$ THEN
IF m>=10 THEN !--- mは連勝数 10連勝以上を表示する
LET k=k+1
PRINT n;zz$,m
END IF
LET zz$=""
LET M=0
END IF
LET s2$ =S1$
490
NEXT n
IF k<>0 THEN
LET kaku=INT (j/k)
PRINT
PRINT "======確立は";1;"/";kaku;"です======"
ELSE
print "======";m;"連勝はありません========"
END if
END
No.1ベストアンサー
- 回答日時:
プログラムの作成ご苦労様でした。
熱意には感心しました。
ところで、1回のじゃんけんで勝つ確率は2分の1。2回目はその2分の1、つまり4分の1。
3回目以降は8分の1,16分の1、32分の1のように分母の数が倍倍で増えるだけです。
6回目にも勝つ確率は64分の1・・・・・10回目にも勝つ確率は1024分の1です。
連続して勝つ確率は、2の回数乗から計算出来ます。
どうもありがとうございます
計算上は100連勝、200連勝もありうるということですね
ちょっと、不思議です
100万回じゃんけんをすると20連勝ができました
たぶんC言語だともっと早く計算できるかもしれないので
挑戦してみます
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 順列をランダムに発生するプログラム 1 2022/11/16 12:16
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- JavaScript プログラムがうまく動きませんレビューお願いします 1 2022/07/10 05:08
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- JavaScript 追加ボタンを押した際に ok ボタンを押した場合のみ入力値が追記されるようにしたいです 6 2022/05/29 09:57
- Visual Basic(VBA) 任意の置換を互換の積で表すプログラム 4 2022/11/13 19:10
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- その他(プログラミング・Web制作) 十進BASICでの再帰についての質問です。 2 2022/11/18 09:17
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一般常識を教えてください。1割...
-
五分を6回連続で外すのはなん...
-
75%を3回連続で引かない確率
-
30%の確率が5回連続で起きない...
-
確率
-
イケメンに生まれる確率と、金...
-
3×3のビンゴにおける確率計算。
-
3個のさいころを同時に投げると...
-
大学入試の数学
-
中学校数学での確率問題への解...
-
「天文学的に低い確率」とは?
-
ほぼ確実って、どういう意味で...
-
1回5%の確率の事が、30回やっ...
-
3σについて教えてください(基...
-
何かが起こるかどうかは予め決...
-
数学の質問です。 一枚の硬貨を...
-
「○○通りのパターンがある」の...
-
確率の問題
-
5人でジャンケンをしてあいこ...
-
確率。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
一般常識を教えてください。1割...
-
確率の問題 数学と実生活と
-
数学の質問です。 一枚の硬貨を...
-
30%の確率が5回連続で起きない...
-
確率0.02%って10000人に2人です...
-
75%を3回連続で引かない確率
-
P(A|B)などの読み方
-
五分を6回連続で外すのはなん...
-
ほぼ確実って、どういう意味で...
-
「○○通りのパターンがある」の...
-
1個のサイコロを3回投げる時、...
-
3σについて教えてください(基...
-
BINGが間違えた、とっても簡単...
-
イケメンに生まれる確率と、金...
-
AとBが2回ジャンケンをします。...
-
確率の分数式において同様に確...
-
確率
-
子供が親より先に死ぬ確率は計...
-
反応速度や濃度は、大きいor小...
-
会う確率はどのくらい? 徒歩...
おすすめ情報