Сделать тест из 20 вопросов и задать их в случайном порядке - QBasic

Узнай цену своей работы

Формулировка задачи:

Сделать тест из 20 вопросов. Когда работает программа,случайным образом выбрается 5 разных вопросов (Без повторов)
Листинг программы 
  1. SCREEN 12
  2. x$ = INPUT$(1): CLS
  3.  
  4. 0 IF e = 5 THEN 20 ELSE ON INT(RND(1) * 10) + 1 GOTO 1, 2, 3, 4, 5, 6, 7, 8
  5.  
  6. 1 CLS : e = e + 1: PRINT "Вопрос 1. Выберите правильный вариант ответа."
  7. PRINT "—Что образуется в результате реакции соединения : Fe + S = .."
  8. PRINT "1. Fe2S"
  9. PRINT "2. FeS"
  10. PRINT "3. 2FeS"
  11.  
  12. INPUT o
  13. IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad^"
  14. x$ = INPUT$(1): CLS : GOTO 0
  15.  
  16. 2 CLS : e = e + 1: PRINT " Вопрос 2. Выберите правильный вариант ответа."
  17. PRINT "— Что образуется в результате реакции соединения: C + O2 = .."
  18. PRINT "1. CO2"
  19. PRINT "2. CO"
  20. PRINT "3. C2O"
  21.  
  22. INPUT o
  23. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  24. x$ = INPUT$(1): CLS : GOTO 0
  25.  
  26. 3 CLS : e = e + 1: PRINT " Вопрос 3. Выберите правильный вариант ответа."
  27. PRINT "— Что образуется в результате реакции разложения: 2Ag2O = .."
  28. PRINT "1. Ag + O2"
  29. PRINT "2. 2Ag + O2"
  30. PRINT "3. 4Ag + O2"
  31.  
  32. INPUT o
  33. IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  34. x$ = INPUT$(1): CLS : GOTO 0
  35.  
  36. 4 CLS : e = e + 1: PRINT " Вопрос 4. Выберите правильный вариант ответа."
  37. PRINT "— Что образуется в результате реакции замещения: CuSO4 + Fe = .."
  38. PRINT "1. FeSO4 + Cu"
  39. PRINT "2. Fe(SO4)2 + Cu2"
  40. PRINT "3. 2FeSO4 + Cu"
  41.  
  42. INPUT o
  43. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  44. x$ = INPUT$(1): CLS : GOTO 0
  45.  
  46. 5 CLS : e = e + 1: PRINT " Вопрос 5. Выберите правильный вариант ответа."
  47. PRINT "— Что образуется в результате реакции обмена: Ba(OH)2 + H2SO4 = .."
  48. PRINT "1. BaSO4 + 2H2O"
  49. PRINT "2. BaSO4 + H2"
  50. PRINT "3. BaSO4 + O2"
  51.  
  52. INPUT o
  53. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  54. x$ = INPUT$(1): CLS : GOTO 0
  55.  
  56. 6 CLS : e = e + 1: PRINT " Вопрос 6. Выберите правильный вариант ответа."
  57. PRINT "Химическая реакция, в которой исходные вещества как бы обмениваются"
  58. PRINT "своими составными частями-это  .."
  59. PRINT "1. Реакция замещения"
  60. PRINT "2. Реакция разложения"
  61. PRINT "3. Реакция обмена "
  62.  
  63. INPUT o
  64. IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  65. x$ = INPUT$(1): CLS : GOTO 0
  66.  
  67. 7 CLS : e = e + 1: PRINT " Вопрос  7. Выберите правильный вариант ответа."
  68. PRINT "Химическая реакция ,в которой из нескольких простых или сложных"
  69. PRINT "веществ образуется одно сложное-это.."
  70. PRINT "1. Реакция замещения"
  71. PRINT "2. Реакция соединения"
  72. PRINT "3. Реакция разложения"
  73.  
  74. INPUT o
  75. IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  76. x$ = INPUT$(1): CLS : GOTO 0
  77.  
  78. 8 CLS : e = e + 1: PRINT " Вопрос  8. Выберите правильный вариант ответа."
  79. PRINT "химическая реакция,в которой атом простого вещества замещает "
  80. PRINT "один из атомов сложного -это.."
  81. PRINT "1. Реакция замещения"
  82. PRINT "2. Реакция соединения"
  83. PRINT "3. Реакция разложения"
  84.  
  85. INPUT o
  86. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  87. x$ = INPUT$(1): CLS : GOTO 0
  88.  
  89. 9 CLS : e = e + 1: PRINT "Вопрос 9. Выберите правильный вариант ответа."
  90. PRINT "—Что образуется в результате реакции соединения : Fe + S = .."
  91. PRINT "1. Fe2S"
  92. PRINT "2. FeS"
  93. PRINT "3. 2FeS"
  94.  
  95. INPUT o
  96. IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad^"
  97. x$ = INPUT$(1): CLS : GOTO 0
  98.  
  99. 10 CLS : e = e + 1: PRINT " Вопрос 10. Выберите правильный вариант ответа."
  100. PRINT "— Что образуется в результате реакции соединения: C + O2 = .."
  101. PRINT "1. CO2"
  102. PRINT "2. CO"
  103. PRINT "3. C2O"
  104.  
  105. INPUT o
  106. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  107. x$ = INPUT$(1): CLS : GOTO 0
  108.  
  109. 11 CLS : e = e + 1: PRINT " Вопрос 11. Выберите правильный вариант ответа."
  110. PRINT "— Что образуется в результате реакции разложения: 2Ag2O = .."
  111. PRINT "1. Ag + O2"
  112. PRINT "2. 2Ag + O2"
  113. PRINT "3. 4Ag + O2"
  114.  
  115. INPUT o
  116. IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  117. x$ = INPUT$(1): CLS : GOTO 0
  118.  
  119. 12 CLS : e = e + 1: PRINT " Вопрос 12. Выберите правильный вариант ответа."
  120. PRINT "— Что образуется в результате реакции замещения: CuSO4 + Fe = .."
  121. PRINT "1. FeSO4 + Cu"
  122. PRINT "2. Fe(SO4)2 + Cu2"
  123. PRINT "3. 2FeSO4 + Cu"
  124.  
  125. INPUT o
  126. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  127. x$ = INPUT$(1): CLS : GOTO 0
  128.  
  129. 13 CLS : e = e + 1: PRINT " Вопрос 13. Выберите правильный вариант ответа."
  130. PRINT "— Что образуется в результате реакции обмена: Ba(OH)2 + H2SO4 = .."
  131. PRINT "1. BaSO4 + 2H2O"
  132. PRINT "2. BaSO4 + H2"
  133. PRINT "3. BaSO4 + O2"
  134.  
  135. INPUT o
  136. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  137. x$ = INPUT$(1): CLS : GOTO 0
  138.  
  139. 14 CLS : e = e + 1: PRINT " Вопрос  14. Выберите правильный вариант ответа."
  140. PRINT "Химическая реакция, в которой исходные вещества как бы обмениваются"
  141. PRINT "своими составными частями-это  .."
  142. PRINT "1. Реакция замещения"
  143. PRINT "2. Реакция разложения"
  144. PRINT "3. Реакция обмена "
  145.  
  146. INPUT o
  147. IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  148. x$ = INPUT$(1): CLS : GOTO 0
  149.  
  150. 15 CLS : e = e + 1: PRINT " Вопрос  15. Выберите правильный вариант ответа."
  151. PRINT "Химическая реакция ,в которой из нескольких простых или сложных"
  152. PRINT "веществ образуется одно сложное-это.."
  153. PRINT "1. Реакция замещения"
  154. PRINT "2. Реакция соединения"
  155. PRINT "3. Реакция разложения"
  156.  
  157. INPUT o
  158. IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  159. x$ = INPUT$(1): CLS : GOTO 0
  160.  
  161. 16 CLS : e = e + 1: PRINT " Вопрос  16. Выберите правильный вариант ответа."
  162. PRINT "химическая реакция,в которой атом простого вещества замещает "
  163. PRINT "один из атомов сложного -это.."
  164. PRINT "1. Реакция замещения"
  165. PRINT "2. Реакция соединения"
  166. PRINT "3. Реакция разложения"
  167. INPUT o
  168. IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  169. x$ = INPUT$(1): CLS : GOTO 0
  170.  
  171. 17 CLS : e = e + 1: PRINT " Вопрос 17. Выберите правильный вариант ответа."
  172. PRINT "— Что образуется в результате реакции соединения: C + O2 = .."
  173. PRINT "1. CO2"
  174. PRINT "2. CO"
  175. PRINT "3. C2O"
  176.  
  177. INPUT o
  178. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  179. x$ = INPUT$(1): CLS : GOTO 0
  180.  
  181. 18 CLS : e = e + 1: PRINT " Вопрос 18. Выберите правильный вариант ответа."
  182. PRINT "— Что образуется в результате реакции разложения: 2Ag2O = .."
  183. PRINT "1. Ag + O2"
  184. PRINT "2. 2Ag + O2"
  185. PRINT "3. 4Ag + O2"
  186.  
  187. INPUT o
  188. IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  189. x$ = INPUT$(1): CLS : GOTO 0
  190.  
  191. 19 CLS : e = e + 1: PRINT " Вопрос 19. Выберите правильный вариант ответа."
  192. PRINT "— Что образуется в результате реакции замещения: CuSO4 + Fe = .."
  193. PRINT "1. FeSO4 + Cu"
  194. PRINT "2. Fe(SO4)2 + Cu2"
  195. PRINT "3. 2FeSO4 + Cu"
  196.  
  197. INPUT o
  198. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  199. x$ = INPUT$(1): CLS : GOTO 0
  200.  
  201. 20 CLS : e = e + 1: PRINT " Вопрос 20. Выберите правильный вариант ответа."
  202. PRINT "— Что образуется в результате реакции обмена: Ba(OH)2 + H2SO4 = .."
  203. PRINT "1. BaSO4 + 2H2O"
  204. PRINT "2. BaSO4 + H2"
  205. PRINT "3. BaSO4 + O2"
  206.  
  207. INPUT o
  208. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  209. x$ = INPUT$(1): CLS : GOTO 0
  210.  
  211. IF s = 5 THEN PRINT "5"
  212. IF s = 4 THEN PRINT "4"
  213. IF s = 3 THEN PRINT "3"
  214. IF s = 2 THEN PRINT "2"

