伊莉討論區

標題: 請問如何能讓程式出來的數字不重複到(樂透號碼) [打印本頁]
作者: dsm00663720    時間: 2010-10-29 10:15 AM     標題: 請問如何能讓程式出來的數字不重複到(樂透號碼)

提示: 該帖被管理員或版主屏蔽
作者: Aeroth    時間: 2010-10-30 11:23 AM

請參考:
  1. Dim rand As New Random

  3. Dim winnum As New List(Of Integer)
  4. Dim num, counter As Integer
  5. Dim result As String = ""

  7. Do
  8. num = rand.Next(1, 90)
  9. If winnum.Contains(num) Then
  10. Do
  11. num = rand.Next(1, 90)
  12. Loop Until winnum.Contains(num) = False
  13. End If
  14. winnum.Add(num)
  15. counter += 1
  16. Loop Until counter = 6

  18. 'Extracting and displaying the numbers from the array
  19. For n As Integer = 0 To 5
  20. result = winnum(n) & " " & result
  21. Next
複製代碼
作者: TSHsoft    時間: 2010-11-2 10:32 PM

提示: 作者被禁止或刪除 內容自動屏蔽
作者: arthurliuliu    時間: 2010-11-3 08:01 AM

有一種效能比較好的作法, 若是取七個亂數:
1.建立一個array, 然後按照順序把 ar[0]~ar[48] 填上 1~49
2.從ar[0]開始取亂數的index, 讓ar[0]跟ar[index]的直交換,
  假設取到的index是10好了, 讓 ar[0]=11, 讓 ar[10]=1
3.用迴圈跑7次, 讓 ar[0]~ar[6] 的值都取過亂數, ar[0]~ar[6] 就是結果
作者: pianistfly    時間: 2010-11-7 05:06 PM

1) 建立一個7個空間的array，用來存放選出來的號碼
2) 每次選出號碼后就檢查array里的號碼是否已經出現過了 ...
TSHsoft 發表於 2010-11-2 10:32 PM



   
TSHsoft這個方法雖然簡單但是有缺點，
如果針對大母體去取小樣本(例如1~100取10個數)，這個方法OK。
可是如果要取很多數字，那效率就會顯得很差，
我舉個誇張的例子：
如果母體是1~1000，要取900個值，
越取到後面就跑越慢，因為它有非常高的機率會找到重複的數字，
當取到第900個值，以機率來說只有1/10的機率可以找到沒重複的數字，
這樣迴圈就會多跑好幾次，電腦會變得相當辛苦！XD
所以建議用arthurliuliu版主的方法，
要取幾個值，迴圈就跑幾次就完成了，這樣才有效率。
作者: TSHsoft    時間: 2010-11-8 09:27 PM

提示: 作者被禁止或刪除 內容自動屏蔽
作者: arthurliuliu    時間: 2010-11-8 11:09 PM

我剛開始寫程式的時候，也有接觸到這個題目，
TSHsoft 的作法是最直接的，也是我一開始寫這個題目用的方法。
有一次因為某個需要，必須做一支 1~100 取 90 個亂數的小程式，
我突然發現為什麼會跑這麼慢，以前都不會啊，我才想到會大量重複的問題。
即使我知道有這個問題，我卻沒有想到比較好的做法來克服這個問題，
直到我在網路上看到這個做法。

我把他學了起來，現在剛好可以拿出來借花獻佛，
我覺得...其實理解別人的做法很容易，
但是要自己想出一套最好的方法，並不是很容易，
透過觀摩別人的作法，加廣自己的視野未嘗不是一件好事。
作者: zzzzz456111    時間: 2010-11-20 02:27 PM

本帖最後由 arthurliuliu 於 2010-11-21 08:23 AM 編輯

小弟寫隨機不重複時用到的程式碼

  1. Dim rnd_n As Short
  2. Dim ck(4) As Short
  3. For i = 1 To num
  4. rnd_n = Int(Rnd() * num) + 1
  5. Do While ck(rnd_n) = 1
  6. rnd_n = Int(Rnd() * num) + 1
  7. Loop
  8. Form1.N(i) = rnd_n
  9. ck(rnd_n) = 1
  10. Next
複製代碼

不知是版本不同還是我學的比較少版大的程式碼我看巄謀0.0
希望有幫助到你

code沒包好,板主代為編輯.
作者: gsg91123    時間: 2012-12-12 10:59 AM

可以幫忙寫成C語言嗎??
作者: jack810216    時間: 2012-12-23 04:19 AM

