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

В прошлом выпуске "ZX-РЕВЮ" мы напечатали тестирующую программу, которая может быть полезной на уроке истории. Сегодня мы приводим рекомендации по тому, как можно использовать компьютер на уроке географии.

Перед учащимся появляется на несколько секунд карта какой-либо страны (области, края) с указанным расположением городов. Затем города исчезают и остается только контур страны. Учащийся должен курсором указать где находится тот или иной город.

Вы можете сами задать ту или иную карту (в нашем примере рассмотрена Австралия). Это может быть, например Красноярский край.

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

Преподаватели биологии смогут применить аналогичный подход для проверки правильности знания учащимся названий различных частей растений или скелета животного. Возможностей много. Мы надеемся, что Вы сумеете ими воспользоваться. 10 REM Урок географии 20 LET another = 150:

LET nextcity = 300: LET tryagain = 380: LET move = 400: LET wait = 420: LET finish = 580: LET outline = 1000: LET printcity = 2500: LET test = 2700: LET data = 3000 30 REM Инструкции обучаемому 40 BORDER 1: PAPER 7: INK 9: BRIGHT 1: CLS 50 PRINT PAPER 1; FLASH 1; AT 9,9; "УРОК ГЕОГРАФИИ" 60 PAUSE 150 70 CLS

80 PRINT AT 2,3; "Эта программа проверит Ваши знания по географии Австралии. На десять

секунд Вам будет показано расположение австралийских городов. Потом они исчезнут и останется только контур. Ваша задача установить указатель в том месте, где должен находиться заданный Вам город. Вы имеете по три попытки на отыскание каждого города." 90 PRINT AT 19,5; FLASH 1; "Нажмите любую клавишу" 100 PAUSE 0 110 CLS 120 PRINT AT 2,2;

"Клавиша 8 - указатель вправо Клавиша 5 - указатель влево Клавиша 7 - указатель вверх Клавиша 6 - указатель вниз Нажмите 0, когда указатель займет правильное положение После каждой попытки курсор будет возвращен в левый нижний угол." 150 PRINT FLASH 1;AT 19,5; "Нажмите любую клавишу" 140 PAUSE 0 150 REM another 160 DIM r(4) 170 LET error = 0 180 GO SUB outline 190 RESTORE data 200 FOR n=0 TO 6 210 READ a, b, Y, X, a$ 220 GO SUB printcity

230 NEXT n 240 RESTORE data 280 PAUSE 500 290 GO SUB outline 300 REM nextcity

310 LET xcity = 0: LET ycity = 0: LET tries = 1 320 LET s$ = " ": REM десять пробелов

330 PRINT AT 1, 1; s$

340 PRINT AT 18, 1; "Найдем-"; AT 19, 1; s$

350 READ a, b, Y, X, a$

360 IF a$ = "eof" THEN GO TO finish

370 PRINT AT 19, 1; a$

380 REM tryagain

390 PRINT AT 1, 1; "attempt "; tries 400 REM move

410 PLOT OVER 1; xcity, ycity 420 REM wait

430 LET fall = 0: LET result = 0 440 IF INKEY$ = "0" THEN GO SUB test

450 IF result = 2 THEN LET r(tries) = r(tries)+1: PRINT FLASH 1;AT 20,1; "CORRECT": PAUSE

25: PAUSE 150: PRINT AT 20,1; s$: GO SUB printcity 460 IF tries = 4 THEN LET r(4)=r(4)+1: LET error = 1: GO SUB printcity 470 IF result = 1 OR tries = 4 THEN GO TO nextcity 480 IF fail = 1 OR tries = 4 490 LET dx=(INKEY$="8")-(INKEY$="5") 500 IF xcity+dx=256 OR xcity+dx=-1 THEN LET dx=0 510 LET dy=(INKEY$="7")-(INKEY$="6") 520 IF ycity+dy=176 OR yclty+dy=-1 THEN LET dy=0 530 IF dz=0 AND dy=0 THEN GO TO wait 540 PLOT OVER 1; xcity, ycity 550 LET xcity=xcity+dx 560 LET ycity=ycity+dy 570 GO TO move 580 REM finish 590 CLS

