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

Подсказка: чтобы слова разделялись пробелами используйте команду - вставь символ 32

Решение:

это задача1

ст

нш "Латинский

кенг, нрш 12 нцт 55 вставь [С]

кенг, вставь символ 32 нрш 16 нцт 105 вставь [добрым ]

кенг, вставь символ 32 нрш 20 нцт 15 вставь [утром!]

конец

Задача2-2 Установка параметров текстового окна.

Процедура перемещает текстовое окно с левого края листа проекта на правый край.

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

Решение:

это задача2

установи "кенг "место [-220 -20]

установи "кенг "место [-180 -20]

установи "кенг "место [-140 -20]

установи "кенг "место [-100 -20]

установи "кенг "место [-80 -20]

установи "кенг "место [-60 -20]

установи "кенг "место [-40 -20]

установи "кенг "место [0 -20]

установи "кенг "место [20 -20]

установи "кенг "место [40 -20]

установи "кенг "место [60 -20]

конец

Задача2-3 Изменение размера текствого окна

Процедура меняет размер текстового окна от [20 20] до [100 100]. Окно сохраняет квадратную форму.

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

Решение:

это задача3

установи "кенг "размер [20 20]

установи "кенг "размер [40 40]

установи "кенг "размер [60 60]

установи "кенг "размер [80 80]

установи "кенг "размер [100 100]

конец

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

Задача3-1 Меняем размер нечетных букв в слове

Перемещение курсора, выделение текста. Напишите процедуру, которая меняет размер каждой нечетной буквы в слове "Молоко" на 20.

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

Решение:

это задача1

внт

выделяй квп нрш 24

не_выделяй квп

выделяй квп нрш 24

не_выделяй квп

выделяй квп нрш 24

не_выделяй квп

конец

Задача3-2 Меняем цвет каждой 3-ей буквы в тексте

Перемещение курсора, выделение текста. Напишите процедуру, которая меняет цвет каждой третьей буквы в тексте на красный. Длина текста не определена, т. е. текст может быть любым.

Подсказка - используйте команды Лого - внт, квп, выделяй, не_выделяй, нцт 15, кт?, цикл [ ], если условие [ ]

это задача2

внт

цикл [

выделяй квп нцт 15

не_выделяй квп квп

если кт? = "true [стоп]

]

конец

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

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

Подсказка - используйте команды Лого - внт, квп, кнд, выделяй, копируй, кт?, цикл [ ], если условие [ ].

это задача3

текст, внт

цикл [

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

тскет, вставь буфер кнд

текст, если кт? = "true [стоп]

]

конец

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

Задача 4-1 Новая кнопка

Напишите 2 процедуры. 1 - я - с именем Информация - создает новое текстовое окно с именем ТТТ, выводит в него любой текст и создает новую кнопку с именем кн. В списке инструкций напишите имя второй процедуры Всё_прочитал.

2-ая процедура с именем Всё_прочитал удаляет текстовое окно и удаляет кнопку кн.

Подсказка - используйте команды Лого: нов_кнопка имя _кнопки [х у] список-инструкций, удали имя _кнопки

Решение:

это Информация

нт "ттт [0 0] [120 60] вставь [это более подробная информаци я о....]

нов_кнопка "кн1 [-40 0] [Всё_прочитал]

конец

это Всё_прочитал

удали "ттт

удали "кн1

конец

Задача 4-2 Поиск и замена слов в тексте (ищи, нашла?)

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

Подсказка: Используй команды Лого: ищи “ммм, не нашла?, если условие [], вставь “ппп

Решение:

это Замена_слов

пусть "сл1 "Вася

пусть "сл2 "Рома

письмо, внт

цикл [
ищи :сл1
если не нашла? [ стоп]
вставь :сл2

]

конец

Задача4-3 Пирамида из слов

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

Решение:

это пирамида

т1, ст

спроси [Введие любое слово]

т1, вставь ответ

цикл [

т1, внст

выделяй вкст копируй пиши []

верни кнд сотри_букву

если (сколько буфер) = 1 [стоп]]

конец

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

Задача1 Копируем строки текста

Скопировать одна строчку текста из текстового окна ТТТ1 и 5 раз вывести ее в текстовое окно ТТТ2.

Решение:

это копи

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

ТТТ2, повтори 5 [пиши буфер]

конец

Задача2 Узнаем коды букв русского алфавита

Вывести в текстовое окно коды всех букв русского алфавита в таком виде -

а-224

б-225

в-226

г-227

