1. Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha Fazla Bilgi.

QBasic ile Normal dağılımından sayı üretme

'Bilgisayar Programlama ve Kodlama' forumunda Powers tarafından 8 Ocak 2013 tarihinde açılan konu

  1. Powers

    Powers Administrator Site Yetkilisi

    'Normal dagi￾l￾mdan say￾i u￾retme
    CLS
    RANDOMIZE TIMER
    INPUT "deneme sayi￾si￾="; n
    INPUT "ortalama="; mu
    INPUT "standart sapma="; sigma
    DIM z(n)
    FOR i = 1 TO n
    u1 = RND
    u2 = RND
    x = SQR(-2 * LOG(u1))
    y = SIN(6.28 * u2)
    z(i) = (x * y) * sigma + mu
    NEXT
    FOR i = 1 TO n
    PRINT z(i)
    NEXT
    FOR i = 1 TO n
    top = top + z(i)
    NEXT
    ort = top / n
    PRINT "ornek ortalamas￾i="; ort
    FOR i = 1 TO n
    var = var + (z(i) - ort) ^ 2
    NEXT i
    var = var / (n - 1)
    PRINT "ornek varyansi￾="; var
    IF (-1) ^ n = -1 THEN
    ortanca = z((n + 1) / 2)
    ELSE
    ortanca = (z(n / 2) + z((n + 2) / 2)) / 2
    END IF
    PRINT "Ortanca="; ortanca
     
    Tags:

Bu Sayfayı Paylaş

  1. Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha Fazla Bilgi.
  1. Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha Fazla Bilgi.
Yükleniyor...