Listing of file='18A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 427, program filename = '18A' 0005 DIM A(3) 0010 T=0 0020 PRINT "INPUT 'K,N,P' (OR '0,0,-1' TO PRINT THE SUM OF PROBABILITIES" 0025 PRINT "CALCULATED THUS FAR, OR '0,0,0' TO END PROGRAM)" 0030 INPUT K,N,P 0040 IF P=0 THEN 999 0050 IF P=-1 THEN 240 0060 A(1)=N 0070 A(2)=K 0080 A(3)=N-K 0090 FOR I=1 TO 3 0100 IF A(I)=0 THEN 190 0120 S=1 0130 FOR J=1 TO A(I) 0140 S=S*J 0150 NEXT J 0160 A(I)=LOG(S) 0190 NEXT I 0200 J=EXP(A(1)-A(2)-A(3)+K*LOG(P)+(N-K)*LOG(1-P)) 0210 PRINT "P(K,N,P)=";J 0220 T=T+J 0230 GOTO 250 0240 PRINT "SUM OF PROBABILITIES=";T 0250 PRINT 0260 PRINT "INPUT 'K,N,P'" 0270 GOTO 30 0999 END