10 REM ************ ΠΡΟΓΡΑΜΜΑ 112 ************

20 REM * *

30 REM * Κατανομή Poisson *

40 REM * *

50 REM *******************************************

60 CLS

70 INPUT "Δώσε τη μέση τιμή";M:PRINT

80 INPUT "Δώσε το k=";X

90 EX=EXP(-M)

100 P=M^X*EX

110 FOR J=2 TO X

120 P=P/J

130 NEXT J

140 CLS:PRINT :PRINT Η κατανομή Poisson = ";P

150 F0=EX:S0=F0

160 FOR J=1 TO X

170 F0=M*F0/J

180 S0=S0+F0

190 NEXT J

200 PRINT :PRINT "Η συσσωρευμένη κατανομή = ";S0

210 END