Решебник для задачника Программирование в Лого (стр. 14 )

пусть "сум1 0

пусть "сум2 0

бр1, ст

бр2, ст

запусти [

цикл [если :сум1 > 50 [сообщи [выиграл 1-ый игрок] стоп]

если :сум2 > 50 [сообщи [выиграл 2-ый игрок] стоп]

]

]

конец

это бросок1

пусть "с 0

скажи [куб1 куб2]

[ пусть "ч сл 6 нф 40 + :ч пусть "с :с + :ч]

бр1, пиши :с

пусть "сум1 :сум1 + :с

сумма1, ст вставь :сум1

конец

это бросок2

пусть "сс 0

скажи [куб1 куб2]

[ пусть "ч сл 6 нф 40 + :ч пусть "сс :сс + :ч ]

бр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

Задача1-1 Мигающие окна.

Текстовые окна т1, т2, т3 по очереди то появляются, то исчезают на листе проекта.

Подсказка - используйте команды Лого - спрячь_текст, покажи_текст.

Решение:

это задача1

повтори 10 [

скажи [т1 т2 т3] [ спрячь_текст жди 2 покажи_текст]

]

конец

Задача1-2 Новые текстовые окна.

Напишите процедуру, которая создает два новых текстовых окна. Одно с именем инфо, размер 120 на 40, координаты левого верхнего угла - [-120 0].

Другое - с именем ттт, размер 60 на 60, координаты левого верхнего угла - [-120 -50] . Затем оба окна удаляются.

Подсказка - используйте команды Лого - нов_текст "имяТО [ ] [ ]

Решение:

это задача2

нт "инфо [-120 0] [120 40]

нт "ттт [-120 -50][60 60]

удали "инфо удали "ттт

конец

Задача 1-3 Корирование содержимого текстовых окон.

Напишите процедуру, которая складывает два числа. Числа берутся из текстовых окон - 1число, 2число. Результат вычислений выводится в текстовое окно результат.

Подсказка - используйте команды Лого - пусть "х имяТО - помещает в переменную х содержимое текстового окна.

Решение:

это задача3

пусть "х 1число

пусть "у 2число

пусть "сум :х + :у

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

конец

Программирование текстовых окон №2

Задача2-1 Изменение шрифта, размера, цвета текста.

Процедура выводит в тектовое окно фразу "С добрым утром!". Каждое слово печатается другим цветом. Размер шрифта 1-го слова - 12, 2-го слова - 14. 3-го слова - 16. Шрифт - Латинский.