home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCLING / SPELLBEE / CHEMQUES.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-02-04  |  6.3 KB  |  165 lines
  1. 10 KEY OFF:CLS
  2. 20 SCREEN 0
  3. 30 WIDTH 40
  4. 40 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  5. 50 PRINT"░┌───────────────────────────────────┐░"
  6. 60 PRINT"░│                                   │░"
  7. 70 PRINT"░│            5024-A.BAS             │░"
  8. 80 PRINT"░│        CHEMISTRY QUESTIONS        │░"
  9. 90 PRINT"░│                                   │░"
  10. 100 PRINT"░│                                   │░"
  11. 110 PRINT"░│ BROUGHT TO YOU BY THE MEMBERS OF  │░"
  12. 120 PRINT"░│      ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄      │░"
  13. 130 PRINT"░│        █   █   █ █     █   █      │░"
  14. 140 PRINT"░│        █   █▄▄▄█ █     █   █      │░"
  15. 150 PRINT"░│        █   █     █     █   █      │░"
  16. 160 PRINT"░│      ▄▄█▄▄ █     █▄▄▄▄ █▄▄▄█      │░"
  17. 170 PRINT"░│                                   │░"
  18. 180 PRINT"░│      International PC Owners      │░"
  19. 190 PRINT"░│                                   │░"
  20. 200 PRINT"░│P.O. Box 10426, Pittsburgh PA 15234│░"
  21. 210 PRINT"░│                                   │░"
  22. 220 PRINT"░└───────────────────────────────────┘░"
  23. 230 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  24. 240 PRINT
  25. 250 PRINT "       PRESS ANY KEY TO CONTINUE
  26. 260 A$=INKEY$: IF A$="" THEN 260
  27. 270 WIDTH 80
  28. 280 CLS
  29. 1000 ' This program creates a question sheet for a teacher in the area of
  30. 1010 ' Concentration and dilution of solutions. The answer for the teacher
  31. 1020 ' are calculated from the randomly generated numbers.
  32. 1030 ' By seeding the random number with specific numbers control can be had
  33. 1040 ' over the content of the test.
  34. 1050 ' Written by Bill Cumming, Strathcona-Tweedsmuir School,
  35. 1060 ' Okotoks, Alberta, Canada, T0L 1T0
  36. 1070 ' February, 1982
  37. 1080 '
  38. 1090 RANDOMIZE
  39. 1100 DIM A(30,2)
  40. 1110 DIM C$(30)
  41. 1120 DIM K(20,20)
  42. 1130 FOR I=1 TO 30:FOR J=1 TO 2:READ A(I,J):NEXT J:NEXT I
  43. 1140 FOR I=1 TO 30:READ C$(I):NEXT I
  44. 1150 D=1
  45. 1160 GOSUB 1670
  46. 1170 INPUT "ANOTHER QUIZ Y/N ";X$
  47. 1180 IF X$="Y" THEN 1150
  48. 1190 GOTO 2320
  49. 1200 REM OUTPUT ANSWER KEY
  50. 1210 LPRINT :LPRINT :LPRINT
  51. 1220 LPRINT "KEY TO DRILL ";D:LPRINT
  52. 1230 FOR Y=1 TO N1
  53. 1240 LPRINT Y*100
  54. 1250 FOR X=1 TO 10:LPRINT X;K(Y,X),:NEXT X
  55. 1260 LPRINT
  56. 1270 NEXT Y
  57. 1280 RETURN
  58. 1290 LPRINT :FOR X=1 TO 80 :LPRINT "-";:NEXT X:LPRINT :RETURN
  59. 1300 LPRINT :LPRINT :REM STUDENT ANSWERS DELETED
  60. 1310 FOR X=1 TO 80 :LPRINT "-";:NEXT X
  61. 1320 LPRINT "                  STRATHCONA-TWEEDSMUIR SCHOOL"
  62. 1330 LPRINT Y*100;"       CHEM 20     CONCENTRATION CALCULATIONS       Name:_______________________"
  63. 1340 FOR X=1 TO 80 :LPRINT "-";:NEXT X:LPRINT :LPRINT
  64. 1350 RETURN
  65. 1360 N=10
  66. 1370 N1=1
  67. 1380 RETURN
  68. 1390 REM FORMULA WT CALCULATION
  69. 1400 IF A(I,2)=A(J,2) THEN 1420
  70. 1410 P=A(I,1)*A(J,2):C=A(J,1)*A(I,2):GOTO 1430
  71. 1420 P=A(I,1):C=A(J,1)
  72. 1430 F=P+C:P1=P/F*100:P1=INT(P1*100+.5)/100
  73. 1440 M=G/F:C=M/V
  74. 1450 RETURN
  75. 1460 I=INT(RND(1)*15+1):J=INT(RND(3)*15+16):G=RND(12)*70
  76. 1470 V=RND(1)*3
  77. 1480 V1=RND(1)*6
  78. 1490 V2=RND(1)*10
  79. 1500 V3=RND(1)*20:IF V3<1 THEN 1500
  80. 1510 V4=RND(1)*100
  81. 1520 C1=RND(1)
  82. 1530 C2=RND(1)*3
  83. 1540 C3=RND(4)*6
  84. 1550 C4=RND(1)*2
  85. 1560 M1=RND(2)*3
  86. 1570 RETURN
  87. 1580 DATA 26.98,3,18.05,1,137.33,2,52,3,63.55,2,55.85,2,55.85,3,40.08,2,207.19,2
  88. 1590 DATA 24.31,2,200.59,2,39.1,1,107.87,1,22.99,1,65.38,2,59.05,1,79.9,1
  89. 1600 DATA 60.01,2,35.45,1,116,2,61.02,1,17.01,1,62.01,1,46.01,1,126.9,1
  90. 1610 DATA 94.97,3,96.06,2,32.06,2,80.06,2,83.45,1
  91. 1620 DATA Aluminum,Ammonium,Barium,Chromiun,Copper(II),Iron(II),Iron(III)
  92. 1630 DATA Calcium,Lead(II),Magnesium,Mercury(II),Potassium,Silver,Sodium,Zinc
  93. 1640 DATA Acetate,Bromide,Carbonate,Chloride,Chromate,Hydrogen Carbonate
  94. 1650 DATA Hydroxide,Nitrate,Nitrite,Iodide,Phosphate,Sulfate,Sulfide
  95. 1660 DATA Sulfite,Chlorate
  96. 1670 PRINT "CONCENTRATION CALCULATIONS":PRINT
  97. 1680 INPUT "HOW MANY SETS";N1
  98. 1690 GOSUB 1460
  99. 1700 PRINT :PRINT
  100. 1710 FOR Y=1 TO N1
  101. 1720 LPRINT :LPRINT :GOSUB 1300
  102. 1730 LPRINT USING "(1)  WHAT IS THE MOLARITY OF ##.## LITRES OF A SOLUTION WITH ##.##";V;G
  103. 1740 LPRINT "     GRAMS OF ";C$(I);" "C$(J)
  104. 1750 GOSUB 1390
  105. 1760 K(Y,1)=C
  106. 1770 LPRINT :LPRINT :LPRINT :LPRINT
  107. 1780 GOSUB 1460
  108. 1790 LPRINT USING "(2)  HOW MANY MOLES ARE IN ###.# LITRES OF A #.### ";V4;C1
  109. 1800 LPRINT "     MOLAR SOLUTION OF ";C$(I);" ";C$(J)
  110. 1810 GOSUB 1390
  111. 1820 K(Y,2)=V4*C1
  112. 1830 LPRINT :LPRINT :LPRINT :LPRINT
  113. 1840 GOSUB 1460
  114. 1850 LPRINT USING "(3)  HOW MANY GRAMS IN ###.## MILILITRES OF A #.### MOLAR";V4;C2
  115. 1860 LPRINT "     SOLUTION OF ";C$(I);" "C$(J)
  116. 1870 GOSUB 1390
  117. 1880 K(Y,3)=(V4/1000)*C2*F
  118. 1890 LPRINT :LPRINT :LPRINT :LPRINT
  119. 1900 GOSUB 1460
  120. 1910 LPRINT USING "(4)  WHAT IS THE VOLUME OF A #.## MOLAR SOLUTION";C4
  121. 1920 LPRINT USING "     WHICH CONTAINS #.### MOLES OF SOLUTE";M1
  122. 1930 K(Y,4)=M1/C4
  123. 1940 LPRINT :LPRINT :LPRINT :LPRINT
  124. 1950 GOSUB 1460
  125. 1960 LPRINT USING "(5)   WHAT IS THE VOLUME OF A #.## MOLAR SOLUTION";C2
  126. 1970 LPRINT USING "      WHICH CONTAINS ###.## GRAMS OF THE COMPOUND";G
  127. 1980 LPRINT "      ";C$(I);" ";C$(J)
  128. 1990 GOSUB 1390
  129. 2000 K(Y,5)=M/C2
  130. 2010 LPRINT :LPRINT :LPRINT :LPRINT
  131. 2020 GOSUB 1460
  132. 2030 LPRINT USING "(6)   WHAT IS THE FINAL MOLARITY IF ##.## LITRES OF";V
  133. 2040 LPRINT USING "      A #.### MOLAR SOLUTION IS DILUTED TO  ##.## LITRES";C2;V3
  134. 2050 K(Y,6)=C2*V/V3
  135. 2060 LPRINT :LPRINT :LPRINT :LPRINT
  136. 2070 GOSUB 1460
  137. 2080 LPRINT USING "(7)   IF #.### LITRES OF SOLUTION IS DILUTED TO ##.# LITRES";V3;V4
  138. 2090 LPRINT USING "      MAKING A #.## MOLAR SOLUTION, WHAT WAS THE ORIGINAL CONCENTRATION";C1
  139. 2100 K(Y,7)=C1*V4/V3
  140. 2110 LPRINT :LPRINT :LPRINT :LPRINT
  141. 2120 GOSUB 1460
  142. 2130 LPRINT USING "(8)   IF #.## LITRES OF A #.## MOLAR SOLUTION ARE DILUTED TO";V1;C4
  143. 2140 LPRINT USING "      GIVE A #.## MOLAR SOLUTION, WHAT IS THE FINAL VOLUME?";C1
  144. 2150 K(Y,8)=V1*C4/C1
  145. 2160 LPRINT :LPRINT :LPRINT :LPRINT
  146. 2170 LPRINT USING "(9)   WHAT VOLUME OF A #.## MOLAR SOLUTION IS NEEDED TO MAKE";C3
  147. 2180 LPRINT USING "      ##.### LITRES OF A #.## MOLAR SOLUTION?";V4;C1
  148. 2190 K(Y,9)=C1*V4/C3
  149. 2200 LPRINT :LPRINT :LPRINT :LPRINT
  150. 2210 GOSUB 1460
  151. 2220 LPRINT USING "(10)  WHAT IS THE FINAL MOLARITY OF A SOLUTION MADE BY DISSOLVING ###.## GRAMS";G
  152. 2230 LPRINT "      OF ";C$(I);" ";C$(J);" TO PREPARE A SOLUTION OF"
  153. 2240 LPRINT USING "      #.## LITRES AND DILUTING TO ##.## LITRES ?";V2;V3
  154. 2250 LPRINT :LPRINT :LPRINT :LPRINT
  155. 2260 GOSUB 1290
  156. 2270 K(Y,10)=M/V3
  157. 2280 NEXT Y
  158. 2290 GOSUB 1200
  159. 2300 GOTO 1170
  160. 2310 NEXT Y
  161. 2320 END
  162. RINT :LPRINT :LPRINT
  163. 2260 GOSUB 1290
  164. 2270 K(Y,10)=M/V3
  165. 2280 NEXT Y