конец

Задача2: Рекламный текст

Напишите процедуру, которая запрашивает рекламный тект у пользователя и печатает его в текстовом окне "реклама. Каждое слово пишется разным цветом и увеличивающимся размером шрифта.

Решение:

это задача№2

спроси [введите рекламный текст]

пусть "рекл разбери ответ

пусть "и 1

пусть "рш 12

цикл [ нцт 1 + сл 200 нрш :рш
реклама, вставь элемент :и :рекл вставь символ 32
если (последний :рекл) = (элемент :и :рекл) [стоп]
пусть "и :и + 1
пусть "рш :рш + 2

]

конец

это подсказка2

покажи [1) Попросите пользователя ввести рекламный текст]

покажи [2) Затем определите список "рекл, в которую помещается введенный текст]

покажи [3) определите переменную "х, которая будет задавать номер элемента в списке и присвойте ей значение 1]

покажи [4) Определите переменную "рш, которая будет задавать размер шрифта и присвойте ей значение 12]

покажи [5) Затем откройте цикл]

покажи [6) Определите номер нового цвета текста, принимающего любое значение от 1 до 200 (команда Лого - нцт число )]

покажи [7) Определите новый размер шрифта - значение переменной "рш (команда Лого - нрш число )]

покажи [8) В текстовое окно реклама выводим элемент №х из списка "рекл]

покажи [9) Прибавляем к переменной "рш "2"]

покажи [10) Анализируем является элемент "х из списка "рекл последним]

покажи [11) Прибавляем к переменной "х единицу и закрываем цикл]

конец

Задача3 Рассчет суммы квадратов элементов списка

Напишите процедуру, которая считает сумму квадратов элементов списка сп . Содержимое списка и значение суммы квадратов выводится в текстовое окно результат.

Решение:

это задача№3

пусть "сп [ ]

пусть "сумкв 0

пусть "х 1

повтори сколько :сп [пусть "сумкв :сумкв + (элемент :х :сп) * (элемент :х :сп)

пусть "х :х + 1]

результат, ст пиши :сп пиши :сумкв

конец

это подсказка3

покажи [1) Сначала определяем списка "сп с числами]

покажи [2) Затем переменную "сумкв, которой присваиваем значение 0]

покажи [3) Затем переменную "х, которой присваиваем значение 1]

покажи [4) Затем открываем цикл]

покажи [5) К переменной "сумкв прибавляем значение элемента №х из списка "сп, помноженное на само себя]

покажи [6) К переменной "х прибавляем 1]

покажи [Анализируем является элемент "х из списка "сп последним. Если "Да, то останавливаем цикл (команда - стоп)]

покажи [7) Выводим результат в текстовое окно]

конец

Задача4 Тест по русскому языку

Напишите две процедуры.

Процедура "задача№4 Определите два списка. Один [витрина винегрет окно]. Другой - [в_трина вин_грет _кно]. Первый список выведите в текстовое окно "результат.

Процедура "задача№4 - проверка Копирует содержимое тестового окна (внт выделяй вкт копируй). И сравнивает содержимое второго списка со скопированной информацией. В случае, если значение списков совпадает - сообщает "Все верно. В противном случае - "Вы ошиблись. Используйте команды равны?, разбери.

это задача№4

пусть "сп1 [витрина винегрет окно]

пусть "сп2 [в_трина вин_грет _кно]

результат, ст вставь :сп2

конец

это задача№4-проверка

результат, внт выделяй вкт копируй

пусть "сс разбери буфер

если_иначе равны? :сп1 :сс

[сообщи [все правильно] ]

[сообщи [вы ошиблись]]

конец

это подсказка4

покажи [После работы команды копируй, информация находится в ячейке буфер в виде цепочки символов.]

покажи [Для преобразования символов в список использутся команда "разбери. (пусть "ссс разбери буфер)]

конец

Программирование списков №4

Задача1 Перевод восьмеричных чисел в двоичные

Напишите процедуру, которая восьмеричное число переводит в двоичное. ;Восьмеричное число берется из текстового окна "восьмеричное. А двоичное ;выводится в текстовое окно "двоичное.

Решение:

это задача№1

десятичное, внт выделяй вкт копируй

пусть "ч буфер

двоичное, ст

цикл [
пусть "о остаток :ч 2
пусть "ч целое :ч / 2
двоичное, вставь :о кнд
если :ч = 0 [стоп]
]

конец

это подсказка1

покажи [1) скопируйте информацию из текстового окна "десятичное ]

покажи [2) определите переменную "ч, в которое поместите содержимое буфера обмена]