arthurliuliu 發表於 2010-11-3 08:01 AM
有一種效能比較好的作法, 若是取七個亂數:
1.建立一個array, 然後按照順序把 ar[0]~ar[48] 填上 1~49
2.從a ...

想問一下這個方式 機率上是不是會有問題?
我自己寫了一下 將得到的數字次數做累加
重複跑了幾十萬次 不管怎麼測都會有固定的數字偏高
1~50取7個 5 6 7固定偏高
1~10取3個 2 3 固定偏高
此方法 10*10*10=1000
普通的 10*9*8=720
不知道哪來多的280...
取數字的速度是很快沒錯不過有點不太敢用....
作者: ahway9988    時間: 2012-12-23 06:14 PM

本帖最後由 ahway9988 於 2012-12-23 06:16 PM 編輯

4樓版主的做法應該是..
  1. Private Sub Form_Load()
  2.     Dim a(48) As Integer
  3.     Dim b As Integer
  4.     Dim m As Integer
  5.    
  6.     For i = 0 To 48
  7.         a(i) = i + 1
  8.     Next
  9.    
  10.     For j = 0 To 5
  11.         Randomize Timer
  12.         b = Int(Rnd * (48 - j) + 1 + j)
  13.         m = a(j)
  14.         a(j) = a(b)
  15.         a(b) = m
  16.         Print a(j)
  17.     Next

  19. End Sub
複製代碼
作者: arthurliuliu    時間: 2012-12-24 08:24 AM

本帖最後由 arthurliuliu 於 2012-12-24 08:49 AM 編輯
jack810216 發表於 2012-12-23 04:19 AM
想問一下這個方式 機率上是不是會有問題?
我自己寫了一下 將得到的數字次數做累加
重複跑了幾十萬次 不管 ...

理論上應該是不會有你說的問題，
要不要貼上你的程式碼，讓大家參考看看。
作者: jack810216    時間: 2012-12-24 06:08 PM

本帖最後由 jack810216 於 2012-12-24 06:18 PM 編輯
  1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Label1.Text = ""
  3.         Dim rnd As New Random
  4.         Dim t(50) As Byte
  5.         Dim sum(50) As Long
  6.         Dim rnd_tmp As Byte
  7.         Dim tmp As Byte
  8.         For k = 1 To 10000
  9.             For n = 1 To 50
  10.                 t(n) = n
  11.             Next
  12.             For n = 1 To 7
  13.                 rnd_tmp = rnd.Next(1, 51)
  14.                 tmp = t(n)
  15.                 t(n) = t(rnd_tmp)
  16.                 t(rnd_tmp) = tmp
  17.             Next

  19.             For n = 1 To 7
  20.                 sum(t(n)) += 1
  21.             Next
  22.         Next
  23.         For n = 1 To 50
  24.             Label1.Text &= n & " : " & sum(n) & vbNewLine
  25.         Next
  26.     End Sub
複製代碼
  1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Label1.Text = ""
  3.         Dim rnd As New Random
  4.         Dim t(50) As Byte
  5.         Dim sum(50) As Long
  6.         Dim tmp As Byte
  7.         Dim x As Byte
  8.         For i = 1 To 10000
  9.             x = 0
  10.             For n = 1 To 50
  11.                 t(n) = n
  12.             Next
  13.             While x < 7
  14.                 tmp = rnd.Next(1, 51)
  15.                 If t(tmp) <> 0 Then
  16.                     t(tmp) = 0
  17.                     sum(tmp) += 1
  18.                     x += 1
  19.                 End If
  20.             End While
  21.         Next
  22.         For n = 1 To 50
  23.             Label1.Text &= n & " : " & sum(n) & vbNewLine
  24.         Next
  25.     End Sub
複製代碼
上面的應該是板主說的方法吧?
會有明顯的機率差
下面的是普通的方法就不會
我想是交換的問題吧

試了一下 改成這樣就沒問題了...
  1. rnd_tmp = rnd.Next(n, 51)
複製代碼
作者: lchihk    時間: 2019-12-22 09:43 PM

這是以前寫的樂透開獎49號隨機出7碼

******************************************
Private Sub Command1_Click()
Dim num(49) As Boolean
For n = 0 To 6
   Randomize
   FT = True
   While FT
     Number = Int(49 * Rnd) + 1
     If Not num(Number) Then
        num(Number) = True
        FT = False
     End If
   Wend
   Label1(n).Caption = Number
Next n
End Sub
******************************************



歡迎光臨 伊莉討論區 (http://a401.file-static.com/) Powered by Discuz!