Olasılık hesapları

[YASEMİN90]

Bir zar 100 kere atılıyor msgbox ile kaç tane1, kaç tane 2,kaç tane 3......kaç tane 6 elde edildiğini gösterebilirmisiniz?

 

[T rex]

Bir zar 100 kere atılıyor msgbox ile kaç tane1, kaç tane 2,kaç tane 3......kaç tane 6 elde edildiğini gösterebilirmisiniz?

Buyurun.
Size bir T rex çözümü.:tongue:

Sub zar_at_Trex()
Randomize Timer
Dim z As Object, zar As Integer, vkey
Set z = CreateObject("Scripting.Dictionary")
For i = 1 To 100
    zar = Int(Rnd() * 7) + 1
    If Not z.exists(zar) Then
        z.Add zar, 1
        Else
        z.Item(zar) = z.Item(zar) + 1
    End If
Next
deg = "Adet" & vbTab & "Zar No"
For Each vkey In z
    deg = deg & vbLf & z.Item(vkey) & vbTab & vkey
Next
deg = deg & vbLf & "-----------------" & vbLf & "TOPLAM 100 ZAR ATILDI" & vbLf & "T rex"
MsgBox deg
Set z = Nothing
End Sub

 

[mancubus]

zarda maksimum rakam 6 olduğundan aşağıdaki ifadede 7'yi altı yapmak gerekir.

 zar = Int(Rnd() * [COLOR="Red"]6[/COLOR]) + 1

    zar = Int(Rnd() * [COLOR="Red"]7[/COLOR]) + 1

 

[T rex]

zarda maksimum rakam 6 olduğundan aşağıdaki ifadede 7'yi altı yapmak gerekir.

 zar = Int(Rnd() * [COLOR="Red"]6[/COLOR]) + 1

Evet Aynen Öyle k::
Çok uzun süredir tavla oynamadığımdan zar'ı bile unutmuşum.
Bunadım galiba.

 

[YASEMİN90]

çok teşekkür ederim

 

[Ferhat Pazarçevirdi]

Bu formüle göre;

zar = Int(Rnd() * 6) + 1

Rnd() fonksiyonu, 1 değerini üretirse; zar, 7 değerini alır ve bir mucize gerçekleşir

zar=Int(Rnd()*5)+1

olmalı.

 

[excel_ance]

selamlar

Bu formüle göre;



Rnd() fonksiyonu, 1 değerini üretirse; zar, 7 değerini alır ve bir mucize gerçekleşir

zar=Int(Rnd()*5)+1

olmalı.

"Rnd() fonksiyonu, 1 değerini üretirse; zar, 7 değerini alır ve bir mucize gerçekleşir " Hocam buradaki mucizeden kastınızı anlayamadım,farklı değermi verir yoksa olasılıkları yüksekmi verir. onu anlayamadım hocam.

 

[Ferhat Pazarçevirdi]

Tavlacılar bilir.

Bir zar atıldığında şunlardan birinin gelmesi beklenir.

Yek, Dü, Se, Cehar, Penç, Şeş ... (1-6 arası Farsça sayılar)

Heft (7) gelirse; tavlayı ilelebet kapatmak, bu mesajı tefekkür etmek ve dünyadan el etek çekmek gerekir

Yani, bir zar atıldığında, normalde; 7 gelmesi mümkün değildir.

.

 

[excel_ance]

saygılar

Tavlacılar bilir.

Bir zar atıldığında şunlardan birinin gelmesi beklenir.

Yek, Dü, Se, Cehar, Penç, Şeş ... (1-6 arası Farsça sayılar)

Heft (7) gelirse; tavlayı ilelebet kapatmak, bu mesajı tefekkür etmek ve dünyadan el etek çekmek gerekir

Yani, bir zar atıldığında, normalde; 7 gelmesi mümkün değildir.

.

çoook teşekkürler ustam bir kod anca bu kadar güzel anlatılabilirdi. dün ikebana sanatı ile anlattığınız kod gibi kalıcı ve etkin.

 

[T rex]

Bu formüle göre;



Rnd() fonksiyonu, 1 değerini üretirse; zar, 7 değerini alır ve bir mucize gerçekleşir

zar=Int(Rnd()*5)+1

olmalı.

Bu tesbit yanlış.
*6 dediğimiz zaman,0 dan başlar sonuçlar 5 te biter.
Yani 0-5 arası olur ki işte ben buna mucize derim.
bu durumda en küçüğk değer sıfır üretilir en büyük değer ise 5 üretilir.
Ama +1 eklrsek 1 ile 6 arasında değer elde etmiş oluruz.
İsterseniz bolca deneyin.
Kolay gelsin.:biggrin:

 

[T rex]

Bu formüle göre;



Rnd() fonksiyonu, 1 değerini üretirse; zar, 7 değerini alır ve bir mucize gerçekleşir

zar=Int(Rnd()*5)+1

olmalı.

Bu tesbit yanlış.
*6 dediğimiz zaman,0 dan başlar sonuçlar 5 te biter.
Yani 0-5 arası olur ki işte ben buna mucize derim.
bu durumda en küçüğk değer sıfır üretilir en büyük değer ise 5 üretilir.
Ama +1 eklrsek 1 ile 6 arasında değer elde etmiş oluruz.
İsterseniz bolca deneyin.
Kolay gelsin.:biggrin:

Şimdi ben şüpheye düştüm.
Deneyen arkadaşlar deneyip sonucu yazarlarmı?
Benim yaptığım kod doğru çalışor bende ,(Ferhat beyin mucize oluşur dediği)
Ferhat beyin yaptığı düzeltme! ise yanlış çalışıyor.
Benimki 1 ile 6 arasında sayı üretiyor,Ferhat beyinki ise 0 ike 5 arasında üretiyor. benim denemelirimde.Acaba sizin denemelerinizde durum nedir?
merak ettimde.:tongue:

 

[Ferhat Pazarçevirdi]

Yok şüpheye düşme. Sen haklısın.

0 <= Rnd() < 1

Düzeltme için teşekkürler...

 

[bahri1981]

yardim edrbilirmisiniz !!!

ben belcikadan elimde cok onemli bir bilgi var

 

[bahri1981]

selam ben belcikadan ve bilgiye ihtiyacim var yardimci olursaniz cok sevinirim ucret onemli degil simdiden tsk

 

[bahri1981]

maiol adresim bahri_asan@hotmail.com
bu adamdaki bilgilerin cogu bende var http://www.youtube.com/watch?v=cs9zcWGurJU
sadece hesabi bende fazla olan biri gerekiyor

 

[bahri1981]

arkadaslar

Ben hollanda fairplay casino'da guvenlik olarak calisiorum.
Gecen fasli bir vatandasi atmak zorunda kaldik adam fenaa para kazandi (11000 €) parayi odedikten sonra patron kov dedi bunu bende o firsatan yaralandim adama sordum naptin diye adam dedi kormusun dedi top bi karsi bi geri gelior dedi eeee dedim ne yapmam gerekior peki dusen x ve sagina solundan bir numara birde tam karsisindan bitane al dedi (4total) sonra arastirdim harbiden adamin dedigi cok dogru fakat denedim bende olmadi !!! bu arada patron yeni makine getirtirdi araya joker koydurdu !!! fakat eski modelden baska yerlerde var bu konuyu tartisabilirmiyiz www.supercasino.com aynisi bu arada baska bir sey daha gozume carpti bi masada x oynaniyorsa diger masada cikiyor !!!! aklim mantigim almiyor breaking vegas roulette assoult adam aynisini yapiyor yardimci olmak isteyen lutfen irtibata gecsin bahri_asan@hotmail.com