покажи [3) определите переменную "х и присвойте ей значение 1.]

покажи [4) откройте цикл]

покажи [5) определите переменную "0, которая будет равна остатку деления переменной "ч на 2 (примитив Лого: остаток - смотри Словарь)]

покажи [6) переменной "ч присвойте значение целой части после деления её на 2 (примитив Лого: целое - смотри Словарь)]

покажи [7) в тестовое окно "двоичное выведите значение переменной "о. Используйте команду вставь. ]

покажи [8) Курсор верните назад на 1 позицию]

покажи [9) Не забудьте к переменной "х прибавить единицу ]

покажи [10) проанализируйте равна ли переменная "ч 0 для завершения цикла]

конец

Задача2 Перевод двоичных чисел в десятичные

Напишите процедуру, которая двоичное число переводит в десятичное. Двоичное;число берется из текстового окна двоичное. Десятичное число выводится в; текстовое окно десятичное.

Решение:

это задача№2

двоичное, внт выделяй вкт копируй

пусть "чдв буфер

десятичное, ст

пусть "х 0 ;счетчик шагов в цикле
пусть "чисдес 0 ;десятичное число
пусть "с сколько :чдв ;кол-во знаков в двоичном числе

цикл [
пусть "эл элемент (:с - :х) :чдв ;берем по очереди цифры; из "чдв с конца
если :эл > 1 [сообщи [число не двоичное] останов]
пусть "чисдес :чисдес + (степень 2 :х) * :эл
пусть "х :х + 1
если :х = :с [стоп]
]

десятичное, пиши :чисдес

конец

это подсказка2

покажи [1) Определите переменную "чдв, в которую поместите информацию из ТО "двоичное]

покажи [2) определите переменную "х, которая будет задавать номер элемента в списке и присвойте ей значение 1]

покажи [3) Определите переменную "чисдес, куда в итоге поместится десятичное число и присвойте ей значение 0]

покажи [4) Определите переменную "с равную количеству элементов в "чдв]

покажи [5) Затем откройте цикл]

покажи [6) Определите переменную "эл, которая равна значению элемента № (:с - :х)из "чдв]

покажи [7) Проанализируйте: если "эл больше 1, то введенное в ТО число - не двоичное и остановите выполнение процедуры]

покажи [8) В текстовое окно реклама выводим элемент №х из списка "рекл]

покажи [9) Прибавляем к переменной "чисдес значение переменной "эл, умноженное на 2 в степени :х]

покажи [10) Прибавляем к переменной "х единицу ]

покажи [11) Анализируем равно ли значение переменной "х значению переменной "с. Если "да, то останавливаем цикл]

конец

Задача3 Перевод восьмеричных чисел в десятичные

Напишите процедуру, которая восьмеричное число переводит в десятичное. Восьмеричное число берется из текстового окна восьмеричное.

Решение:

это задача№3

восьмеричное, внт выделяй вкт копируй

пусть "ч буфер

десятичное, ст

пусть "х 0

пусть "чис 0

пусть "с сколько :ч

цикл [
пусть "эл элемент (:с - :х) :ч
если :эл > 7 [сообщи [число не восьмеричное] останов]
пусть "чис :чис + (степень 8 :х) * :эл
пусть "х :х + 1
если :х = :с [стоп]
]

десятичное, пиши :чис

конец

это подсказка3

покажи [ смотри предыдущую задачу ]

конец

Задача4 Перевод восьмеричных чисел в двоичные

Напишите процедуру, которая восьмеричное число переводит в двоичное. ;Восьмеричное число берется из текстового окна восьмеричное. А двоичное выводится в текстовое окно двоичное.

Решение:

это задача№4

пусть "8-ич [ ]

пусть "2-ич []

двоичное, ст

восьмеричное, внт выделяй вкт копируй

пусть "ч буфер

пусть "х 1