Буквы вводятся с клавиатуры.

Подсказка: используй команды Лого - жди_символ, код. Цикл прерывается, если ввести с клавиатуры цифру 0.

Решение:

это коды_букв

цикл [

пусть "х жди_символ

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

текст,

вставь :х вставь "- пиши :у

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

]

конец

Задача3 Случайный набор букв с изменяющимся размером

Вывести в текстовое окно 10 букв русского алфавита, выбранных случайным образом. Код буквы а-224, код буквы ю - 254, буквы я - 223. Размер шрифта увеличивается с 10 до 30. Цвет букв меняется случайным образом.

Подсказка: используй команды Лого - символ, сл.

Решение:

это рост_букв

пусть "х 10

цикл [

нрш :х

нцт 1 + сл 200

вставь символ (223 + сл 31)

пусть "х :х + 2

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

]

конец

Задача4 Ищем букву в тексте и меняем ее цвет и размер

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

Подсказка: используй команды Лого - спроси, ищи, не нашла?.

Решение:

это поиск_букв

спроси [Какую букву найти?]

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

внт

цикл [

ищи :бук

нцт 15

нрш 20

если не нашла? [стоп]

]

конец

Задача5 Считаем количество букв в тексте

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

Подсказка: используй команды Лого - спроси, ищи, не нашла?, нашла?.

Решение:

это подсчет_букв

спроси [Какую букву найти?]

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

внт

пусть "кб 0

цикл [

ищи :бук

если нашла? [пусть "кб :кб + 1]

если не нашла? [стоп]

]

вкт вставь символ 13

вставь [Кол-во букв-] вставь :бук вставь "- вставь :кб

конец

Задача6 Случайно выбранные строки

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

Подсказка: используй команды Лого - сл_строка.

Решение:

это случай

повтори 3 [

ттт2, пиши сл_строка "ттт1

]конец

Задача7 Считаем количество строк в тексте

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

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

Решение:

это Сколько_строк

ттт2, ст пиши число_строк "ттт1

конец

Задача8 Приветствие

Написать поцедуру, которая чистит все текстовые окна на листе проекта

Затем пишет в них слово привет разными цветами.

Решение:

это чистка

скажи [ттт1 ттт2] [ ст нцт 1 + сл 200 пиши "привет]

конец

Задача9 Палиндромы

Палиндром - это слова или предожения, которые одинаково читаются в обе стороны. Например: Лапоть топал. Мыло - голым! Я ем змея. Я не стар, брат Сеня! О, Нина и пианино. Продемонстрируйте это.

Решение:

это наоборот

фраза, ст вставь [лапоть топал]

пусть "сл1 6

фраза, внт

палиндром, внт ст

цикл [

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

палиндром, если_иначе буфер = (символ 32) [] [верни кнд]

фраза, если кт? [стоп]

]

палиндром, внт повтори :сл1 [квп] вставь символ 32

конец

Задача10 Логорифы

Логогрифы - "выпадание" буквы из слова или фразы меняет смысл слова или фразы.

это логогриф. Например: Всюду хРамы, У цаля нет сЫна.

Решение:

Это логогриф1

письмо, ст вставь [Всюду храмы]

жди 5

внт

ищи "р вырежи

конец

это логогриф2

письмо, ст вставь [У царя нет сына]

жди 5

внт

ищи "ы вырежи

конец

Задача11 Акростих

Акростих - это стихотворение, первые буквы строк которого образуют слово. Продемонстрируйте это на примере следующего стихотворения.

Родясь от пламени, на небо возвышаюсь,

Оттуда на землю водою возвращаюсь!

С земли меня влечет планет всех князь к звездам,

А без меня тоска смертельная цветам.

Решение:

это акростих

стих, ст акро, ст

пиши [Родясь от пламени, на небо возвышаюсь,]

пиши [Оттуда на землю водою возвращаюсь!]

пиши [С земли меня влечет планет всех князь кзвездам,]

пиши [А без меня тоска смертельная цветам.]

стих, внт

пусть "кс число_строк "стих

повтори :кс [

стих, выделяй квп нов_стиль "жирный копируй нов_стиль "жирный кнд кнз

акро, верни

]

конец

Задача12 Кругозвучия

Кругозвучия - это такие слова, которые при многократном повторении начинают свучать как другие слова. Например:

Мышка

Мышкамышкамышкамышкамышкамышкамышка

Крыса

крысакрысакрысакрысакрысакрысакрысакрысакрысакрысакрыса

Решение:

это кругозвучие