返回列表 上一主題 發帖

[發問] 機率問題(EX:39個號碼,五個號碼都在1~19的機率)

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-11-4 16:18 | 只看該作者

[發問] 機率問題(EX:39個號碼,五個號碼都在1~19的機率)

想請問各位大大
這個機率問題小弟思考了很久仍不知道算法...

例如
1~39的號碼,一次抽五個號碼、不得重複

這五個號碼都出現在1~19的機率是多少?
四個號碼都出現在1~19的機率是多少?
三個號碼都出現在1~19的機率是多少?
二個號碼都出現在1~19的機率是多少?
只有1個號碼出現在1~19的機率是多少?
收藏 分享
PKKO

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2015-11-4 20:10 | 只看該作者
回復 1# PKKO
排列組合中  C(n,r)=n!/[r!*(n-r)!] ，!表示階層

五個號碼都出現在1~19，機率 = C(19,5)/C(39,5) = 0.020196
只有四個號碼出現在1~19，機率 =C(19,4)*C(20,1)/C(39,5) = 0.13464
只有三個號碼出現在1~19，機率 =C(19,3)*C(20,2)/C(39,5) = 0.31977
只有兩個號碼出現在1~19，機率 =C(19,2)*C(20,3)/C(39,5) = 0.33858
只有一個號碼出現在1~19，機率 =C(19,1)*C(20,4)/C(39,5) = 0.15989
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2015-11-5 10:12 | 只看該作者
回復 2# stillfish00


    S大大,我心中充滿了感激,只能說感謝感謝再感謝

沒想到您連這種數學題目都能如此詳盡的說明,真是太感謝

想再請教一下,若以VBA撰寫程式碼

C(39,5)

該如何撰寫程式碼呢?
PKKO

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2015-11-5 11:04 | 只看該作者
回復 3# PKKO
  1. 'n階層 , return double
  2. Function dblFactorial(n As Integer) As Double
  3.     dblFactorial = 1
  4.     For i = 1 To n
  5.         dblFactorial = dblFactorial * i
  6.     Next
  7. End Function

  9. '組合
  10. Function dblCombination(n As Integer, r As Integer) As Double
  11.     'By formula method:
  12.     dblCombination = dblFactorial(n) / (dblFactorial(r) * dblFactorial(n - r))
  13.    
  14. '    'Speedup method (less multiply computations , allowed larger n):
  15. '    dblCombination = 1
  16. '    For i = 1 To Application.Min(r, n - r)
  17. '        dblCombination = dblCombination * (n - i + 1)
  18. '    Next
  19. '    dblCombination = dblCombination / dblFactorial(Application.Min(r, n - r))
  20. End Function

  22. Sub Test()
  23.     MsgBox "五個號碼都出現在1~19，機率 = " & Format(dblCombination(19, 5) / dblCombination(39, 5), "0.000000")
  24. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題