20 REM ************ ΠΡΟΓΡΑΜΜΑ Π110 ************

30 REM * *

40 REM * Αρνητική Διωνυμική κατανομή *

50 REM * *

60 REM *******************************************

70 CLS

160 INPUT "Δώσε την τιμή του ν";N:PRINT

170 INPUT "Δώσε την τιμή p της πιθανότητας=";P:PRINT

180 INPUT "Δώσε την τιμή του k=";K

190 P1=1-P

200 K1=N-1

210 L=N+K-1

220 GOSUB 340

230 CLS:LOCATE 14:PRINT "Αρν. Διων. κατανομή = ";T*P^N*P1^K

240 SM=N*P1/P:PRINT

250 PRINT "Μέση τιμή";SM:PRINT

260 PRINT "Διασπορά ";SM/P:PRINT

270 F0=P^N:S0=F0

280 FOR J=1 TO K

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

300 S0=S0+F0

310 NEXT J

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

330 END

340 T=1

350 IF K1>L/2 THEN GOTO 400

360 FOR I=1 TO K1

370 T=T*(L-K1+I)/I

380 NEXT I

390 GOTO 430

400 FOR I=1 TO L-K1

410 T=T*(K1+I)/I

420 NEXT I

430 RETURN