Решение задачи: «Сделать тест из 20 вопросов и задать их в случайном порядке»

textual
Листинг программы 
  1. CLS
  2. DIM numotv(1 TO 5)
  3. FOR i = 1 TO 5: numotv(i) = 0: NEXT i
  4. e = 0
  5. RANDOMIZE TIMER
  6. 0 IF e = 5 THEN
  7.   GOTO 21
  8.            ELSE
  9.   e = e + 1
  10. 22 :
  11.   xgoto = INT(RND(1) * 20) + 1
  12.   stat = 1
  13.   FOR i = 1 TO e
  14.       IF numotv(i) = xgoto THEN stat = 0
  15.   NEXT i
  16.   IF stat = 0 GOTO 22
  17.   numotv(e) = xgoto
  18.   ON xgoto GOTO 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20
  19. END IF
  20. 1 CLS : PRINT "Вопрос 1. Выберите правильный вариант ответа."
  21. PRINT "-Что образуется в результате реакции соединения : Fe + S = .."
  22. PRINT "1. Fe2S"
  23. PRINT "2. FeS"
  24. PRINT "3. 2FeS"
  25.  
  26. INPUT o
  27. IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad^"
  28. x$ = INPUT$(1): CLS : GOTO 0
  29.  
  30. 2 CLS : PRINT " Вопрос 2. Выберите правильный вариант ответа."
  31. PRINT "- Что образуется в результате реакции соединения: C + O2 = .."
  32. PRINT "1. CO2"
  33. PRINT "2. CO"
  34. PRINT "3. C2O"
  35.  
  36. INPUT o
  37. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  38. x$ = INPUT$(1): CLS : GOTO 0
  39.  
  40. 3 CLS : PRINT " Вопрос 3. Выберите правильный вариант ответа."
  41. PRINT "- Что образуется в результате реакции разложения: 2Ag2O = .."
  42. PRINT "1. Ag + O2"
  43. PRINT "2. 2Ag + O2"
  44. PRINT "3. 4Ag + O2"
  45.  
  46. INPUT o
  47. IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  48. x$ = INPUT$(1): CLS : GOTO 0
  49.  
  50. 4 CLS : PRINT " Вопрос 4. Выберите правильный вариант ответа."
  51. PRINT "- Что образуется в результате реакции замещения: CuSO4 + Fe = .."
  52. PRINT "1. FeSO4 + Cu"
  53. PRINT "2. Fe(SO4)2 + Cu2"
  54. PRINT "3. 2FeSO4 + Cu"
  55.  
  56.  
  57. INPUT o
  58. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  59. x$ = INPUT$(1): CLS : GOTO 0
  60.  
  61.  
  62. 5 CLS : PRINT " Вопрос 5. Выберите правильный вариант ответа."
  63. PRINT "- Что образуется в результате реакции обмена: Ba(OH)2 + H2SO4 = .."
  64. PRINT "1. BaSO4 + 2H2O"
  65. PRINT "2. BaSO4 + H2"
  66. PRINT "3. BaSO4 + O2"
  67.  
  68. INPUT o
  69. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  70. x$ = INPUT$(1): CLS : GOTO 0
  71.  
  72. 6 CLS : PRINT " Вопрос 6. Выберите правильный вариант ответа."
  73. PRINT "Химическая реакция, в которой исходные вещества как бы обмениваются"
  74. PRINT "своими составными частями-это  .."
  75. PRINT "1. Реакция замещения"
  76. PRINT "2. Реакция разложения"
  77. PRINT "3. Реакция обмена "
  78.  
  79. INPUT o
  80. IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  81. x$ = INPUT$(1): CLS : GOTO 0
  82.  
  83. 7 CLS : PRINT " Вопрос  7. Выберите правильный вариант ответа."
  84. PRINT "Химическая реакция ,в которой из нескольких простых или сложных"
  85. PRINT "веществ образуется одно сложное-это.."
  86. PRINT "1. Реакция замещения"
  87. PRINT "2. Реакция соединения"
  88. PRINT "3. Реакция разложения"
  89.  
  90. INPUT o
  91. IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  92. x$ = INPUT$(1): CLS : GOTO 0
  93.  
  94. 8 CLS : PRINT " Вопрос  8. Выберите правильный вариант ответа."
  95. PRINT "химическая реакция,в которой атом простого вещества замещает "
  96. PRINT "один из атомов сложного -это.."
  97. PRINT "1. Реакция замещения"
  98. PRINT "2. Реакция соединения"
  99. PRINT "3. Реакция разложения"
  100.  
  101. INPUT o
  102. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  103. x$ = INPUT$(1): CLS : GOTO 0
  104.  
  105. 9 CLS : PRINT "Вопрос 9. Выберите правильный вариант ответа."
  106. PRINT "-Что образуется в результате реакции соединения : Fe + S = .."
  107. PRINT "1. Fe2S"
  108. PRINT "2. FeS"
  109. PRINT "3. 2FeS"
  110.  
  111. INPUT o
  112. IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad^"
  113. x$ = INPUT$(1): CLS : GOTO 0
  114.  
  115. 10 CLS : PRINT " Вопрос 10. Выберите правильный вариант ответа."
  116. PRINT "- Что образуется в результате реакции соединения: C + O2 = .."
  117. PRINT "1. CO2"
  118. PRINT "2. CO"
  119. PRINT "3. C2O"
  120.  
  121. INPUT o
  122. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  123. x$ = INPUT$(1): CLS : GOTO 0
  124.  
  125. 11 CLS : PRINT " Вопрос 11. Выберите правильный вариант ответа."
  126. PRINT "- Что образуется в результате реакции разложения: 2Ag2O = .."
  127. PRINT "1. Ag + O2"
  128. PRINT "2. 2Ag + O2"
  129. PRINT "3. 4Ag + O2"
  130.  
  131. INPUT o
  132. IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  133. x$ = INPUT$(1): CLS : GOTO 0
  134.  
  135. 12 CLS : PRINT " Вопрос 12. Выберите правильный вариант ответа."
  136. PRINT "- Что образуется в результате реакции замещения: CuSO4 + Fe = .."
  137. PRINT "1. FeSO4 + Cu"
  138. PRINT "2. Fe(SO4)2 + Cu2"
  139. PRINT "3. 2FeSO4 + Cu"
  140.  
  141.  
  142. INPUT o
  143. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  144. x$ = INPUT$(1): CLS : GOTO 0
  145.  
  146.  
  147. 13 CLS : PRINT " Вопрос 13. Выберите правильный вариант ответа."
  148. PRINT "- Что образуется в результате реакции обмена: Ba(OH)2 + H2SO4 = .."
  149. PRINT "1. BaSO4 + 2H2O"
  150. PRINT "2. BaSO4 + H2"
  151. PRINT "3. BaSO4 + O2"
  152.  
  153. INPUT o
  154. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  155. x$ = INPUT$(1): CLS : GOTO 0
  156.  
  157. 14 CLS : PRINT " Вопрос  14. Выберите правильный вариант ответа."
  158. PRINT "Химическая реакция, в которой исходные вещества как бы обмениваются"
  159. PRINT "своими составными частями-это  .."
  160. PRINT "1. Реакция замещения"
  161. PRINT "2. Реакция разложения"
  162. PRINT "3. Реакция обмена "
  163.  
  164. INPUT o
  165. IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  166. x$ = INPUT$(1): CLS : GOTO 0
  167.  
  168. 15 CLS : PRINT " Вопрос  15. Выберите правильный вариант ответа."
  169. PRINT "Химическая реакция ,в которой из нескольких простых или сложных"
  170. PRINT "веществ образуется одно сложное-это.."
  171. PRINT "1. Реакция замещения"
  172. PRINT "2. Реакция соединения"
  173. PRINT "3. Реакция разложения"
  174.  
  175. INPUT o
  176. IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  177. x$ = INPUT$(1): CLS : GOTO 0
  178.  
  179. 16 CLS : PRINT " Вопрос  16. Выберите правильный вариант ответа."
  180. PRINT "химическая реакция,в которой атом простого вещества замещает "
  181. PRINT "один из атомов сложного -это.."
  182. PRINT "1. Реакция замещения"
  183. PRINT "2. Реакция соединения"
  184. PRINT "3. Реакция разложения"
  185. INPUT o
  186. IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  187. x$ = INPUT$(1): CLS : GOTO 0
  188.         
  189.  
  190. 17 CLS : PRINT " Вопрос 17. Выберите правильный вариант ответа."
  191. PRINT "- Что образуется в результате реакции соединения: C + O2 = .."
  192. PRINT "1. CO2"
  193. PRINT "2. CO"
  194. PRINT "3. C2O"
  195.  
  196. INPUT o
  197. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  198. x$ = INPUT$(1): CLS : GOTO 0
  199.  
  200. 18 CLS : PRINT " Вопрос 18. Выберите правильный вариант ответа."
  201. PRINT "- Что образуется в результате реакции разложения: 2Ag2O = .."
  202. PRINT "1. Ag + O2"
  203. PRINT "2. 2Ag + O2"
  204. PRINT "3. 4Ag + O2"
  205.  
  206. INPUT o
  207. IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  208. x$ = INPUT$(1): CLS : GOTO 0
  209.  
  210. 19 CLS : PRINT " Вопрос 19. Выберите правильный вариант ответа."
  211. PRINT "- Что образуется в результате реакции замещения: CuSO4 + Fe = .."
  212. PRINT "1. FeSO4 + Cu"
  213. PRINT "2. Fe(SO4)2 + Cu2"
  214. PRINT "3. 2FeSO4 + Cu"
  215.  
  216.  
  217. INPUT o
  218. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  219. x$ = INPUT$(1): CLS : GOTO 0
  220.  
  221.  
  222. 20 CLS : PRINT " Вопрос 20. Выберите правильный вариант ответа."
  223. PRINT "- Что образуется в результате реакции обмена: Ba(OH)2 + H2SO4 = .."
  224. PRINT "1. BaSO4 + 2H2O"
  225. PRINT "2. BaSO4 + H2"
  226. PRINT "3. BaSO4 + O2"
  227.  
  228. INPUT o
  229. IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
  230. x$ = INPUT$(1): CLS : GOTO 0
  231.  
  232. 21 :
  233. PRINT "Оценка: ";
  234. IF s = 5 THEN PRINT "5"
  235. IF s = 4 THEN PRINT "4"
  236. IF s = 3 THEN PRINT "3"
  237. IF s = 2 THEN PRINT "2"
  238. IF s < 2 THEN PRINT "Очень плохо"
  239.  
  240. x$ = INPUT$(1):

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.5 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы