![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_08.png?e8efa67)
世の中不思議なもので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割...
-
P(A|B)などの読み方
-
同姓同名・生年月日も同じ人が...
-
75%を3回連続で引かない確率
-
五分を6回連続で外すのはなん...
-
30%の確率が5回連続で起きない...
-
3×3のビンゴにおける確率計算。
-
確率の問題です。 AとBがあるゲ...
-
数学の質問です。 一枚の硬貨を...
-
高校1年生です。 夏休みの宿題...
-
反応速度や濃度は、大きいor小...
-
数学です。 3人でじゃんけんし...
-
受けたい大学の出題範囲の数学...
-
ビンゴの確率計算
-
確率
-
確率と期待値
-
確率の問題です。 全5種類ある...
-
2択問題の正解確率について
-
数学の問題がどうしても分かり...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
一般常識を教えてください。1割...
-
数学の質問です。 一枚の硬貨を...
-
75%を3回連続で引かない確率
-
30%の確率が5回連続で起きない...
-
五分を6回連続で外すのはなん...
-
確率0.02%って10000人に2人です...
-
じゃんけんの問題
-
反応速度や濃度は、大きいor小...
-
街の中や駅で好きな人にばった...
-
あたまいい?
-
じゃんけん等の確率50%の勝負...
-
確率
-
P(A|B)などの読み方
-
「○○通りのパターンがある」の...
-
1個のサイコロを3回投げる時、...
-
同じ運命数の人と会う確率って...
-
え?
-
3σについて教えてください(基...
-
これは、なんなんでしょうか?
-
高1 数学の問題です
おすすめ情報