Игры для КОРВЕТА
На заре своего существования компьютеры играли только в очень серьезные игры - например, шахматы использовались для исследований в области искусственного интеллекта. Однако именно "несерьезные" игры совершили переворот в компьютерном мире, вызвав массовый спрос на модели типа "Синклер Спектрум" и приведя экзотическую дотоле машину во многие дома. Пренебрегать подобным могуществом неразумно, особенно если учесть, что любая игра чему-то учит.
Мы с кружковцами педучилища поставили себе цель: составить такие программы, которые понравились бы малышам, учащимся I-III классов, у которых кружковцы проходят практику. И кажется, у нас получилось! Эти восемь и многие другие программы были встречены с восторгом. Дети быстро находили ответы и просили придумывать новые программы.
Сегодня мы предлагаем их всем желающим - быть может, вы тоже захотите поиграть. Конечно, в их текстах сказывается специфика "Корвета", но можно переделать их и на другую ПЭВМ.
10 REM ЗАСТАВКА
20 CLS:PCLS
30 LOCATE ,,0
40 LINE(2,2)-(509,254),7,В
50 LINE(5,4)-(509,252),6,В
60 CIRCLE(255,108),120,7,,,4
70 CIRCLE(255,108),128,6,,,4
80 PAINT(255,80)
90 CIRCLE (255,108),120,1,,,4
100 LOCATE 25,7:PRINT" С К А З К А "
200 FOR I=1 TO 600:NEXT
210 PRINT " ИВАН против КАЩЕЯ БЕССМЕРТНОГО"
220 FOR I=1 ТО 180 :NEXT
230 PCLS:CLS:PRINT TAB(14)," Помогу тебе, ИВАН, вызволить ВАСИЛИСУ ПРЕКРАСНУЮ, сказала БАБА ЯГА.- По душе ты мне пришелся. Да и от кащеева коварства много я страдала, уж очень хочется его проучить"
240 FOR I=1 ТО 360:NEXT
250 PRINT:PRINT:PRINT
260 PRINT "Учти, что все надписи на дверях НЕВЕРНЫЕ !"
270 FOR I=1 ТО 180:NEXT
280 PRINT:PRINT:PRINT
290 PRINT TAB(15),"Бросил ИВАН клубок на земли. Покатился клубок, а ИВАН - за ним. И докатился он до КАЩЕЯ. Потребовал Иван у него ВАСИЛИСУ ПРЕКРАСНУЮ."
300 PRINT:PRINT:PRINT
310 FOR I=1 TO 360:NEXT
320 PRINT "Повел КАШЕЙ ИВАНА в подземелье. Показал там ТРИ темницы, на дверях которых написано:"
330 PRINT "Темница 1 - здесь Василиса Прекрасная"
340 PRINT "Темница 2 - темница 3 НЕ пустая"
350 PRINT "Темница 3 - здесь Змей Горыныч"
360 PRINT:PRINT:PRINT
370 FOR I=1 TO 420:NEXT
380 PRINT "-Отпущу, ИВАН, с тобой ВАСИЛИСУ ПРЕКРАСНУЮ,если угадаешь, в какой она темнице. Покажешь на дверь, за которой Змей Горыныч, быть тебе им растерзанным"
390 PRINT "Покажешь на пустую темницу быть тебе в ней узником до конца дней своих."
400 PRINT:PRINT:PRINT
405 PRINT "З А Д У М А Л С Я И В А Н ... "
410 PRINT "Ребята, посоветуйте ИВАНУ, на какую дверь ему показать"
420 INPUT "Введите номер темницы :";Х
430 IF Х=1 THEN 510
440 PRINT:PRINT:PRINT
470 IF X=2 THEN 490
480 PRINT "ИВАН НАВЕКИ ЗАТОЧЕН В ТЕМНИЦУ."
486 END
490 PRINT "ИВАН встретился с ВАСИЛИСОЙ ПРЕКРАСНОЙ"
500 END
514 CLS:PRINT "ИВАН растерзан ЗМЕЕМ ГОРЫНЫЧЕМ" 10 LOCATE 1,1,0:CLS:PCLS
20 FOR I=1 ТО 490 STEP 10:CIRCLE(I,230),8,7,,,2
30 CIRCLE(I,30),8,7,,,2:NEXT:FOR Y=30 TO 230 STEP 10
40 CIRCLE(10,Y),8,7,,,2:CIRCLE(490,Y),8,7,,,2
50 NEXT
60 LOCATE 24,3,1
70 PRINT "ДОМИК КУМА ТЫКВЫ"
80 LOCATE 4,4,1:PRINT "Кум ТЫКВА с самого детства мечтал иметь домик"
90 LOCATE 4,5,1:PRINT "Он с 15 лет каждый год покупал 1 кирпич."
100 LOCATE 4,6,1:PRINT "Ero друг Виноградинка посчитал кирпичи у него."
110 LOCATE 4,7,1sPRINT:"Их оказалось 18, и он сказал, что это мало"
115 PRINT
120 LOCATE 4,8,l:PRINT "Kyм ТЫКВА решил мало есть и много работать"
125 PRINT
130 LOCATE 4,9,1:PRINT "Теперь он покупал 4 кирпича в год"
140 LOCATE 4,10,1:PRINT "Когда стало 118 кирпичей, он стал строить."
150 LOCATE 4,11,1:PRINT "И через 2 года поселился у себя в домике."
160 LOCATE 4,12,1:PRINT "Сколько лет выло КУМУ ТЫКВЕ,"
170 LOCATE 4,13,1:PRINT "когда он окончил строить домик ?"
180 LOCATE 4,14,1:INPUT А%
185 CLS
190 IF A%=60 THEN 500 ELSE 195
195 PRINT TAB(10),, " н е п р а в и л ь н о !!!"
200 IF A%<>60 THEN GOTO 220 ELSE GOTO 210
210 PCLS:END
220 FOR I=1 TO 300:NEXT:GOTO 10
500 PRINT TAB(20), " П Р А В И Л Ь Н О !!!"
510 FOR I=20 TO 2 STEP -2
520 POKE T,I:BEEP:NEXT
530 LINE(100,60)-(300,60)
540 LINE(200,20)-(100,60),7
550 LINE(200,20)-(300,60),7
560 LINE(140,80)-(260,150),7,В
570 CIRCLE(200,118),40,,,,1.4
580 CIRCLE(180,114),5,,,,1.4
590 CIRCLE(220,114),5,,,,1.4
600 CIRCLE(220,114),2
610 CIRCLE(200,125),3
620 CIRCLE(200,135),5,,,,2.5
630 LINE(100,60)-(300,180),7,В
640 PAINT(110,70),7
650 PAINT(150,40),7
660 CIRCLE(180,114),2 10 CLS:PRINT "И Г P A - У Г А Д А Й-К A !"
20 X=INT(RND(1)*10)
30 Y=INT(RND(1)*10)
40 PRINT "СКОЛЬКО ПОЛУЧИТСЯ, ЕСЛИ СЛОЖИТЬ X И Y ?"
50 PRINT "X И Y задумала ЭВМ"
60 LOCATE 40,10
70 INPUT Z
80 A=X+Y
90 IF A=Z THEN 110 ELSE PRINT "HET"
100 GOTO 20
110 CLS
120 LOCATE 20.10:PRINT "УPA ! РЕШИЛ !"
130 END 5 PRINT "ЗАДАЧА О БАЛДЕ"
10 LOCATE 1,1,0:CLS:PCLS
20 FOR I=10 TО 490 STEP 10:CIRCLE(I,230),8,7,,,2
30 CIRCLE(I,30),8,7,,,2:NEXT I:FOR Y=30 TO 230 STEP 10
40 CIRCLE(10,Y),8,7,,,2:CIRCLE(490,Y),8,7,,,2
50 NEXT Y
60 LOCATE 24,3,1
70 PRINT" П О П и работник БАЛДА"
80 LOCATE 4,4,1:PRINT "C хозяйством попа справляются 10 работников."
90 LOCATE 4,5,1:PRINT "Каждый работник в день съедает каравай хлева"
100 LOCATE 4,6,1:PRINT "поп принял на работу Балду."
110 LOCATE 4,7,1:PRINT "Ел Балда за четверых и работал за семерых"
115 PRINT
120 LOCATE 4,8,1:PRINT "Пon прогнал лишних работников."
125 PRINT
130 LOCATE 4,9,1:PRINT "Сколько караваев хлева экономил поп в день?"
180 LOCATE 4,14,1:INPUT АХ
185 CLS
190 IF АХ=3 THEN 500 ELSE 195
195 PRINT TAB(10),,"НЕПРАВИЛЬНО !"
210 PCLS:END
220 FOR I=1 TO 300:NEXT I:GOTO 10
500 PRINT TAB(20),"ПРАВИЛЬНО !"
510 FOR I=20 TO 2 STEP -2
520 POKE T,I:BEEP:NEXT 10 LOCATE 1,1,0:CLS:PCLS
20 FOR I=10 TO 490 STEP 10:CIRCLE(I,230),8,7,,,2
30 CIRCLE(I,30),8,7,,,2:NEXT I:FOR Y=30 TO 230 STEP 10
40 CIRCLE(10,Y),8,7,,,2:CIRCLE(490,Y),8,7,,,2
50 NEXT Y
60 LOCATE 24,3,1
70 PRINT "СТАРИК ХОТТАБЫЧ"
80 LOCATE 6,4:PRINT "ВОЗРАСТ СТАРИКА ХОТТАБЫЧА ЗАПИСЫВАЕТСЯ ЧИСЛОМ С РАЗЛИ ЦИФРАМИ."
90 LOCATE 5,6:PRINT "O6 ЭТОМ ЧИСЛЕ ИЗВЕСТНО СЛЕДУЮЩЕЕ!"
100 LOCATE 5,7:PRINT "1. Если первую и последнюю цифры зачеркнуть, то получится двузначное число, которое при сунне цифр, равной 13, является наибольшим."
110 LOCATE 5,10:PRINT "2. Первая цифра Больше последней в 4 раза."
115 PRINT
120 LOCATE 5,11:PRINT "Сколько старику ХОТТАБЫЧУ лет ?"
125 PRINT
180 LOCATE 4,14,1:INPUT A%
185 CLS
190 IF A%=8942 THEN 500 ELSE 195
195 LOCATE 23,8:PRINT "НЕПРАВИЛЬНО !"
200 IF A%<>60 THEN GOTO 220 ELSE GOTO 210
210 PCLS:END
220 FOR I=1 TO 300:NEXT I:GOTO 10
500 LOCATE 21,8:PRINT " ПРАВИЛЬНО !"
510 FOR I=20 TO 2 SТЕР -2
520 POKE T,I:BEEP:NEXT 10 LOEATE 1,1,0:CLS:PCLS
20 FOR I=10 TO 490 STEP 10:CIRCLE(I,230),8,7,,,2
30 CIRCLE(I,30),8,7,,,2:NEXT I:FOR Y=30 TO 230 STEP 10
40 CIRCLE(10,Y),8,7,,,2:CIRCLE(490,Y),8,7,,,2
50 NEXT Y
60 LOCATE 20,3,1:PRINT "СТОЙКИЙ ОЛОВЯННЫЙ СОЛДАТИК"
70 LOCATE 4,4,1:PRINT "БЫЛО НА СВЕТЕ 25 ОЛОВЯННЫХ СОЛДАТИКОВ."
80 LOCATE 4,5,1:PRINT "ИX СДЕЛАЛИ ИЗ ОЛОВЯННОЙ ЛОЖКИ МАССОЙ"
90 LOCATE 4,6,I:PRINT "123 ГРАММА. 24 СОЛДАТИКА БЫЛИ ОДИНАКОВЫ"
100 LOCATE 4,7,1:PRINT "А 25-й НЕ ТАКОЙ, КАК ВСЕ."
110 LOCATE 4,8,1:PRINT "ОН ОКАЗАЛСЯ ОДНОНОГИМ. ЕГО ОТЛИВАЛИ"
120 LOCATE 4,9,1:PRINT "ПОСЛЕДНИМ, И ОЛОВА НЕ ХВАТИЛО."
130 LOCATE 4,10,1:PRINT "КАКОВА МАССА ПОСЛЕДНЕГО СОЛДАТИКА ?"
140 LOCATE 4,14,1:INPUT АХ
150 CLS
160 IF A%=3 THEN 190 ELSE 170
170 LOCATE 4,14,1:PRINT " НЕПРАВИЛЬНО ":GOTO 130
180 END
190 LOCATE 4,14,1:PRINT "ПРАВИЛЬНО"
200 END
210 IF Z<>0 THEN 230
220 LET Z=1
230 PRINT "ВЫ РЕШИЛИ ВЕРНО";К;"ПРИМЕРОВ,"
240 PRINT "НЕПРАВИЛЬНО";N-К;"ПРИМЕРОВ,"
250 PRINT "ВАША ОЦЕНКА ";Z
260 PRINT"УСТУПИТЕ МЕСТО ДРУГОМУ УЧЕНИКУ !"
270 GOTO 30
280 END 10 REM ЗАСТАВКА
20 CLS:PCLS
30 LOCATE,,0
40 LINE(2,2)-(509,254),7,В
50 LINE(5,4)-(504,252),6,В
60 CIRCLE(255,108),128,7,,,4
70 CIRCLE(255,108),128,6,,,4
80 PAINT(2S5,80)
90 CIRCLE(255,108),120,1,,,4
100 LOCATE 20,7вРЯ1ЫТ"ИЗБУШКА HA КУРЬИХ НОЖКАХ"
130 CIRCLE(155,200),В
150 CLS
160 LINE(100,30)-(415,50),3,BF
170 LINE(100,30)-(415,50),7,В
180 LOCATE 15,3:PRINT "ИГРОВАЯ ПРОГРАММА"
190 FOR L=1 TO 550:NEXT L
195 PCLS
196 CLS
200 PRINT "КАК НАДО ПЕРЕЛОЖИТЬ ДВЕ ПАЛОЧКИ, ЧТОБЫ ИЗБУШКА ПОВЕРНУЛАСЬ ДРУГОЙ СТОРОНОЙ ?"
210 LINE(150,0)-(100,100),7
220 LINE -(100,200),7
230 LINE -(300,200),7
240 LINE -(300,100),7
250 LINE -(250,0),7
260 LINE -(150,0),7
270 LINE(100,100)-(200,100),7
280 LINE -(250,0),7
290 LINE(200,100)-(200,200),7
300 LINE(150,200)-(150,270),7
310 LINE(130,250)-(170,250),7
320 LINE(250,200)-(250,270),7
330 LINE(230,250)-(270,250),7
340 LOCATE 39,13:PRINT " ХОТИТЕ ПОСМОТРЕТЬ ОТВЕТ ?"
350 INPUT "ВВЕДИТЕ -1,ЕСЛИ - Да";А
360 IF А=1 THEN 500 ELSE 200
500 CLS:PCLS:LINE(150,0)-(100,100),7
510 LINE-(100,200),7
520 LINE-(300,200),7
530 LINE-(300,100),7
540 LINE-(250,0),7
550 LINE-(150,0),7
560 LINE(200,100)-(300,100),7
570 LINE(200,100)-(150,0),7
580 LINE(200,100)-(200,200),7
590 LINE(150,200)-(150,200),7
600 LINE(150,200)-(150,270),7
610 LINE(130,250)-(170,250),7
620 LINE(250,200)-(250,270),7
630 LINE(230,250)-(270,250),7 20 PRINT " Т Е С Т"
30 PRINT " КАКОЙ ХАРАКТЕР У ВАШЕЙ СОБАКИ?"
70 PRINT "При О Т В Е Т Е Вы должны нажать клавишу <1>(ДА) или <2>(НЕТ) и клавишу <ВK>"
75 FOR I=1 ТО 2000:NEXT
90 FOR I=1 ТО 310
100 NEXT:S=0
110 FOR I=1 ТО 320
120 NEXT
130 GOSUB 1070
140 PRINT "B чужом городе Ваша собака не боится отходить от Вас ?"
150 PRINT:PRINT
160 PRINT "1.ДА 2.HET"
170 PRINT:PRINT
180 GOSUB 1100
190 IF M=1 THEN S=S+0
200 IF M=2 THEN S=S+1
210 GOSUB 1070
220 PRINT "Bы часто ищете контакта с собакой ?"
230 PRINT:PRINT:PRINT
240 PRINT "1.ДА 2.НЕТ"
250 PRINT:PRINT
260 GOSUB 1100
270 IF М=1 THEN S=S+1
280 IF M=2 THEN S=S+0
290 GOSUB 1070
300 PRINT "Ваша собака любознательна ?"
310 PRINT:PRINT:PRINT
320 PRINT "1.ДА 2.HET"
330 PRINT:PRINT
340 GOSUB 1100
350 IF M=1 THEN S=S+1
360 IF M=2 THEN S=S+0
370 GOSUB 1070
379 GOSUB 1070
380 PRINT "Ваша собака спит рядом с Вашей кроватью ?"
390 PRINT:PRINT:PRINT
400 PRINT "1.ДА 2.НЕТ"
410 PRINT:PRINT
420 GOSUB 1100
430 IF M=1 THEN S=S+0
440 IF M=2 THEN S=S+1
450 GOSUB 1070
460 PRINT "Собака любит сидеть с Вами в кресле ?"
470 PRINT:PRINT:PRINT
480 PRINT "1.ДА 2.HET-
490 PRINT:PRINT
500 GOSUB 1100
510 IF M=1 THEN S=S+1
520 IF M=2 THEN S=S+0
530 GOSUB 1070
540 PRINT"К чужим людям она относится хорошо 7’
550 PRINT:PRINT:PRINT
560 PRINT "1.ДА 2.НЕТ"
570 PRINT:PRINT
580 GOSUB 1100
590 IF M=1 THEN S=S+l
600 IF M=2 THEN S=S+0
610 GOSUB 1070
620 PRINT" Ваша собака выполняет Ваши поручения?"
630 PRINT:PRINT:PRINT
640 PRINT "1.ДА 2.НЕТ"
650 PRINT:PRINT
660 GOSUB 1100
670 IF M=1 THEN S=S+1
680 IF M=2 THEN S=S+0
690 GOSUB 1070
700 PRINT "Ваша собака напоминает Вам о еде ?"
710 PRINT:PRINT:PRINT
720 PRINT 1.ДА 2.НЕТ"
730 PRINT:PRINT
740 GOSUB 1100
750 IF M=1 THEN S=S+1
760 IF M=2 THEN S=S+0
770 GOSUB 1070
780 PRINТ "Разборчива ли онa в еде ?"
790 PRINT:PRINT:PRINT
800 PRINT "1.ДА 2.HET"
810 PRINT:PRINT
820 GOSUB 1100
830 IF M=1 THEN S=S+1
840 IF M=2 THEN S=S+0
850 GOSUB 1070
860 PRINT "Вы с ней часто играете?"
870 PRINT:PRINT:PRINT
880 PRINT "1.ДА 2.HET"
890 PRINT:PRINT
900 GOSUB 1100
910 IF M=1 THEN S=S+1
920 IF M=2 THEN S=S+0
930 GOSUB 1070
940 PRINT "Она не ревнует Вас к друзьям ?"
950 PRINT:PRINT"PRINT
960 PRINT "1.ДА 2.НЕТ"
970 PRINT:PRINT
980 GOSUB 1100
990 IF M=1 THEN S=S+1
1000 IF M=2 THEN S=S+0
1010 GOSUB 1070
1020 IF S>8 THEN 1040
1030 IF S<8 THEN 1050
1040 PRINT "BAШA СОБАКА ОЧЕНЬ ДОБРАЯ, ЛЮБОЗНАТЕЛЬНАЯ, НИКОГДА НЕ БРОСИТ": PRINT"ВАС В БЕДЕ, ОНА НАСТОЯНИЙ ДРУГ":END
1050 PRINT "BAША СОБАКА АГРЕССИВНА, ПЛОХО ОТНОСИТСЯ К ВАШИМ ДРУЗЬЯМ.":END
1060 GOTO 1120
1070 FOR I=1 ТО 30
1080 PRINT
1090 NEXT:RETURN
1100 INPUT "ВВЕДИТЕ КОД ОТВЕТА"; M
1110 RETURN
1120 ENDПишите нам, обменяемся опытом. Мы составили также программы для уроков алгебры и геометрии для X-XI классов, для уроков информатики. Наш адрес: 357600, Ессентуки, ул. Долина Роз, 7, педучилище, каб. ОИВТ.