|
|
Спектрум в школе - последнее время наши статьи из рубрики "Спектрум в школе" предназначались в основном для старшеклассников. Но ведь если в Вашей школе есть кабинет информатики, то, наверное, и малышам было бы интересно в него заглянуть.
|
СПЕКТРУМ В ШКОЛЕ
В последнее время наши статьи из рубрики "Спектрум в школе" предназначались в основном для старшеклассников. Но ведь если в Вашей школе есть кабинет информатики, то, наверное, и малышам было бы интересно в него заглянуть.
Предельно простая программа, которую мы приводим сегодня, послужит для развлечения и приобщения к компьютеру тех, кто только-только учится считать до десяти.
Суть программы состоит в том, что на экране на некоторое время изображаются несколько фигурок и малыш должен сосчитать, сколько их и нажать соответствующую клавишу на компьютере. В качестве фигурок мы приняли любимый детьми "черепашек-ниндзя", изобразив их с помощью четырех символов UDG-графики. Несмотря на свою очевидную простоту, эта программа может иметь вполне реальный успех, если ей сделать приличный художественный дизайн, ввести в нее элементы мультипликации и красиво озвучить. Так что дерзайте, все в Ваших руках.
Конструкция одного "героя" сделана из четырех символов UDG и имеет размер 16X16 пикселов. Символы располагаются следующим образом:
[A] [B]
[C] [D]
Для того, чтобы отличить символы UDG в программе от обычных символов, мы взяли их в квадратные скобки. Вам, конечно, никаких скобок набирать при наборе программы не
Issue #21: Avalon
Scan, OCR & spellcheck by NUK, SVA-SM
надо (надо только перейти в графический режим - CAPS SHIFT + 9 - курсор "G").
10 REM **СОСЧИТАЙКА** 20 LET wait = 310 25 LET povtor=140
30 REM Ввод символов графики пользователя. 40 FOR n=0 TO 31 50 READ a
60 POKE USR "a"+n,a 70 NEXT n
80 DATA 1,1,3,15
81 DATA 31,59,63,15
82 DATA 128,129,134,248
83 DATA 252,198,194,124
84 DATA 55,70,134,12
85 DATA 12,12,24,16
86 DATA 224, 112,48, 48
87 DATA 96, 96, 112,0
90 REM Запустите набранные строки командой RUN, после чего можете продолжать набор
программы. 100 LET a$="[AB]" 110 LET b$="[CD]" 120 DIM x(10): DIM y(10) 130 BORDER 1: PAPER 7: INK 2: BRIGHT 1 140 REM povtor 150 CLS
160 LET count=1+INT(9*RND) 170 REM Расположение черепашек 180 LET x(1)=2*INT(16*RND) 190 LET y(1)=2*INT(10*RND) 200 FOR n=2 TO count 210 LET x(n)=2*INT(16*RND) 220 LET y(n)=2*INT(10*RND) 230 FOR k=1 TO n-1
240 IF x=(n)=x(k) AND y(n)=y(k) THEN LET n=n-1: REM Если у нас случайно совпали координаты позиции печати двух черепашек, то играющий на экране увидит только одну и потому этот вариант надо исключать. 250 NEXT k: NEXT n 260 REM Печать "черепашек" 270 FOE n=1 TO count 280 PRINT AT y(n),x(n); a$ 282 LET y(n) = y(n)+1 285 PRINT AT y(n),x(n); b$ 290 NEXT n
300 PRINT INK 9; AT 20,10;"????????????" 310 REM wait
320 IF INKEY$="" THEN GO TO wait: REM здесь между кавычками не должно быть пробела
330 IF INKEY$ <> STR$ count THEN BEEP .5,0: BEEP 1,-24: GO TO wait
340 REM Правильный ответ
350 FLASH 1: CLS
360 FOR n=1 TO 10
370 BEEP .33,12
380 BEEP .33,24
390 NEXT n
400 FLASH 0
410 GO TO povtor
|