プログラミングのお題スレ Part22 (854ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
718(5): デフォルトの名無しさん [sage] 2025/03/30(日) 01:28:45.68 ID:KrBJAiIU(1) AAS
お題：1〜10までの範囲の乱数生成をn回行ったとき出た値の積が20の倍数になる確率Pnを出力せよ
n=2
2, 10 ... 20
4, 5 ... 20
Pn=???
n=3
2, 5, 2 ... 20
4, 5, 2 ... 40
Pn=???
719(1): デフォルトの名無しさん [] 2025/03/30(日) 15:24:52.85 ID:6QsLEZYT(1) AAS
>>718
ん？
何千回も試行してその実際の発生率を出すの？
それとも数学的に確率の理論値を出すの？
721(1): デフォルトの名無しさん [] 2025/03/30(日) 20:11:24.72 ID:qyCZpZxd(1/2) AAS
>>718
R Version4
外部ﾘﾝｸ:ideone.com
ideoneのRは古すぎてエラーが出てしまうので、出力は入力欄に記載した。
巨大整数型を使わなければideoneでも実行できる。
外部ﾘﾝｸ:ideone.com
722(1): デフォルトの名無しさん [] 2025/03/30(日) 20:58:57.54 ID:qyCZpZxd(2/2) AAS
>>718
C++への移植版
外部ﾘﾝｸ:ideone.com
これもideoneのC++が古すぎて10行目をm = size(d)と書けず変更せざるを得なかった。
724: デフォルトの名無しさん [sage] 2025/03/31(月) 05:32:04.89 ID:lZyiUZP+(1) AAS
>>718
学校の課題をここに書くなって教わらなかったの？
725(2): デフォルトの名無しさん [] 2025/03/31(月) 22:37:26.59 ID:eEIz6yDp(1) AAS
>>718
>>721-722を整理して行列とヴェクトルの積ですっきり書けるようにした。
R (ideoneでも巨大整数型で実行可能になった)
外部ﾘﾝｸ:ideone.com
C++
外部ﾘﾝｸ:ideone.com
式を展開してしまえばPowerShellで結局これだけ。
$a, $b, $c, $d, $e, $f = 0, 1, 1, 2, 2, [BigInt]4
2..100 |% {
$a = 10 * $a + 5 * $b + 2 * $c + 2 * $d + $e
$b = 5 * $b + 3 * $c + $e + $f
$c = 5 * $c + $f
$d = 8 * $d + 4 * $e + 2 * $f
$e = 4 * $e + 2 * $f
$f = 4 * $f
for ($p = $a; $p % 10 -eq 0; $p /= 10) {}
"P[$_] = 0.$p"
}
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.049s