10  REMPROGRAM NAME = QUIZ, FOR SAMPRO
20  DIM A$[5],D$[50]
30  DIM A[20]
40  FOR I=1 TO 12
50  A[I]=1
60  NEXT I
70  PRINT "HAVE YOU COMPLETED ALL PARTS OF THE PROBABILITY PROGRAMS";
80  INPUT A$
90  PRINT 
100  W=N=R=0
110  IF A$="NO" THEN 150
120  IF A$="YES" THEN 180
130  GOSUB 1890
140  GOTO 70
150  PRINT "YOU SHOULD TRY TO FINISH THEM BEFORE TAKING THIS QUIZ."
160  PRINT 
170  GOTO 1910
180  PRINT TAB(4);"*************************** QUIZ **********";
190  PRINT "*****************"
200  PRINT 
210  PRINT " 1.  TWO POLYHEDRA ARE TOSSED.  ONE HAS 3 SIDES, THE OTHER 4."
220  PRINT 
230  PRINT "     1     1          3     1          2     3"
240  PRINT "     1     2          3     2          2     2"
250  PRINT "     1     3          3     3          2     1";
260  PRINT 
270  PRINT 
280  INPUT A$
290  PRINT 
300  N=N+1
310  IF A$="NO" THEN 360
320  IF A$="YES" THEN 350
330  GOSUB 1890
340  GOTO 210
350  GOSUB 1860
360  PRINT " 2.  THREE PENNIES ARE TOSSED.  (1=HEAD, 2=TAIL)"
370  PRINT 
380  PRINT "          1   1   2"
390  PRINT "          2   2   1"
400  PRINT "          2   2   2"
410  PRINT "          1   1   1  ";
420  PRINT 
430  PRINT 
440  PRINT "     IS THE ABOVE A CORRECT SAMPLE SPACE";
450  INPUT A$
460  PRINT 
470  N=N+1
480  IF A$="NO" THEN 520
490  IF A$="YES" THEN 530
500  GOSUB 1890
510  GOTO 360
520  GOSUB 1860
530  PRINT " 3.  FOUR POLYHEDRA ARE TOSSED.  THEY HAVE 2,6,8, AND 10 SIDES."
540  PRINT "     HOW MANY POINTS ARE THERE IN THE SAMPLE SPACE";
550  INPUT C
560  PRINT 
570  N=N+1
580  IF C=960 THEN 630
590  GOSUB 1860
600  A[3]=0
610  GOTO 630
620  A[3]=1
630  PRINT " 4.  AN EXPERIMENT IS PERFORMED 500 TIMES."
640  PRINT "     EVENT 'A' OCCURS 75 TIMES."
650  PRINT "     WHAT IS THE EXPERIMENTAL P(A)";
660  INPUT D
670  PRINT 
680  N=N+1
690  IF ABS(D-.15) <= .01 THEN 710
700  GOSUB 1860
710  PRINT " 5.  TWO DICE ARE TOSSED.  "
720  PRINT "     WHAT IS THE THEORETICAL PROBABILITY OF GETTING A 7";
730  INPUT E
740  PRINT 
750  N=N+1
760  IF ABS(E-.1667) <= .01 THEN 780
770  GOSUB 1860
780  PRINT " 6.  TWO DICE ARE TOSSED."
790  PRINT "     WHAT IS THE PROBABILITY OF GETTING A 7, OR AN 11";
800  INPUT F
810  PRINT 
820  N=N+1
830  IF ABS(F-.2222) <= .01 THEN 850
840  GOSUB 1860
850  PRINT " 7.  AN EXPERIMENT IS PERFORMED 1000 TIMES.  EVENT 'A' OCCURS"
860  PRINT "     200 TIMES, AND EVENT 'B' OCCURS 350 TIMES.  "
870  PRINT "     EVENTS 'A' AND 'B' ARE INDEPENDENT EVENTS."
880  PRINT "     WHAT ARE THE FOLLOWING PROBABILITIES?"
890  PRINT "          A. P(A)=";
900  INPUT G1
910  PRINT 
920  PRINT "          B. P(B)=";
930  INPUT G2
940  N=N+1
950  PRINT 
960  IF ABS(G1-.2)<.01 AND ABS(G2-.35)<.01 THEN 980
970  GOSUB 1860
980  PRINT " 8.  FOR THE SAME EXPERIMENT AND RESULTS IN QUESTION 7,"
990  PRINT "     WHAT ARE THE FOLLOWING PROBABILITIES?"
1000  PRINT "          C. P(A&B)=";
1010  INPUT H1
1020  PRINT 
1030  PRINT "          D. P(A UNION B)=";
1040  INPUT H2
1050  PRINT 
1060  N=N+1
1070  IF ABS(H1-.07) <= .01 AND ABS(H2-.48) <= .01 THEN 1090
1080  GOSUB 1860
1090  PRINT " 9.  IN A MATHEMATICS CLASS OF 30 STUDENTS, 15 ARE ALSO TAKING"
1100  PRINT "     CHEMISTRY, 18 ARE ALSO TAKING PHYSICS, AND 8 ARE TAKING"
1110  PRINT "     BOTH CHEMISTRY AND PHYSICS.  A STUDENT IS SELECTED AT"
1120  PRINT "     RANDOM FROM THE CLASS.  WHAT IS THE PROBABILITY THAT"
1130  PRINT "     THE STUDENT IS TAKING EITHER CHEMISTRY OR PHYSICS";
1140  INPUT J1
1150  PRINT 
1160  N=N+1
1170  IF ABS(J1-.833) <= .01 THEN 1190
1180  GOSUB 1860
1190  PRINT "10.  SAM'S PIZZA PALACE OFFERS PEPPERONI, SAUSAGE, MUSHROOM,"
1200  PRINT "     ANCHOVY, AND ONION AS TOPPINGS FOR THE CHEESE BASE OF"
1210  PRINT "     THE PIZZAS."
1220  PRINT "     HOW MANY DIFFERENT KINDS OF PIZZAS CAN BE MADE";
1230  INPUT L1
1240  PRINT 
1250  N=N+1
1260  IF L1=32 THEN 1280
1270  GOSUB 1860
1280  PRINT "11.  A FOUR-SIDED POLYHEDRON IS TOSSED TWICE.  EVENT 'A' IS"
1290  PRINT "     'THE NUMBER ON THE SECOND TOSS', AND EVENT 'B' IS 'THE"
1300  PRINT "     NUMBER ON THE FIRST TOSS'."
1310  PRINT "     P(A GIVEN B) = ";
1320  INPUT V1
1330  PRINT 
1340  N=N+1
1350  IF V1=.25 THEN 1370
1360  GOSUB 1860
1370  PRINT "12.  THE FIRST ROW OF PASCAL'S TRIANGLE IS  1  1."
1380  PRINT "     USING SINGLE SPACES BETWEEN THE NUMBERS, TYPE THE "
1390  PRINT "     SIXTH ROW OF PASCAL'S TRIANGLE:"
1400  PRINT "       ";
1410  INPUT D$
1420  PRINT 
1430  N=N+1
1440  IF D$="1 6 15 20 15 6 1" THEN 1540
1450  GOSUB 1860
1460  PRINT "13.  A DECAHEDRON (10-SIDED POLYHEDRON) IS TOSSED ONCE."
1470  PRINT "     SUCCESS IS A 2 OR A 3 ON THE DOWN SIDE."
1480  PRINT "     P(FAILURE) = ";
1490  INPUT V1
1500  PRINT 
1510  N=N+1
1520  IF V1=.8 THEN 1540
1530  GOSUB 1860
1540  PRINT "14.  A DODECAHEDRON (12-SIDED POLYHEDRON) IS TOSSED 4 TIMES."
1550  PRINT "     SUCCESS IS A 2,3,5, OR 7 ON THE DOWN SIDE."
1560  PRINT "     P(EXACTLY 3 SUCCESSES) = ";
1570  INPUT V1
1580  PRINT 
1590  N=N+1
1600  IF ABS(V1-.099)<.001 THEN 1600
1610  GOSUB 1860
1620  PRINT "15.  THERE ARE 4 CHILDREN IN A FAMILY."
1630  PRINT "     P(AT LEAST ONE IS A BOY) = ";
1640  INPUT V1
1650  PRINT 
1660  N=N+1
1670  IF ABS(V1-.9375)<.001 THEN 1690
1680  GOSUB 1860
1690  PRINT "YOUR SCORE IS"15-W"CORRECT AND"W"INCORRECT,"
1700  PRINT "WHICH IS"(15-W)/.15"PERCENT."'10
1710  PRINT "YOU MISSED PROBLEMS";
1720  FOR I=1 TO 15
1730  IF A[I]=1 THEN 1780
1740  R=R+1
1750  PRINT I;
1760  IF R=W THEN 1790
1770  PRINT ",";
1780  NEXT I
1790  PRINT 
1800  PRINT 
1810  IF W>3 THEN 1830
1820  GOTO 1910
1830  PRINT "YOU DIDN'T DO AS WELL AS YOU SHOULD HAVE.  YOU SHOULD"
1840  PRINT "PROBABLY RUN THROUGH SOME OF THE PROGRAMS AGAIN."
1850  GOTO 1910
1860  W=W+1
1870  A[N]=0
1880  RETURN 
1890  PRINT "YOU HAVE MADE A TYPING MISTAKE.  TRY AGAIN!"'10
1900  RETURN 
1910  END 
