ZX РЕВЮ

N9,N10 1992

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

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

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

Программа управляется от несложной системы меню и не требует никаких инструкций по работе она самообеспечена. В ней есть два основных режима работы:

1.Режим тестирования.

2.Режим заполнения вопросов и ответов.

После первого запуска командой RUN программа еще не содержит ни вопросов, ни ответов. Сначала вы должны их ввести. Вы можете иметь 5 серий (вариантов) вопросов и ответов на разные темы. Каждая серия содержит 8 вопросов и ответов.

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

1 внести изменения

2 заменить вариант В режиме тестирования компьютер предложит учащемуся выбрать вариант, с

которым он хочет поработать. Разумеется, для выбора будут предложены только те варианты, которые уже заполнены вопросами и ответами.

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

При вводе программы у Вас будут, конечно, проблемы с вводом символов русского алфавита. Мы не можем сделать это за Вас, поскольку не можем заранее знать Ваших возможностей. Многие работают на компьютерах с русифицированным ПЗУ и имеют команды для переключения с одного шрифта на другой. У некоторых даже есть как бы дополнительный символьный регистр. Если у Вас ничего в этом смысле в компьютере нет, то Вам надо русифицировать компьютер программно. Как это делается, мы уже многократно писали, но должны предостеречь Вас от русификации путем использования символов графики пользователя UDG. Дело в том, что программа уже использует графические символа от "А" до "F" для изображения "физиономий". Эти символы в распечатке программы подчеркнуты и набирать их следует в графическом режиме. Блок данных, задающий "конструкцию" этих символов, расположен в строках 1000. . . 1050.

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

Может быть, Вы захотите организовать несколько банков символов графики пользователя и оперативно переключаться между ними, когда это надо. Как это делается, мы писали в недавно вышедшем первом томе, посвященном графике "Спектрума" "Элементарная графика" (М:,"ИНФОРКОМ", 1992г., 208 стр.).

Но по всей видимости, Вам лучше русифицировать компьютер полной сменой символьного набора. Из наших последних публикации на эту тему посмотрите пожалуйста статью Алексеева А.Г., посвящённую полной русификации программы "MASTERFILE 09" в "ZX PEBЮ 92" на стр. 29 32,71 75. Полезными будут советы этого автора, приведенные и в данном выпуске "ZX РЕВЮ" в статье "Профессиональный подход".

При вводе и отладке программы обратите особое внимание на следующие обстоятельства:

1.Подчеркнутые символы А...F являются символами графики пользователя UDG и вводиться должны в графическом режиме (курсор G).

2.Только первый запуск программы можно выполнять командой RUN. После того, как вы заполните хотя бы одну серию вопросов и ответов, эту команду уже подавать нельзя, так как по команде RUN обновляется содержимое программных переменных и массивов и Вам придется снова заполнять вопросы и ответы.

При втором и последующем запусках вместо RUN давайте команду GO TO 70.

ВИКТОРИНА

10 REM здесь Вы можете разместить

20 REM необходимые Вам

30 REM процедуры, например для

40 REM русификации компьютера.

49REM

50DIM h$(5,32): DIM q$(5,8.28): DIM a$(5,8,13): DIM p$(8): DIM t$(5): DIM e$*(1)

60LET t$="O0000"

70BORDER 7: PAPER 7: INK 0: CLS

80RESTORE 1000: GO SUB 1000: LET new=0

90REM *** Начало работы

100DIM c$(8): CLS

120FOR y=1 TO 13 STEP 6

130FOR x=1 TO 29 3TKP 28

140PRINT AT y,x; INK 4;"AB";AT y+1,x;"CD";AT y+3,x; INK 2; "AB"; AT y+4,x;"EF"

150NEXT x

160NEXT y

170PRINT INK 4;AT 19,1: "AB"; AТ 20,1 ;"CD"; AT 19,29; "AB"; AT 20,29;"CD"

180PRINT AT 8,5; " Выберите режим работы:"

190PRINT AT 11,4; "1 = Ответы на вопросы"

200PRINT AT 13,4; "2 Ввод новых вопросов"

210PRINT AT 15,4; "3 = Конец работы"

220PRINT AT 19,5; BRIGHT 1;"Нажмите нужную клавшу"

230IF INKEY$="1" THEN GO TO 280

240IF INKEY$="2" THEN GO TO 600

250IF INKEY$="3" THEN GO TO 900

260GO TO 220

270REM

230REM ** Ответы на вопросы**

281REM

290CLS : INPUT "": PRINT AT 0,7; BRIGHT 1; "Подумай и ответь"

300GO SUB 1300

310PAUSE 30: PRINT #0;AT 0,0;"Введи номер варианта "

320GO SUB 1210: LET n=i: IF n>5 THEN GO TO 320

330IF t$(n)="0" THEN PRINT AT 6,6; FLASH 1; "Этот вариант не готов": INPUT "": PAUSE 150: GO TO 90

340CLS: LET p$=" 12345678"

350FOR x=1 TO 8

360LET r=INT (RND*8)+1: IF p$(r)<>" " THEN GO TO 380

370GO TO 360

380IF x=r THEN GO TO 360

599REM

600REM**Ввод новых вопросов**

605REM

610CLS : PRINT AT 0,7; BRIGHT 1; "Ввод новых вопросов"

899REM

900REM ** Конец программы **

905REM

910IF new THEN SAVE "Victorina" LINE 70: PAUSE 30