СПЕКТРУМ В ШКОЛЕ
К УРОКУ ИСТОРИИ.
Эту программу можно использовать на уроке истории для проверки знаний. Вы, конечно, сами сообразите, как её можно адаптировать для других учебных дисциплин. Правильный ответ выбирается путём нажатия на клавишу от 1 до 4.
Учитель может увеличить количество вопросов по своему желанию, добавляя строки DATA (500,501,502,....9999). Следует помнить, что в последней строке DATA должно стоять "eof". (End of File - конец файла).
Мы использовали для диалога с пользователем русский шрифт, полагая, что Ваш компьютер русифицирован. Если он не имеет русифицированного ПЗУ, русифицируйте его программным путем, о чем мы неоднократно писали, например в работе "Большие возможности Вашего "Спектрума" ".
Программа будет также полезна начинающим для самостоятельного разбора, она достаточно проста для этой цели. Укажем только на небольшую особенность в строках 410 и 420.
Здесь Вам предлагается повторить игру нажать клавишу "Y". Поскольку неизвестно заранее, что именно нажмет играющий "y" или "Y", в строке 420 проверяется код символа, закрепленного за нажатой клавишей. Код "Y" равен 89, а код "у" равен 121. И в том и в другом случае выполняется переход к строке another (строка 110), после чего тест повторяется.
Вы можете усложнить эту программу по своему вкусу, например рандомизировав (сделав случайным) порядок следования вопросов. Можете ввести свою систему очков за правильный ответ с первой попытки. За правильный ответ со второй попытки и штраф за
неправильный ответ и т. п.
10 REM УРОК ИСТОРИИ. 20 LET data = 480:
LET finish = 360: LET nextquest= 130: LET another=110 30 REM оформление экрана 40 BORDER 2: PAPER 7: INK 50 PRINT PAPER 1; FLASH 1 60 PAUSE 500 70 CLS
80 PRINT AT 4,2; "Эта программа служит для проверки Ваших знаний по истории. После каждого вопроса Вам предлагаются четыре возможных варианта ответа, только один из которых является верным. Выберите правильный ответ нажатием клавиши 1...4." 90 PRINT FLASH 1; AT 19,5; "Нажми любую клавишу" 100 PAUSE 0 110 REM another 120 RESTORE data: DIM r(3) 130 REM nextquest 140 CLS 150 READ a$
160 IF a$="eof" THEN GO TO finish 170 READ b$,c$,d$,e$,f$ 180 PRINT AT 6,2; a$ ' '
|
190 |
PRINT |
TAB |
4; |
"1. |
; b$ |
|
200 |
PRINT |
TAB |
4; |
"2. " |
; c$ |
|
210 |
PRINT |
TAB |
4; |
"3. |
; d$ |
|
220 |
PRINT |
TAB |
4; |
"4. " |
; e$ |
230 FOR n=1 TO 2
240 PRINT AT 2,2; "Попытка ";n
250 PAUSE 0
260 IF INKEY$=f$ THEN PRINT PAPER 1; AT 19,13; FLASH 1; "ВЕРНО": LET r(n)=r(n) + 1: PAUSE 150: GO TO nextquest: REM: Правильный ответ 270 NEXT n
340 PAUSE 300 350 GO TO nextquest 360 REM finish 370 CLS
380 PRINT AT 6, 2: 390 PRINT AT 9, 2; 400 PRINT AT 15,2;
|
280 |
REM Неверный ответ после |
двух |
попыток |
|
|
|
290 |
LET r(3)=r(3)+1 |
|
|
|
|
|
|
|
|
300 |
IF f$="1" THEN PRINT |
AT |
18,7; |
INK |
2; |
FLASH |
1; |
b$ |
|
310 |
IF f$="2" THEN PRINT |
AT |
18,7; |
INK |
2; |
FLASH |
1; |
c$ |
|
320 |
IF f$="3" THEN PRINT |
AT |
18,7; |
INK |
2; |
FLASH |
1; |
d$ |
|
320 |
IF f$="4" THEN PRINT |
AT |
18,7; |
INK |
2; |
FLASH |
1; |
e$ |
"Правильных ответов с первой попытки " "Правильных ответов со второй попытки "Неправильных ответов "; r(3) 410 INPUT "Попробуем еще раз?",у$ 420 IF CODE y$ =89 OR CODE y$=121 THEN GO TO another 430 STOP 440 REM ДАННЫЕ
450 REM Введите столько дополнительных вопросов, сколько хотите в строки 503 и далее. За каждым вопросом должны следовать четыре альтернативных ответа и цифра, показывающая какой же из них является правильным. Список вопросов и ответов должен заканчиваться строкой DATA, к которой стоит запись "eof", как показано в нашем примере.
500 DATA
"В каком году в России было отменено крепостное право ?", "1825", "1855","1861","1917","3"
501 DATA
"Кто из русских царей одержал победу в Полтавской битве?", "Иван Грозный", "Петр Первый","Павел 1", "Николай 1","2"
9: BRIGHT 1: CLS AT 9,9 ;"УРОК ИСТОРИИ"
502 DATA
"Кто из русских царей был кавалером Мальтийского Ордена", "Иван Грозный", "Петр Первый", "Павел 1", "Николай 1" "3" 9999 DATA "eof"