600 PRINT AT 4,2; "Верно с первой попытки: ";r(1)

610 PRINT AT 7,2; "Верно со второй попытки: ";r(2)

620 PRINT AT 10,2;"Верно с третьей попытки: ";r(3)

630 PRINT AT 13,2;"Неверно: ";r(4)

640 INPUT "Попробуем еще раз?"^

650 IF CODE y$=89 OR CODE y$=121 THEN GO TO another

660 STOP

950 REM****************** * *

* Подпрограммы *

* *

******************

3,-6 2,3 -2,2 1,2

4,-2

0.7 10,7

3,-1 3,5

4,-2 -2,4 7,9 8,1,1 0,2 2,1

1,-2 19,0,1 2,-2 -7,-13 21,-14

,1 ,11 ,20 ,1 ,-6 ,-4 ,-9 ,1 ,-2 ,-3 ,-7 ,-2 ,-10 ,-1 1,-13 ,-5 ,0 ,2 ,-1 ,-4 210,71 -6,37,1.5 210,71 -15,-26 -3,-6 -2,-1 -8,-3,1.2 -2,-1 -1,-3 -2,3 -7,4 -5,-3 -11,4 -2,5 1,1 -5,7 -2,-1 0,8,1 -3,-5 -1,5 3,3 -2,3 -9,-9 -50,5,2.4 -13,-2

2110 RETURN

2500 REM города

2510 PLOT FLASH error;a,b

2520 PLOT FLASH error;a,b+1

2530 PLOT FLASH error;a+1,b

2540 PLOT FLASH error;a+1,b+1

2550 CIRCLE FLASH error;a,b+1,3

2560 PRINT FLASH error;AT Y,X;a$

2570 IF error=0 THEN RETURN

2580 PAUSE 50: PAUSE 200

2590 LET error = 0

2600 GO TO printcity

2700 REM test

2710 PLOT OVER 1; xcity, ycity

2720 IF ABS (xcity-a) < 4 AND ABS (ycity-b) < 4 THEN LET result=1

2730 IF result = 0 THEN LET tries=tries+1:LET fall=1

2740 LET xcity = 0: LET ycity = 0

2750 PAUSE 25

2760 RETURN

2900 REM ************ * *

* Данные *

* *

************

3000 REM Данные по городам 3010 DATA 172,39,17,22,"Мельбурн" 3020 DATA 199,56,15,25,"Сидней" 3030 DATA 53,71,13,7,"Перт" 3040 DATA 147,55,13,14,"Аделаида" 3050 DATA 110,165,1,14,"Дарвин" 3060 DATA 179,10,20,23,"Хобарт" 3070 DATA 212,81,10,23,"Брисбейн" 3080 DATA 0,0,0,0,"eof"

1. От редакции - Мы хотели бы обратиться к Вам со следующей информацией. Просим ею руководствоваться в дальнейшей деятельности.
2. Спектрум в школе - рекомендации по тому, как можно использовать компьютер на уроке географии.
3. Beta Basic - команды: DO, DPOKE, DRAW TO, EDIT, ELSE, END PROC, EXIT IF, FILL, GET, JOIN, KEYIN, KEYWORDS, LET, LIST.
4. Защита программ - продолжение цикла статей по защите программ. (Начало см. стр. 9-16, 53-60)
5. 40 лучших процедур - процедуры обработки программ.
6. 40 лучших процедур - инструментальные программы.
7. Возвращаясь - к напечатанному каналы и потоки в Беёсике.
8. Профессиональный подход - обработка ошибок в Бейсике.
9. Форум - адвентюрные игры, полезные советы, письма читателей, вопросы совместимости, проблемы ELITE.
10. Советы экспертов - описание игры ACADEMY (TAU CETI II).
11. Советы экспертов - описание игры SHERLOCK.
12. Наш конкурс - В номере 1-2 ZX-РЕВЮ за этот год, мы объявили конкурс по программе ELITE на самый рискованный маршрут.