VB 連續擲骰子,顯示每次投擲的結果,直至出現6點為止,顯示

2021-04-28 07:16:11 字數 1813 閱讀 2271

1樓:匿名使用者

private sub form_click()dim n as integer, m

clsdo until n = 6

randomize

n = int(rnd * 6) + 1

print "點數

:版"; n

m = m + 1

loop

print string(10, "*") & vbnewline & "次數

權:"; m

end sub

擲一個均勻的骰子直至6個點數都出現為止,求這時總的投擲次數的期望

2樓:格子裡兮

數學期望是14.7。

pi代表到目前為止已經出現i種點數這個事件所需要擲骰子的次數,pi+1 - pi = 搖出一個之前沒出現的點數所需要擲骰子的次數,e(pi+1 - pi )=6/(6-i);

e(p6)=e(p6-p5)+e(p5-p4)+e(p4-p3)+e(p3-p2)+e(p2-p1) +ep1= 6(1+1/2+1/3+1/4+1/5)+1=14.7。

3樓:吸血鬼柯南道爾

pi代表到目前為止已經出現i種點數這個事件所需要擲骰子的次數,pi+1 - pi = 搖出一個之前沒出現的點數所需要擲骰子的次數,e(pi+1 - pi )=6/(6-i);

e(p6)=e(p6-p5)+e(p5-p4)+e(p4-p3)+e(p3-p2)+e(p2-p1) +ep1= 6(1+1/2+1/3+1/4+1/5)+1;

4樓:魚仁戲壬

冰變虛似乎算的不錯啊,

出現n個點後,

下一次投擲出現另一個不同點數的概率為(6-n)/6,故平均看需要6/(6-n)次才能出現另外一個不同點,故順次考察6個點的出現,就可以得到平均次數:1+

6/(6-1)

+6/(6-2)

+6/(6-3)

+6/(6-4)

+6/(6-5)=1

+6/5

+6/4

+6/3

+6/2

+6/1

=14.7次,

冰變虛真聰明

某人投擲一枚骰子直到出現6點為止,用x表示投擲的次數,求x的概率分佈

5樓:匿名使用者

p(x=k)=(六分之五)k-1次冪 乘六分之一,k=1,2,...

擲一個均勻的骰子直至6個點數都出現為止,求這時總的投擲次數的期望

6樓:匿名使用者

冰變虛 似乎算的不錯啊,

出現n個點後, 下一次投擲出現另一個不同點數的概率為(6-n)/6, 故平均看需要6/(6-n)次才能出現另外一個不同點,故順次考察6個點的出現,就可以得到平均次數:

1 + 6/(6-1) + 6/(6-2) + 6/(6-3) + 6/(6-4) + 6/(6-5) = 1 + 6/5 + 6/4 + 6/3 + 6/2 + 6/1 = 14.7次,

冰變虛 真聰明

7樓:冰變虛

1*1/6+2*1/6+3*1/6+4*1/6+5*1/6+6*1/6

接連不斷的投擲一顆骰子直到出現小於五的點為止,以x表示最後一次擲出的點數,以y表示投擲的次數,

8樓:阿沙辛大人

應該代表的是出現的概率吧,m只有6個數,n可以因為人品到無限。

9樓:陳小舟

1/6(1/3)∨j-1

上帝要扔骰子了上帝擲骰子嗎量子物理史話

1,任何知識都有他的階段性 真理總有階段性 隨著知識的不斷更新,一些物理定律都會體現出這一點。2,學無止境,新知代替舊知是人類好奇心的體現,也是一種樂趣。上帝要扔骰子了 上帝擲骰子嗎 量子物理史話 讀後感 讀後感是一種比較特殊的文體,就是在你讀了一本書或一篇文章後,寫出你的感受來。第一部分 由讀而引...

上帝要扔骰子了上帝擲骰子嗎量子物理史話

讀後感是一種比較特殊的文體,就是在你讀了一本書或一篇文章後,寫出你的感受來。第一部分 由讀而引出感。這一部分就象一個帽子或引子一樣,交代清楚讀了什麼書,有什麼感想。這一部分一般來說要簡明 開門見山,不要饒圈子。只要概括性說出感受就可以了。第二部分 具體的感受過程。寫法應採用邊敘邊議的方法,敘就是敘述...

多次投擲骰子的數字之和的概率分佈的計算過程

幹算的。用三個來說吧 總共有6的三次方的可能性 例如6的概率就是 先找到3個骰子 有幾種加起來等於6的可能性 不算循序,前後不可重複 從小到大排 1 1 4 1 2 32 2 23種可能的排列 每個算循序的話,不相同字面數的階乘 1 1 4 兩個不相同得2!1 2 3 三個不相同得3!2 2 2 一...