'Normal dagilmdan sayi uretme CLS RANDOMIZE TIMER INPUT "deneme sayisi="; 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 ortalamasi="; 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