OPTION ARITHMETIC decimal_HIGH
PRINT
PRINT "二項分布："
PRINT "  さいころを７２０回投げて、そのうち１の目が１４０回以上出る確率"
PRINT
PRINT "     COMB(n,x)*p^x*(1-p)^(n-x)"
PRINT "           p=1/6， n=720,  x=0,1,2,3,4,5,6"
PRINT
LET p=1/6
LET n=720
PRINT
LET C=0
FOR i=140 TO n
   LET C=C+ROUND(COMB(n,i)*p^i*(1-p)^(n-i),4)
NEXT i
PRINT C
PRINT
END