6/49 tüm olasılık hk.

[lemuryalı]

herkese merhabalar. sitede aradım ama bulamadım. sorum şu. sayısal loto 6/49 da çıkabilecek 14 milyona yakın sonucu excel de ya da başka herhangi bir programda elde etmemiz mümkün müdür ? eğer mümkünse yardımlarınızı bekliyorum ...

 

[mrs303]

Anlaşılan gözünü Süper Lotodaki 20.000.000 TL ye diktin. Bu ihtimalleri bulsan bile bir sonuca varman çok zor. En iyisi sen Plaka, Ayakkabı numarası, doğum tarihi v.s. numaralarını yaz, emin ol şansın daha fazla olacaktır.

 

[lark]

Sub LOTO()
Open "DOSYA.TXT" For Output As #1
For i = 1 To 49
For j = i + 1 To 49
For k = j + 1 To 49
For q = k + 1 To 49
For x = q + 1 To 49
For w = x + 1 To 49
Print #1, Str(i) + Str(j) + Str(k) + Str(q) + Str(x) + Str(w)
Next: Next: Next: Next: Next: Next
Close #1
End Sub

Fikir vermek için basit bir örnek. 250Mb bir text file oluşturur. Üzerinde işlem yapılacaksa bir database kullanmak daha kullanışlı olur.