]
конец
Игра№6 «Множества»
Суть игры: В центре листа проекта расположено не менее 6 черепашках в формах двух типов (например, съедобное - несъедобное, живое - неживое). На разных сторонах листа нарисовано два овала разных цветов. Игрок с помощью мыши разносит черепашек по разным овалам. Затем нажимает на кнопку Готово. Правильно размещенные черепашки остаются на месте, остальные выпрыгивает на центр листа. Для этого -
1 На листе проекта создайте не менее 6 черепашек в формах двух типов (например, съедобное - несъедобное, живое - неживое).
2 Нарисуйте на разных сторонах листа два овала разных цветов.
3 Создайте кнопки Задание и Готово.
4 На листе процедур напишите процедуру "Задание", в которой выполняется следующее –
a) Либо в текстовое окно, либо в диалоговое окно выводится текст задания (придумайте сами).
b) Все черепашки размещаются в центре листа.
5 На листе процедур напишите процедуру Готово, в которой выполняется следующее -
a) Для каждой черепашки анализируется цвет поля под ней. В случае, если цвет поля неправильный (т. е. черепашку игрок поместил не в тот овал), черепашка выпрыгивает на центр листа. Для сокращения процедуры рекомендуется использовать команду Лого – перебор [к[ч1 ч2 ч3]] [набор команд]
6 Систему подсчета очков или ошибок разработайте сами
Решение:
Процедура "начнем" все объекты выставляет на красное поле. Затем пользователь должен расставить по разным овалам все черепашки и нажать кнопку "готово"
это начнём
нап1, нм [0 -50]
нап2, нм [0 40]
нап3, нм [0 -100]
ед1, нм [1 100]
ед2, нм [0 0]
ед3, нм [0 -200]
еднап, нм [41 15]
конец
Процедура "готово" анализирует выполение задания
это готово
перебор [к [нап1 нап2 нап3]]
[для :к если_иначе цп = 113
[нов_х сл 20 нов_у сл 200]
[ ]
]
перебор [к [ед1 ед2 ед3 ]]
[для :к если_иначе цп = 63
[нов_х сл 20 нов_у сл 200]
[ ]
]
еднап, если_иначе цп = 22
[ ]
[нов_х сл 20 нов_у сл 200]
конец
Игровой автомат
Суть игры - задача игрока – нажать кнопку для включениея автомата. Если во всех трех окошках автомата появились одинаковые картинки – игрок выиграл
Для этого -
4 На листе проекта нарисуйте игровой автомат с тремя окошками,
5 Создайте три черепашки и именами ч1, ч2, ч3 и расместите их в окошках автомата.
6 Напишите процедуру автомат, в которой выполняется следующее -
a) Все три черепашки меняют форму от 1 до 3-го номера случайным образом.
b) Запускается процедура проверка.
7 Напишите процедуру проверка, в которой выполняется следующее –
a) Определяются три переменные н1, н2, н3, которым присваиваются номера форм черепашек ч1, ч2, ч3.
b) Сравниваются друг с другом переменные н1, н2, н3, в случае Если они равны друг другу – выдается сообщение “Вы выиграли”. В противном случае выдается сообщение «Вы проиграли»
это автомат
скажи [ч1 ч2 ч3] [ нф сл 3]
проверка
конец
это проверка
ч1, пусть "н1 форма
ч2, пусть "н2 форма
ч3, пусть "н3 форма
если_иначе и :н1 = :н2 :н2 = :н3
[сообщи [Вы выиграли] ]
[ сообщи [Вы проиграли] ]
конец
Игра№8 Казино - бросаем кости
Суть игры 2 игрока по очереди бросают кости.
Выигрывает тот, кто раньше наберет 50 очков.
Для этого -
1 На листе проекта создайте два маленьких текстовых окна (сумма1, сумма2),
2 Создайте три кнопки новая_игра, бросок1,. бросок2,.
3 Создайте две черепашки с именами ч1, ч2. Для этих черепашек создайте 6 новых форм с точками (от 1ой до 6-ти).
Номера форм – от 11 до 16.
4 На листе процедур напишите процедуру новая_игра, в которой:
a) Сообщаются правила игры.
b) Определяются переменный сум1, сум2 со значением 0.
c) Чистятся все текстовые окна.
d) Запускается процесс анализа значений пременных сум1, сум2.
Если значение переменной сум1 становится больше 49-ти, выдается сообщение «Выиграл первый игрок!»
Если значение переменной сум2 становится больше 49-ти, выдается сообщение «Выиграл второй игрок!»
5 На листе процедур напишите процедуру бросок1, в которой:
a) Определяется переменная с со значением 0. В эту переменную будет помещаться сумма очков, которые будут выпадать на двух кубиках.
b) Для каждого кубика будет выполняться следующее:
- Определяться переменная ч со случайным значением от 0 до 6-ти.
- Кубик меняет форму на номер 11 + значение переменной ч.
- К переменной с прибавляется значение переменной ч.
c) К переменной сум1 прибавляется значение переменной с.
В текстовое окно сумма1 выводится значение переменной сум1.
6 На листе процедур напишите процедуру бросок2, в которой выполняется тоже, что в процедуре бросок1.
это новая_игра
сообщи [По очереди бросайте кости? Выиграет тот кто раньше наберет 50 очков]
пусть "сум1 0
пусть "сум2 0
сумма1, ст
сумма2, ст
запусти [всегда [если :сум1 > 49 [сообщи [выиграл 1-ый игрок] останов]
если :сум2 > 49 [сообщи [выиграл 2-ый игрок] останов] ] ]
конец
это бросок1
пусть "с1 0
ч1, пусть "ч сл 6
нф 11 + :ч
пусть "с1 :с1 + :ч + 1
пусть "сум1 :сум1 + :с1
пусть "с2 0
ч2, пусть "ч сл 6
нф 11 + :ч
пусть "с2 :с2 + :ч + 1
пусть "сум1 :сум1 + :с2
сумма1, ст вставь :сум1
конец
это бросок2
пусть "сс1 0
ч1, пусть "ч сл 6
нф 11 + :ч
пусть "сс1 :сс1 + :ч + 1
пусть "сум2 :сум2 + :сс1
пусть "сс2 0
ч2, пусть "ч сл 6
нф 11 + :ч
пусть "сс2 :сс2 + :ч + 1
пусть "сум2 :сум2 + :сс2
сумма2, ст вставь :сум2
конец
Игра№9 Кто надует больший шар
Задание - Создать игру "Кто надует больший шар". Игра для двух игроков.
Для этого -
На листе проекта создайте 2 черепашку "Красный" и "Синий" в форме воздушного шарика
1 Создайте два текстовых окна с именами "красный_шар" и "синий_шар".
2 Создайте 3 кнопки "начало", "увеличение_кр", "увеличение_син".
3 На листе процедур напишите процедуру "Начало", в которой выполняется следующее -
a) чистятся текстовые окна,
b) черепашки-шары приобретают начальные формы и размер 40.
c) Определяются переменные "р_с_ш" и "р_к_ш" с начальным значением 40.
4 На листе процедур напишите процедуру "увеличение_син, в которой выполняется следующее -
a) определяется переменная "х" со случайным значением от 3 до 11.
b) к значению переменной "р_с_ш" прибавляется значение переменной "х".
c) в текстовое окно "синий_шар" выводится значение переменной "р_с_ш".
d) анализируется значение переменной "р_с_ш". Если оно больше 80, то синий шар лопается (меняют форму), в противном случае синий шар меняет размер на значение переменной "р_с_ш".
5 На листе процедур напишите процедуру "увеличение_кр, в которой выполняется то же, что и в процедуре - увеличение_син, но только для красного шара
Подсказка: Используйте команды Лого - нрз Х, сл У.
Решение:
это начало
красный_шар, ст
синий_шар, ст
синий, нф "ш3 нрз 40
красный, нф "ш1 нрз 40
пусть "р_с_ш 40
пусть "р_к_ш 40
конец
это увеличение_син
пусть "х 3 + сл 8
пусть "р_с_ш :р_с_ш + :х
синий_шар, пиши :р_с_ш
если_иначе :р_с_ш > 80
[синий, нф "синий_л]
[синий, нрз :р_с_ш]
конец
это увеличение_кр
пусть "х 3 + сл 8
пусть "р_к_ш :р_к_ш + :х
красный_шар, пиши :р_к_ш
если_иначе :р_к_ш > 80
[красный, нф "красный_л]
[красный, нрз :р_к_ш]
конец
Игра№10 Тарабарская грамота
В 15-16 веке на Руси для составления секретных бумаг в переписке царского ;двора с русскими послами использовалась шифровка, называемая "тарабарской ;грамотой".
Способ такой: Гласные буквы и буквы Й, ъ, ь - писались без изменений. А согласные заменялись согласно следующей схеме:
б в г д ж з к л м н
щ ш ч ц х ф т с р п
При шифровке согласные взаимно заменялись. Напиши процедуру, которая любой тест шифрует по этой методике
Решение:
это startup
сообщи [в текстовое окно"ТЕКСТ напишите текст для кодировки и нажми кнопку "старт]
конец
это старт
пусть "глас [а е ё и о у ы э ю я й ъ ь]
пусть "согл1 [б в г д ж з к л м н]
пусть "согл2 [щ ш ч ц х ф т с р п ]
шифр, ст
текст, внт выделяй вкт копируй
пусть "всл буфер покажи сколько :всл
пусть "х 1
цикл [
пусть "с элемент :х :всл
если :с = символ 32 [шифр, вставь символ 32] ;вставляет пробел
если входит? :с :глас [шифр, вставь :с]
сли входит? :с :согл1 [шифр, поиск1 вставь элемент :у :согл2]
если входит? :с :согл2 [шифр, поиск2 вставь элемент :у :согл1]
пусть "х :х + 1
если :х > сколько :всл [стоп]
]
конец
Игра№11 Спортлото
Задание - Создать игру "Спортлото".Для этого -
1 На листе проекта создайте 5 текствых окон с именами т1, т2, т3, т4, т5. Эти текстовые окна бужет запольнять пользователь прежде чес крутить барабан.
1 Создайте одно текстовое окно с именем розыгрыш.
2 Создайте кнопку крути_барабан.
3 На листе процедур напишите процедуру крути_барабан, в которой выполняется следующее -
a) чистится текстовое окно розыгрыш,
b) определяется пустой список сп [ ]. Этот список будет заполняться числами от 1-го до 35.
c) 5 раз повторяется следующее
- - определяется переменная п, ей присваивается случайным образом значение от 1 до 35.
- В случа, если в списке нет еще такого числа, в него добавляется значение переменной п.
d) в текстовое окно розыгрыш выводятся все элементы списка сп.
e) определяется переменная оч со значением 0. В случае совпадения номеров, туда добавляется 1.
f) Для всех текстовых окон (т1, т2, т3, т4, т5) выполнить следующее:
- Определяется переменная ччч, в которую помещается содержимое текствого окна.
- анализируется значение переменной ччч. Если оно входит в список сп, то к переменной оч прибавляется 1.
4 Анализируется значение переменной оч. Если оно равно 0, сообщает «Увы!»
Если оно равно 1, сообщает «Вы выиграли 3 рубля!»,
Если оно равно 2, сообщает «Вы выиграли 100 рублей!»,
Если оно равно 3, сообщает «Вы выиграли 100000 рублей!»,
Если оно равно 4, сообщает «Вы выиграли половину миллиона!»,
Если оно равно 1, сообщает «Вы выиграли миллион рублей!»,
5 Подсказка: Используйте команды Лого – входит?, перебор, внт, вкт, выделяй, копируй, буфер.
Решение:
это Крути_барабан
розыгрыш, ст
пусть "сп []
повтори 5 [
пусть "п (1 + сл 35 )
если не входит? :п :сп [пусть "сп вксп :п :сп]
]
розыгрыш, ст вставь :сп
пусть "оч 0
перебор [к [т1 т2 т3 т4 т5]][
для :к внт выделяй вкт копируй пусть "ччч буфер
если входит? :ччч :сп [пусть "оч :оч + 1 ]
]
если :оч = 5 [сообщи [Вы выиграли миллион!]]
если :оч = 4 [сообщи [Вы выиграли полмиллиона!]]
если :оч = 3 [сообщи [Вы выиграли сто тысяч!]]
если :оч = 2 [сообщи [Вы выиграли сто рублей!]]
если :оч = 1 [сообщи [Вы выиграли три рубля!]]
если :оч = 0 [сообщи [Увы!]]
конец
Игра №12 Отгадай число с ограниченным числом попыток.
Написать процедуру, которая загадывает число и просит пользователя отгадать его за три попытки. В зависимости от ответа пользователя, выдает сообщения «Задуманное число больше», «Задуманное число меньше», «Вы угадали», «Вы исчерпали свои попытки».
Решение:
это отгадай
пусть "е сл 10
сообщи [Я загадал число от 0 до 10. У тебя три попытки]
повтори 3 [
спроси [Какое?]
пусть "ф ответ
если :ф < :е [сообщи [Задуманно число больше.]]
если :ф = :е [сообщи [Вы угадали!] останов]
если :ф > :е [сообщи [Задуманно число меньше.]]
]
сообщи [Вы исчерпали свои попытки]
конец
Игра №13 Отгадай число.
Написать процедуру, которая загадывает число и просит пользователя отгадать его. В зависимости от ответа пользователя, выдает сообщения «Задуманное число больше», «Задуманное число меньше», «Вы угадали».
Решение:
это отгадай
пусть "е сл 10
сообщи [Я загадал число от 0 до 10. У тебя три попытки]
цикл [
спроси [Какое?]
пусть "ф ответ
если :ф < :е [сообщи [Задуманно число больше.]]
если :ф = :е [сообщи [Вы угадали!] останов]
если :ф > :е [сообщи [Задуманно число меньше.]]
]
]
конец
Игра №14 Найди мину.
Программа задумывает число от –200 до 200. Запрашивает у пользователя тоже число. Перемещает ракету на координату, введенную пользователем и сообщает «Мина ближе», «Мина дальше», «Вы попали» в зависимости от ситуации. В случае попадания мина взрывается.
Решение:
это начало
пп
ракета, нф 24 нм [-200 0]
мина, нф 21
пусть "х -200 + сл 400
мина, сч нов_х :х
цикл [
спроси [Введите координату мины:]
пусть "м ответ
ракета, бди [нов_х :м] [сообщи [вводи числа]стоп]
если :м = :х [сообщи [Вы попали!] мина, пч нф 13]
если :м < :х [сообщи [Мина дальше!]]
если :м > :х [сообщи [Мина ближе!]]
]
конец
Игры
Игра1 Стрелялка
Стрелялка разработана Горбуновой Анной и Чечушкиной Дашей в 7 классе (2000/01 уч. Год). В космосе летают различные объекты. Игрок управляет ракетой и сбивает различные объекты. Набрав нужное количество очкой, игрок получает разрешение на посадку на Землю.
это startup
лист1
сообщи [инопланетянин полетел на Землю, но путь к Земле очень трудный]
сообщи [ надо убить неприятеля и разгромить метеориты, кометы и астероиды]
конец
; главная программа
это прол
енр ; нач. установки -череп. по местам, очки = 0
запусти [клава] ; акивизируется цифровая клавиатура
стрельба ; косм. тела начинают летать
очки ; анализируются набранные очки
конец
; начальные установки: все черепашки становятся на свои
; места и принимают начальные формы.
это енр
пусть "оч 0 ; счетчик обнуляется
ракета, нов_размер 88 нф 13 нм [-2 -112] ;ракета – место положения игрока.
земля, сч нм [6 89] ; ЗЕМЛЯ ПОЯВИТСЯ В СЛУЧАЕ ПОБЕДЫ В ИГРЕ
пуля, нф 40 ; снаряд, выпускаемый из ракеты
буль1, сч ; буль1 - космич. тело
конец
; активизируется цифровая клавиатура
это клава
ракета, цикл
[пусть "х жди_символ
если :х = 6 [ракета, нк 90 вп 40]
если :х = 3 [ракета, нк 90 вп 10]
если :х = 4 [ракета, нк 270 вп 40]
если :х = 1 [ракета, нк 270 вп 10]
если :х = 2 [ракета, нк 180 вп 25]
если :х = 8 [ракета, нк 0 вп 25] ; перемещается прицел орудия
если :х = 0 [пуля] ; вылетает пуля
конец
; на листе по очереди появляюся различные объекты -
; космические тела
это стрельба
; список форм летящих космических тел
пусть "ф [455929]
; список мест начала движения космических тел
пусть "мес [
[-] [] [15 140] [] [-194 30] [-] [-200 90] [][][] []
[-] [94 -149]
]
; список курсов полетов космических тел
пусть "к [30 ]
пусть "у 1
цикл [
буль1, нф (элемент :у :ф) ; косм. тело меняет форму
нм (элемент :у :мес) пч ; космическое тело становится на место
нк (элемент :у :к ) ; выбирает курс
повтори 100 [вп 3] сч ; и начинает движение
пусть "у :у + 1
если :у > сколько :к [стоп]
]
конец
; пуля вылетает с места разположения косм. корабля
; анализируется столкновение пули и косм. тела
это пуля
запусти [проверка]
ракета, пусть "м место пуля, нк 0 нм :м пч ;невидимая пуля перемещается к ракете и становится
видимой
повтори 11 [вп 20] сч нм [-] ;пуля летит
отмени [проверка]
конец
; проверка - столкнулась ли пуля (имя чер. "пуля) с
; летящим косм. телом (имя черепашки "буль1)
это проверка
буль1,
цикл [
если (путь "пуля) < 25 [буль1, нф 41 нф 42 пуля, сч ;если пуля оказалась на расстоянии 25
пусть "оч :оч + 1 сч стоп] ; пикселей до объекта, то объект взрывается.
]
конец
это очки
нт "ттт [-80 50] []
ст вставь [Ты подбил "] вставь :оч пиши [- из 13 целей!]
жди 20
если_иначе :оч < 4
[вставь [Тебе придется пройти все сначала] жди 20 удали "ттт прол]
[вставь [ Теперь ты должен лететь на Землю!] жди 20 удали "ттт
земля, нф 28 нов_размер 40 пч земля]
конец
; конец игры – ракета летит к Земле.
это земля
отмени [клава]
земля, пусть "у 40 нов_размер :у
цикл [пусть "о жди_символ
если :о = 8 [ракета, нк 0 вп 10
пусть "у :у + 4 земля, нов_размер :у ]
если :о = 4 [ракета, нк 270 вп 10 ]
если :о = 6 [ракета, нк 90 вп 10 ]
земля,
если (путь "ракета) < 60 [ракета, вп путь "земля нов_размер 39 сообщи [Вот ты и на Земле!]]
]
возьми_проект "профессор
конец
Игра 2 Кто хочет стать миллионером?
Автор – Гуськов Иван 5 кл. 2000/01 уч. год
Игра представляет собой электронный вариант телевизионной игры.
это startup
Игра
курсор, нм [-]
курса, нм [-]
вопрос, ст
конец
это Игра
сообщи [Начнём отборочный тур!]
вопрос, ст вставь [Расположите эти фильмы с участием звёзд эстрады в хронологическом порядке: ]
спроси [ A) Пришла и говорю B) АССА C) Весёлые ребята D) Зона Любе]
если_иначе ответ = "CABD [сообщи [Вы прошли отборочный тур!] вопр1]
[сообщи [В игру не попал никто.]останов]
конец
это вопр1
спроси [имя игрока] пусть "имя ответ
сообщи [Прекрасно.]
сообщи [ВНИМАНИЕ, 1 ВОПРОС.] жди 20
вопрос, ст вставь [Как называется столица России? ]
спроси [A)Санкт-Петербург B) Москва C) Волгоград D)Подмосковье]
если_иначе ответ = "B [курсор, нк 0 вп 22 вопр2 ] [сообщи [Ответ не верный! Вы проиграли!] останов]
конец
это вопр2
сообщи [вы заработали 100 рублей!]
жди 5
сообщи [ВНИМАНИЕ, 2 ВОПРОС.]
вопрос, ст вставь [С чего началась Академия? ]
спроси [A)Банк КОЛЛЕДЖ B) Академия C) Лагеря D)Фундамента]
если_иначе ответ = "A [курсор, нк 0 вп 22 вопр3]
[сообщи [Ответ не верный! Вы проиграли!]останов]
конец
это вопр3
сообщи [Вы заработали 200 рублей!]
жди 5
сообщи [ВНИМАНИЕ, 3 ВОПРОС.]
вопрос, ст вставь [Кто придумал переодическую таблицу химических элементов?]
спроси [A)Ломоносов B) Эдисон C) Менделеев D)Ньютон ]
если_иначе ответ = "C [курсор, нк 0 вп 22 вопр4]
[сообщи[Ответ не верный! Вы проиграли!]останов]
конец
это вопр4
сообщи [Вы заработали 300 рублей!]
жди 5
сообщи [ВНИМАНИЕ, 4 ВОПРОС.]
вопрос, ст вставь [Кто выиграл войну с Наполеоном? (Имя) ]
спроси [A)Кутузов B Эдисон C Сараев D)Бравн ]
если_иначе ответ = "A [курсор, нк 0 вп 22 вопр5] [сообщи[Ответ не верный! Вы проиграли!]останов]
конец
это вопр5
сообщи [Вы заработали 500 рублей!]
жди 5
сообщи [ВНИМАНИЕ, 5 ВОПРОС.]
вопрос, ст вставь [В каком году написал сказку "Сказка о мертвой царевне и 7 богатырях."]
спроси [ A)1833 B) 1955 C) 1855 D)1832 ]
если_иначе ответ = "A [курсор, нк 0 вп 25 вопр6] [сообщи[Ответ не верный! Вы проиграли!]останов]
конец
это вопр6
сообщи [Вы заработали первую несгораемую сумму - 1000 рублей!]
жди 5
сообщи [Внимание, 6 вопрос.]
вопрос, ст вставь [Кто являестся главой государства в Канаде? ]
спроси [ A)Королева B Канслер C Премьер - министр D)Президент]
если_иначе ответ = "A [курсор, нк 0 вп 25 вопр7]
[сообщи[Ответ не верный! Ваш выигрыш составил 1000 рублей!]останов]
конец
это вопр7
сообщи [Вы выиграли 2000 рублей!]
жди 5
сообщи [Внимание, 7 вопрос.]
вопрос, ст вставь [Что было залогом превращения обезьяны в человека? ]
спроси [A)сила B) труд C) любовь D)коллектив]
если_иначе ответ = "B [курсор, нк 0 вп 25 вопр8]
[сообщи[Ответ не верный! Ваш выигрыш составил 1000 рублей!]останов]
конец
это вопр8
сообщи [Вы выиграли 4000 рублей!]
жди 5
сообщи [Внимание, 8 вопрос.]
вопрос, ст вставь [Как называли место где собирались рыцари круглого стола? ]
спроси [ A)Ристайл B) Камелот C) Ризенкампф D)Локхайм]
если_иначе ответ = "B [курсор, нк 0 вп 25 вопр9] [сообщи[Ответ не верный! Ваш выигрыш составил 1000 рублей!]останов]
конец
это вопр9
сообщи [Вы выиграли 8000 рублей!]
жди 5
сообщи [Внимание, 9 вопрос.]
вопрос, ст вставь [Какая модель русских автомобилей учавствовали в "Париж - дакар?]
спроси [ A)маз B) газ C) камаз D)зил]
если_иначе ответ = "C [курсор, нк 0 вп 25 вопр10]
[сообщи[Ответ не верный! Ваш выигрыш составил 1000 рублей!]останов]
конец
это вопр10
сообщи [Вы выиграли 16000 рублей]
жди 5
сообщи [Внимание, 10 вопрос.]
вопрос, ст вставь [Откуда приведения берут свою энергию?]
спроси [ A)солнце B) луна C) воздух D)ЧЕЛОВЕК]
если_иначе ответ = "C [лист1 курса, нк 0 вп 25 вопр11]
[сообщи[Ответ не верный! Ваш выигрыш составил 1000 рублей!] останов]
конец
это вопр11
сообщи [Вы выиграли 2 несгораемую сумму - 32000 рублей]
жди 5
сообщи [Внимание, 11 вопрос.]
вопрос, ст вставь [Сколько км от Земли до Солнца?]
спроси [ A) B) C) D)]
если_иначе ответ = "D [курса, нк 0 вп 25 вопр12]
[сообщи[Ответ не верный! Ваш выигрыш составил 32000 рублей!]останов]
конец
это вопр12
сообщи [Вы выиграли 64000 рублей]
жди 5
сообщи [Внимание, 12 вопрос.]
вопрос, ст вставь [Самый вероятный день для торнадо?]
спроси [ A)15 мая B) 16 мая C) 20 мая D) 21 января ]
если_иначе ответ = "B [курса, нк 0 вп 25 вопр13]
[сообщи[Ответ не верный! Ваш выигрыш составил 32000 рублей!]останов]
конец
это вопр13
сообщи [Вы выиграли 125000 рублей]
жди 5
сообщи [Внимание, 13 вопрос.]
вопрос, ст вставь [Самый удачливый игрок в футболе?]
спроси [ A)RONALDO B) REVALDA C) RAMARIO D)Лёша ]
если_иначе ответ = "A [курса, нк 0 вп 25 вопр14]
[сообщи[Ответ не верный! Ваш выигрыш составил 32000 рублей!]останов]
конец
это вопр14
сообщи [Вы выиграли 250000 рублей]
жди 5
сообщи [Внимание, 14 вопрос.]
вопрос, ст вставь [Сколько лет идти пешком до солнца?]
спроси [ A) B)3500 C) 2500 D) ]
если_иначе ответ = "B [курса, нк 0 вп 25 вопр15]
[сообщи[Ответ не верный! Ваш выигрыш составил 32000 рублей!]останов]
конец
это вопр15
сообщи [Вы выиграли 500000 рублей]
жди 5
сообщи [Внимание, 15 вопрос.]
вопрос, ст вставь [В какой подмосковной деревне Кутузов отдал Наполеону Москву?]
спроси [ A) Бородино B) Питер C) Филе D) Фили ]
если_иначе ответ = "C [курса, нк 0 вп 25 финиш]
[сообщи[Ответ не верный! Ваш выигрыш составил 32000 рублей!]останов]
конец
это финиш
сообщи [Вы выиграли 1000000 рублей]
жди 25
курса, нк 0 вп 22
спроси [Простите: Как ваше имя?]
пусть "имя ответ
сообщи [Вы выиграл игру "Кто хочет стать миллионером?"]
сообщи :имя
сообщи [До новых втреч, друзья!]
сообщи [В новой Борьбе за 1000000!!!]
конец
Игра3 Знаки Зодиака
Автор неизвестен.
это прогноз2
спроси [Как вас зовут?]
пусть "а ответ
спроси [Какой номер месяца, в котором Вы родились?]
пусть "б ответ
если не число? ответ [сообщи [число должно быть числом] останов] ;контроль на число
если :б > 12[сообщи [число должно быть меньше] останов]
если :б < 1[сообщи [число должно быть больше] останов]
если :б = 1 [нт "прогноз [-] [] вставь :а вставь символ 32
пиши [ваш знак козерог]
вставь [Опасайтесь холода, вы можете заболеть]]
если :б = 2 [нт "прогноз [-] [] вставь :а вставь символ 32
пиши [ваш знак водолей]
вставь [ваша стихия - вода, но не утоните]]
если :б = 3 [нт "прогноз [-] [] вставь :а вставь символ 32
пиши [ваш знак рыба]
вставь [вас ждёт сюрприз]]
если :б = 4 [нт "прогноз [-] [] вставь :а вставь символ 32
пиши [ваш знак овен]
вставь [вас ждёт блестящая карьера]]
если :б = 5 [нт "прогноз [-] [] вставь :а вставь символ 32
пиши [ваш знак телец]
вставь [не грустите!]]
если :б = 6 [нт "прогноз [-] [] вставь :а вставь символ 32
пиши [ваш знак близнец]
вставь [крипитесь, люди, скоро лето!]]
если :б = 7 [нт "прогноз [-] [] вставь :а вставь символ 32
пиши [ваш знак рак]
вставь [вы - летние существа, поэтому, одевайтесь теплее]]
если :б = 8 [нт "прогноз [-] [] вставь :а вставь символ 32
пиши [ваш знак лев]
вставь [не рычите так часто]]
если :б = 9 [нт "прогноз [-] [] вставь :а вставь символ 32
пиши [ваш знак дева]
вставь [будьте женственны]]
если :б = 10 [нт "прогноз [-] [] вставь :а вставь символ 32
пиши [ваш знак весы]
вставь [взвешивайте всё сами]]
если :б = 11 [нт "прогноз [-] [] вставь :а вставь символ 32
пиши [ваш знак скорпион]
вставь [у вас хорошее будующее]]
если :б = 12 [нт "прогноз [-] [] вставь :а вставь символ 32
пиши [ваш знак стрелец]
вставь [с новым годом]]
конец
Тестирующие программы
Тест1 Тест по английскому языку (to be, to have).
Автор – неизвестен.
Тест на знание глаголов to be, to have.
это ENGLISH-TEST
сообщи [Ты долже будешь вставить вспомогательные глаголы : are, is и have, has]
пусть "н 0 ; счетчик правильных ответов
спроси [Man... going to the park] пусть "х ответ
если_иначе :х = "is [сообщи [О. К.] пусть "н :н + 1] [сообщи [NO ]]
спроси [Men... going to the park] пусть "х ответ
если_иначе :х = "are [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [Mailman... just come home after work] пусть "х ответ
если_иначе :х = "has [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [Mailmen... just come home after work] пусть "х ответ
если_иначе :х = "have [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [He.... going to you now] пусть "х ответ
если_иначе :х = "is [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [ Pupil... writing a composition now] пусть "х ответ
если_иначе :х = "is [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [Students... passing the examination at this moment]пусть "х ответ
если_иначе :х = "are [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [ Workers... finished the construction of the highway this year] пусть "х ответ
если_иначе :х = "have [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [ e back home already] пусть "х ответ
если_иначе :х = "has [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси Willi B. ... gone to Atlanta this day] пусть "х ответ
если_иначе :х = "has [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
если :н < 5 [сообщи[Два....]сообщи[Надо учится лучше]]
если :н = 5 [сообщи[Два]]
если :н = 6 [сообщи[Три]]
если :н = 7 [сообщи[Три]]
если :н = 8 [сообщи[Четыре]]
если :н = 9 [сообщи[Четыре]]
если :н = 10 [сообщи[Молодец! Пять]]
конец
Тест Тест по английскому языку (неправилные глаголы).
это ENGLISH
сообщи[Ты должен будешь написать глагол в пропущенной форме ]
пусть "н 0
спроси [write, wrote, ...] пусть "х ответ
если_иначе :х = "written [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [see, .... ,seen] пусть "х ответ
если_иначе :х = "saw [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [......, took, taken] пусть "х ответ
если_иначе :х = "take [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [fly, ...., flown] пусть "х ответ
если_иначе :х = "flew [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [fall, fell, ......] пусть "х ответ
если_иначе :х = "fallen [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [..., felt, felt] пусть "х ответ
если_иначе :х = "feel [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [go,... , gone] пусть "х ответ
если_иначе :х = "went [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [eat, ate,....] пусть "х ответ
если_иначе :х = "eaten [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [grow, .... , grown] пусть "х ответ
если_иначе :х = "grew [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
спроси [.... , forgot, forgotten ] пусть "х ответ
если_иначе :х = "forget [сообщи [О. К.]пусть "н :н + 1] [сообщи [NO ]]
если :н < 5 [сообщи[Два....]сообщи[Надо учится лучьше]]
если :н = 5 [сообщи[Два]]
если :н = 6 [сообщи[Три]]
если :н = 7 [сообщи[Три]]
если :н = 8 [сообщи[Четыре]]
если :н = 9 [сообщи[Четыре]]
если :н = 10 [сообщи[Молодец! Пять]]
конец
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 |
