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

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

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

Сделать тест из 20 вопросов. Когда работает программа,случайным образом выбрается 5 разных вопросов (Без повторов)

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

textual
Листинг программы 
CLS
DIM numotv(1 TO 5)
FOR i = 1 TO 5: numotv(i) = 0: NEXT i
e = 0
RANDOMIZE TIMER
0 IF e = 5 THEN
  GOTO 21
           ELSE
  e = e + 1
22 :
  xgoto = INT(RND(1) * 20) + 1
  stat = 1
  FOR i = 1 TO e
      IF numotv(i) = xgoto THEN stat = 0
  NEXT i
  IF stat = 0 GOTO 22
  numotv(e) = xgoto
  ON xgoto GOTO 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20
END IF
1 CLS : PRINT "Вопрос 1. Выберите правильный вариант ответа."
PRINT "-Что образуется в результате реакции соединения : Fe + S = .."
PRINT "1. Fe2S"
PRINT "2. FeS"
PRINT "3. 2FeS"
 
INPUT o
IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad^"
x$ = INPUT$(1): CLS : GOTO 0
 
2 CLS : PRINT " Вопрос 2. Выберите правильный вариант ответа."
PRINT "- Что образуется в результате реакции соединения: C + O2 = .."
PRINT "1. CO2"
PRINT "2. CO"
PRINT "3. C2O"
 
INPUT o
IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
3 CLS : PRINT " Вопрос 3. Выберите правильный вариант ответа."
PRINT "- Что образуется в результате реакции разложения: 2Ag2O = .."
PRINT "1. Ag + O2"
PRINT "2. 2Ag + O2"
PRINT "3. 4Ag + O2"
 
INPUT o
IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
4 CLS : PRINT " Вопрос 4. Выберите правильный вариант ответа."
PRINT "- Что образуется в результате реакции замещения: CuSO4 + Fe = .."
PRINT "1. FeSO4 + Cu"
PRINT "2. Fe(SO4)2 + Cu2"
PRINT "3. 2FeSO4 + Cu"
 
 
INPUT o
IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
 
5 CLS : PRINT " Вопрос 5. Выберите правильный вариант ответа."
PRINT "- Что образуется в результате реакции обмена: Ba(OH)2 + H2SO4 = .."
PRINT "1. BaSO4 + 2H2O"
PRINT "2. BaSO4 + H2"
PRINT "3. BaSO4 + O2"
 
INPUT o
IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
6 CLS : PRINT " Вопрос 6. Выберите правильный вариант ответа."
PRINT "Химическая реакция, в которой исходные вещества как бы обмениваются"
PRINT "своими составными частями-это  .."
PRINT "1. Реакция замещения"
PRINT "2. Реакция разложения"
PRINT "3. Реакция обмена "
 
INPUT o
IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
7 CLS : PRINT " Вопрос  7. Выберите правильный вариант ответа."
PRINT "Химическая реакция ,в которой из нескольких простых или сложных"
PRINT "веществ образуется одно сложное-это.."
PRINT "1. Реакция замещения"
PRINT "2. Реакция соединения"
PRINT "3. Реакция разложения"
 
INPUT o
IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
8 CLS : PRINT " Вопрос  8. Выберите правильный вариант ответа."
PRINT "химическая реакция,в которой атом простого вещества замещает "
PRINT "один из атомов сложного -это.."
PRINT "1. Реакция замещения"
PRINT "2. Реакция соединения"
PRINT "3. Реакция разложения"
 
INPUT o
IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
9 CLS : PRINT "Вопрос 9. Выберите правильный вариант ответа."
PRINT "-Что образуется в результате реакции соединения : Fe + S = .."
PRINT "1. Fe2S"
PRINT "2. FeS"
PRINT "3. 2FeS"
 
INPUT o
IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad^"
x$ = INPUT$(1): CLS : GOTO 0
 
10 CLS : PRINT " Вопрос 10. Выберите правильный вариант ответа."
PRINT "- Что образуется в результате реакции соединения: C + O2 = .."
PRINT "1. CO2"
PRINT "2. CO"
PRINT "3. C2O"
 
