ZX РЕВЮ

N3,N4 1992

МКП "ИНФОРКОМ" 121019, Москва, Г 19, а/я 16

Уважаемые читатели!

Мы обращаем Ваше внимание на изменение нашего почтового адреса. Все почтовые отправления просим направлять по адресу 121019, Москва, Г 19, а/я 16, Те, кто связан с нами не первый год, знают, что с этим адресом мы когда то начинали и сейчас возвращаемся к нему опять.

Это временная мера. Мы подготовим новый постоянный почтовый адрес и в следующем выпуске Вас оповестим.

В связи с этим мы вынуждены прекратить прием от Вас предоплаты за наши разработки. Все, что Вы сочтете нужным заказать, будет Вам высылаться наложенным платежом без предоплаты. Полностью также прекращается прием новых подписчиков. Если к концу года останутся нераспределенные экземпляры, предложим их наложенным платежом.

Мы также приносим Вам извинения за то, что Вы получите этот номер со значительной задержкой, вызванной сложностью с привлечением доступных нам по затратам полиграфических мощностей. Мы надеемся, что Вы простите нам эту задержку. Вместе с тем, мы еще раз просим Вас не беспокоиться, все 12 выпусков в 1992 Вы получите без каких либо доплат, переподписок и т.п. Мы не исключаем возможности задержек, но все взятые обязательства выполним невзирая на известные экономические трудности страны.

СПЕКТРУМ В ШКОЛЕ

К УРОКУ ИСТОРИИ.

Эту программу можно использовать на уроке истории для проверки знаний. Вы, конечно, сами сообразите, как её можно адаптировать для других учебных дисциплин. Правильный ответ выбирается путём нажатия на клавишу от 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 9: BRIGHT 1: CLS

50 PRINT PAPER 1; FLASH 1; AT 9,9 ;"УРОК ИСТОРИИ" 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

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$ 340 PAUSE 300

350 GO TO nextquest

360 REM finish

370 CLS

380 PRINT AT 6, 2: "Правильных ответов с первой попытки "; r(1) 390 PRINT AT 9, 2; "Правильных ответов со второй попытки "; r(2) 400 PRINT AT 15,2; "Неправильных ответов "; r(3)

410 INPUT "Попробуем еще раз?”,y$

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"