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

пусть "х :х + 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 Ищем максимальный элемент списка

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

Решение:

это максимум

пусть "сп [ 1 2 3 4 5 6 7 8 90 10 11 12 13 14 15 16 ]

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

пусть "№мах 0

пусть "х 1

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

]

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

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

конец

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

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

Решение:

это квадраты

пусть "сп [ 1 2 3 4 5 6 7 8 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

конец

Работы учеников средней школы ТАУ (Толяттинской академии управления))

Игры

Игра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 [пуля] ; вылетает пуля

конец

; на листе по очереди появляюся различные объекты -

; космические тела

это стрельба

; список форм летящих космических тел

пусть "ф [45 14 15 58 14 50 59 56 30 55 14 45 29]

; список мест начала движения космических тел

пусть "мес [

[-171 144] [198 100] [15 140] [194 -49] [-194 30] [-198 -10] [-200 90] [-35 140][191 140][-60 -149] [-91 147]
[-171 144] [94 -149]

]

; список курсов полетов космических тел

пусть "к [135 215 0 300 90 90 115 145 225 30 130 135 310]

пусть "у 1

цикл [

буль1, нф (элемент :у :ф) ; косм. тело меняет форму

нм (элемент :у :мес) пч ; космическое тело становится на место

нк (элемент :у :к ) ; выбирает курс

повтори 100 [вп 3] сч ; и начинает движение

пусть "у :у + 1

если :у > сколько :к [стоп]

]

конец

; пуля вылетает с места разположения косм. корабля

; анализируется столкновение пули и косм. тела

это пуля

запусти [проверка]

ракета, пусть "м место пуля, нк 0 нм :м пч ;невидимая пуля перемещается к ракете и становится
видимой

повтори 11 [вп 20] сч нм [-120 -120] ;пуля летит

отмени [проверка]

конец

; проверка - столкнулась ли пуля (имя чер. "пуля) с

; летящим косм. телом (имя черепашки "буль1)

это проверка

буль1,

цикл [

если (путь "пуля) < 25 [буль1, нф 41 нф 42 пуля, сч ;если пуля оказалась на расстоянии 25

пусть "оч :оч + 1 сч стоп] ; пикселей до объекта, то объект взрывается.

]

конец

это очки

нт "ттт [-80 50] [160 100]

ст вставь [Ты подбил "] вставь :оч пиши [- из 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

Игра

курсор, нм [-157 -131]

курса, нм [-163 -123]

вопрос, ст

конец

это Игра

сообщи [Начнём отборочный тур!]

вопрос, ст вставь [Расположите эти фильмы с участием звёзд эстрады в хронологическом порядке: ]

спроси [ A) Пришла и говорю B) АССА C) Весёлые ребята D) Зона Любе]

если_иначе ответ = "CABD [сообщи [Вы прошли отборочный тур!] вопр1]

[сообщи [В игру не попал никто.]останов]