INPUT o
IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
11 CLS : PRINT " Вопрос 11. Выберите правильный вариант ответа."
PRINT "- Что образуется в результате реакции разложения: 2Ag2O = .."
PRINT "1. Ag + O2"
PRINT "2. 2Ag + O2"
PRINT "3. 4Ag + O2"
 
INPUT o
IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
12 CLS : PRINT " Вопрос 12. Выберите правильный вариант ответа."
PRINT "- Что образуется в результате реакции замещения: CuSO4 + Fe = .."
PRINT "1. FeSO4 + Cu"
PRINT "2. Fe(SO4)2 + Cu2"
PRINT "3. 2FeSO4 + Cu"
 
 
INPUT o
IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
 
13 CLS : PRINT " Вопрос 13. Выберите правильный вариант ответа."
PRINT "- Что образуется в результате реакции обмена: Ba(OH)2 + H2SO4 = .."
PRINT "1. BaSO4 + 2H2O"
PRINT "2. BaSO4 + H2"
PRINT "3. BaSO4 + O2"
 
INPUT o
IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
14 CLS : PRINT " Вопрос  14. Выберите правильный вариант ответа."
PRINT "Химическая реакция, в которой исходные вещества как бы обмениваются"
PRINT "своими составными частями-это  .."
PRINT "1. Реакция замещения"
PRINT "2. Реакция разложения"
PRINT "3. Реакция обмена "
 
INPUT o
IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
15 CLS : PRINT " Вопрос  15. Выберите правильный вариант ответа."
PRINT "Химическая реакция ,в которой из нескольких простых или сложных"
PRINT "веществ образуется одно сложное-это.."
PRINT "1. Реакция замещения"
PRINT "2. Реакция соединения"
PRINT "3. Реакция разложения"
 
INPUT o
IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
16 CLS : PRINT " Вопрос  16. Выберите правильный вариант ответа."
PRINT "химическая реакция,в которой атом простого вещества замещает "
PRINT "один из атомов сложного -это.."
PRINT "1. Реакция замещения"
PRINT "2. Реакция соединения"
PRINT "3. Реакция разложения"
INPUT o
IF o = 2 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
        
 
17 CLS : PRINT " Вопрос 17. Выберите правильный вариант ответа."
PRINT "- Что образуется в результате реакции соединения: C + O2 = .."
PRINT "1. CO2"
PRINT "2. CO"
PRINT "3. C2O"
 
INPUT o
IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
18 CLS : PRINT " Вопрос 18. Выберите правильный вариант ответа."
PRINT "- Что образуется в результате реакции разложения: 2Ag2O = .."
PRINT "1. Ag + O2"
PRINT "2. 2Ag + O2"
PRINT "3. 4Ag + O2"
 
INPUT o
IF o = 3 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
19 CLS : PRINT " Вопрос 19. Выберите правильный вариант ответа."
PRINT "- Что образуется в результате реакции замещения: CuSO4 + Fe = .."
PRINT "1. FeSO4 + Cu"
PRINT "2. Fe(SO4)2 + Cu2"
PRINT "3. 2FeSO4 + Cu"
 
 
INPUT o
IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
 
20 CLS : PRINT " Вопрос 20. Выберите правильный вариант ответа."
PRINT "- Что образуется в результате реакции обмена: Ba(OH)2 + H2SO4 = .."
PRINT "1. BaSO4 + 2H2O"
PRINT "2. BaSO4 + H2"
PRINT "3. BaSO4 + O2"
 
INPUT o
IF o = 1 THEN PRINT "good": s = s + 1 ELSE PRINT "bad"
x$ = INPUT$(1): CLS : GOTO 0
 
21 :
PRINT "Оценка: ";
IF s = 5 THEN PRINT "5"
IF s = 4 THEN PRINT "4"
IF s = 3 THEN PRINT "3"
IF s = 2 THEN PRINT "2"
IF s < 2 THEN PRINT "Очень плохо"
 
x$ = INPUT$(1):

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

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

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

6   голосов , оценка 3.5 из 5
Похожие ответы