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

20 REM * *

30 REM * Διωνυμική κατανομή *

40 REM * *

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

60 CLS

70 INPUT "Δώσε τον αριθμό ν των ανεξαρτήτων δοκιμών = ";N:PRINT

80 INPUT "Δώσε την πιθανότητα p να συμβεί Επιτυχία σε μια απλή δοκιμή = ";P:PRINT

90 INPUT "Δώσε το πλήθος k επιτυχιών =";K

100 P1=1-P

110 GOSUB 220

120 CLS:LOCATE 14:PRINT "Η κατανομή ισούται με ";T*P^K*P1^(N-K)

130 PRINT "Η μέση τιμή είναι = ";N*P

140 PRINT :PRINT "Η διασπορά ισούται με ";N*P*P1

150 F0=P1^N:S0=F0

160 FOR J=1 TO K

170 F0=P*(N+1-J)*F0/P1/J

180 S0=S0+F0

190 NEXT J

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

210 END

220 T=1

230 IF K>N/2 THEN GOTO 280

240 FOR I=1 TO K

250 T=T*(N-K+I)/I

260 NEXT I

270 GOTO 310

280 FOR I=1 TO N-K

290 T=T*(K+I)/I

300 NEXT I

310 RETURN