'Binom dağılımından sayı üretme CLS RANDOMIZE TIMER INPUT "p="; p INPUT "tekrar sayisi="; n INPUT "deneme sayisi="; m t = 0 FOR i = 1 TO m FOR j = 1 TO n IF RND < p THEN t(i) = t(i) + 1 NEXT NEXT FOR i = 1 TO m PRINT i; ".nci denemede basarilarin sayisi="; t(i) NEXT i