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

В прошлом выпуске "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

1180 DRAW 3, 6

1190 DRAW 2,3

1200 DRAW 2,2

1210 DRAW 1,2

1220 DRAW 4, 2

1230 DRAW 0,7

1240 DRAW 10,7

1250 DRAW 3, 1

1260 DRAW 3,5

1270 DRAW 4, 2

1280 DRAW 2,4

1290 DRAW 7,9

1300 DRAW 8,1,1

1310 DRAW 0,2

1320 DRAW 2,1

1340 DRAW 1, 2

1350 DRAW 19,0,1

1360 DRAW 2, 2

1370 DRAW 7, 13

1380 DRAW 21, 14

1390 DRAW 4,1

1400 DRAW 5,11

1410 DRAW 2,20

1420 DRAW 3,1

1430 DRAW 1, 6

1440 DRAW 2, 4

1450 DRAW 1, 9

1460 DRAW 4,1

1470 DRAW 0, 2

1480 DRAW 3, 3

1490 DRAW 0, 7

1500 DRAW 2, 2

1510 DRAW 2, 10

1520 DRAW 2, 1

1530 DRAW 11, 13

1540 DRAW 0, 5

1550 DRAW 3,0

1560 DRAW 0,2

1570 DRAW 3, 1

1580 DRAW 0, 4

1590 PLOT 210,71

1600 DRAW 6,37,1.5

1610 PLOT 210,71

1620 DRAW 15, 26

1630 DRAW 3, 6

1640 DRAW 2, 1

1650 DRAW 8, 3,1.2

1660 DRAW 2, 1

1670 DRAW 1, 3

1660 DRAW 2,3

1690 DRAW 7,4

1700 DRAW 5, 3

1710 DRAW 11,4

1720 DRAW 2,5

1730 DRAW 1,1

1740 DRAW 5,7

1750 DRAW 2, 1

1760 DRAW 0,8,1

1770 DRAW 3, 5

1780 DRAW 1,5

1790 DRAW 3,3

1800 DRAW 2,3

1810 DRAW 9, 9

1820 DRAW 50,5,2.4

1830 DRAW 13, 2