цикл [
пусть "п элемент :х :ч
пусть "т элемент (:п + 1) :2-ич
двоичное,
если (сколько :т) = 2 [вставь "0]
если (сколько :т) = 1 [вставь "00]
вставь :т вставь символ 32
если :х = сколько :ч [стоп]
пусть "х :х + 1
]

конец

это подсказка4

покажи [Здесь придется воспользоваться своим умом. Удачи!]

конец

Дополнительные задачи по теме «Программирование списков»

Задача 1 Подсчет количества нечетных чисел в списке

Дан следующий список [2478 87 65]. Подсчитать количество нечетных элементов данного списка (используйте команду остаток). Сам список и полученное число выведите в текстовое окно.

Задача 2 Создаем новый список из элементов другого списка, которые больше 10.

Дан следующий список [1 6 56 7]. Подсчитать количество элементов списка больших 10. Составить другой список, содержащий эти элементы. Оба списка и полученное число выведите в текстовое окно.

Задача 3 Объединяем два списка в один.

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

Задача 4 Делим элементы списка пополам.

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

Задача 6 Определяем класс для любого ученика

Даны списки, содержащие фамилии учащихся трех классов (по 3 фамилии). Программа запрашивает у пользователя фамилию и определяет, в каком классе учится ученик с этой фамилией. Ответ вывести в текстовое окно.

Задача 7 Подсчет количества четных чисел в списке

Дан следующий список [2478 87 65]. Подсчитать количество четных элементов данного списка (используйте команду остаток). Сам список и полученное число выведите в текстовое окно.

Задача 8 Составляем таблицу роста.

Определить 3 списка, один список "фамилии - содержащий фамилии всех девочек класса, другой "имена, содержащий имена этих же девочек, третий -"врост, содержащий информацию о росте этих девочек. В текстовое окно вывести информацию в виде

имя1 фамилия1 - Хсм имя2 фамилия3 - Хсм имя3 фамилия3 - Хсм

Задача9 Премещаем черепашку, используя 2 списка: Х-координат и У-координат

Определить два списока"Хк и "Ук состоящий из Х и У координат черепашки. Написать процедуру для черепашки, чтобы она перемещалась, используя элементы из этих списков

Задача 10 Переставляем элементы списка.

Дан список, содержащие фамилии учащихся (от 5ти до 10 фамилий). Составить другой сисок, где фамилии перечислены в обратном порядке. Оба списка вывести в текстовое окно.

Задача11 Рисуем ломаную линию по списку координат

Определяется список, состоящий из списков координат черепашки. Затем черепашка перемещается по экрану, используя элементы из списка. Черепашка оставляет след и получается рисунок.

Решение:

это ломаная

по

нрп 1 нц 4

пусть "сп_к [[150 50] [267 10] [37 42] [34 78]]

пусть "х 1

цикл [
нм элемент :х :сп_к
пусть "х :х + 1
если :х > сколько :сп_к [стоп]

]

конец

Задача2 Считаем и премещаем элементы списка

Для список целых положительных чисел [5118] определить, сколько элементов списка больше 50 и сколько элеменов списка меньше 50. Все числа, которые больше 50 поместить в конец нового списка, а те, которые меньше 50 – в начало нового списка. Результат вывести в текстовые окна.

Решение:

это граница

пусть "х 0

пусть "б [5118]

пусть "к [ ]

пусть "Г 50

пусть "кэ сколько :б

цикл [

пусть "х :х + 1

если_иначе (элемент :х :б) > :Г [пусть "к вксп (элемент :х :б) :к]

[пусть "к внсп (элемент :х :б) :к]

если :х = :кэ [стоп]

]

больше, вставь :б

меньше, вставь :к

конец

Задача3 Треугольник

Написать процедуру, которая первую букву в слове ТРЕУГОЛЬНИК помещвет в конец слова, затем удаляет эту букву. И так до тех пор, пока снва не образуется слово ТРЕУГОЛЬНИК.

Решение:

это треугольник

пусть "сп [т р е у г о л ь н и к]

пиши :сп

повтори сколько :сп [

пусть "сп вксп (элемент 1 :сп) :сп

пусть "сп кпрв :сп

]

дано!, вставь :сп

конец

Задача4 Объединяем два списка

Дано два списка. 1-ый – список имен всех мальчиков в классе. 2-о1 – список имен всех девочек в классе. Составить третий список, содержащий имена всех девочек и всех мальчиков в классе.

Решение:

это класс

пусть "список1 [ Сабина]

пусть "список2 [ Паша Рома Миша]

пусть "список3 []

пусть "х 1

цикл [
пусть "список3 вксп (элемент :список1) :список3
пусть "х :х + 1
если :х > сколько :список1 [стоп]

]

цикл [
пусть "список3 вксп (элемент :список2) :список3
пусть "х :х + 1
если :х > сколько :список2 [стоп]

]

класс!, вставь :список3

конец

Задача5 Поиск счастливых билетов

В текстовое окно вывести все четырехзначные числа, у которых сумма двух первых цифр равна сумме двух последних.

Решение:

это счасливый билет

пусть "х 1000

если (элемент 1 :х) + (элемент 2 :х) = (элемент 3 :х) + (элемент 4 :х) [вставь :х]

пиши :х

пусть "х :х + 1

если :х > 9999 [стоп]

конец

Задача6 Да и нет не говорить …

Запрограммировать известную детскую игру «Да и нет не говорить, черное с белым не носить.

Решение:

это старт!!!

пусть "х 1

пусть "зс [ да нет чёрный черное черная чёрная чёрное черный белый белая белое]

пусть "вопрос [
[ты любишь ходить в школу?]
[ты хочешь учиться на "5" ?]
[какого цвета снег?]
[какого цвета слово "нет" ?]
[ты образованный человек?]
[ в каком платье / костюме ты будешь на свадьбе? ]

]

пусть "реплика [
[молодец!]
[а ты, ещё умеешь писать?]
[ну надоже!]
[да ты что! ]
[ты, ЮЛИЙ ЦЕЗАРЬ!]

]

цикл [
спроси элемент :х :вопрос
пусть "х :х + 1
если входит? ответ :зс [сообщи[извини но ты не смог сдержать запрещённые слова , пока!]]
сообщи элемент 1 + сл 6 :реплика
если :х > 5 [сообщи [молодец! ты справился с заданием, пока!] стоп]

]

конец

Задача7 Слова-перевертыши

Напишите процедуру, которая любое слово, заданное пользователем, пишет наоборот (начиная с последней буквы).

Решение:

это перевёртыш

ст

спроси [напиши любое слово!]

пусть "ааа ответ

слово!, вставь :ааа

пусть "х сколько :ааа

цикл [
!оволс, вставь элемент :х :ааа
пусть "х :х – 1
если :х = 0 [стоп]

]

конец

Задача8: Строим пирамиду из слова

Пострить пирамиду из слова. На первой строке пишется все слово, на второй слово без последней буквы, на третьей слово без двух последних букв и так до тех пор, пока не кончаться все буквы в слове

Решение:

это пирамида

ст

спроси [напиши любое слово!]

пусть "ккк ответ

пирамидка, пиши :ккк

пусть "х сколько :ккк

цикл [
пусть "ккк кпсл :ккк
пирамидка, пиши :ккк
пусть "х :х – 1
если :х = 0 [стоп]

]

конец

Задача9 Ищем максимальный элемент списка

Дан список чисел. Найти максимальный элемент.

Решение:

это максимум

пусть "сп [ 9015 16 ]

пусть "мах элемент 1 :сп

пусть "№мах 0

пусть "х 1

цикл [
если :мах < элемент :х :сп [ пусть "мах элемент :х :сп пусть "№мах :х ]
пусть "х :х + 1
если :х > сколько :сп [ стоп ]

]

вставь [Максимальный элемент равен - ] пиши :мах

вставь [Номар максимального элемента -] вставь :№мах

конец

Задача10 Возводим в квадрат элементы списка

Дан список чисел от 1-го до 10-ти. Составить второй список, содержащий квадраты элементов 1-го списка

Решение:

это квадраты

пусть "сп [ 9 10 ]

пусть "сп! [ ]

пусть "х 1

цикл [
пусть "у (элемент :х :сп)* (элемент :х :сп)
пусть "сп! вксп :у :сп!
пусть "х :х + 1
если :х > сколько :сп [стоп]

]

вставь [ квадраты чисел - ]

пиши :сп пиши :сп!

Конец

Задача11 Считаем сумму и разность сумм элеменов 2-х списков

Определить два списка (элементы списка вводятся в диалогом режиме). Посчитать суммы элементов каждого списка. Затем рссчитать разность этих сумм и сумму этих сумм. Результат вывести в текстовое окно.

Решение:

это задание_2

ст

пусть "м1 []

пусть "м2 []

пусть "в1 0 ;в1 – сумма элементов списка м1

пусть "в2 0 ;в1 – сумма элементов списка м2

повтори 5[ спроси[ Введите элемент для 1-ого массива]

пусть "д1 ответ

пусть "в1 :в1 + :д1

пусть "м1 вксп :д1 :м1

]

вставь [Сумма элементов 1-го списка -] пиши :в1

повтори 5[спроси[ Введите элемент для 2-ого массива]

пусть "д2 ответ

пусть "в2 :в2 + :д2

пусть "м2 вксп :д2 :м2

]

вставь [Сумма элементов 2-го списка -] пиши :в2

вставь [Разность сумм элементов 1-го списка и 2-го списка -] пиши :в1 - :в2

вставь [Сумма сумм элементов 1-го списка и 2-го списка -] пиши :в1 + :в2

конец

земля, сч нм [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 4 5 6 7