Научная статья на тему 'ПРОГРАММИРОВАНИЕ В СРЕДЕ ЛОГО МИРЫ Часть 6. Программирование списков ПРОГРАММИРОВАНИЕ СПИСКОВ № 1'

ПРОГРАММИРОВАНИЕ В СРЕДЕ ЛОГО МИРЫ Часть 6. Программирование списков ПРОГРАММИРОВАНИЕ СПИСКОВ № 1 Текст научной статьи по специальности «Математика»

CC BY
255
58
i Надоели баннеры? Вы всегда можете отключить рекламу.

Аннотация научной статьи по математике, автор научной работы — Волкова Ризида Анверовна

Статья продолжает серию публикаций по обучению в среде Лого (начало см. в журналах № 1, № 2, № 3, № 4 И № 5 за 2004 год). По мнению автора, обучение в этой среде развивает математическую интуицию и геометрические представления, формирует алгоритмический, структурный, логический и комбинаторный типы мышления, повышает творческую активность и самостоятельность школьников.

i Надоели баннеры? Вы всегда можете отключить рекламу.
iНе можете найти то, что вам нужно? Попробуйте сервис подбора литературы.
i Надоели баннеры? Вы всегда можете отключить рекламу.

Текст научной работы на тему «ПРОГРАММИРОВАНИЕ В СРЕДЕ ЛОГО МИРЫ Часть 6. Программирование списков ПРОГРАММИРОВАНИЕ СПИСКОВ № 1»

Волкова Ризида Анверовна

ПРОГРАММИРОВАНИЕ В СРЕДЕ ЛОГО МИРЫ

Часть 6. Программирование списков

ПРОГРАММИРОВАНИЕ СПИСКОВ № 1

Задача 1-1. Добавляем в список новый элемент

Определите список членов вашей семьи. Добавьте в конец списка нового члена семьи. Результат выведите в текстовое окно.

Задача 1-2. Считаем количество элементов в списке

Определите список, который содержит фамилии всех ваших одноклассников, присутствующих на уроке. Сравните количество элементов в этом списке с числом 16 (или любым другим числом). Если количество окажется меньше 16, выщайте сообщение «кто-то болеет». Если количество окажется равно 16, выщайте сообщение «все на уроке».

Решение: это класс

пусть "присутствующие [Коля Оля Маша Тоня Ваня] пусть "ск сколько присутствующие если_иначе :ск < 16 [сообщи [Кто-то болеет]] [сообщи [все на уроке]]

конец

Решение: это вся_семья

пусть "семья [мама папа сын] результат, ст пиши :семья пусть "семья вксп "дочь :семья результат, вставь :семья конец

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

Ознакомьтесь с программой, которая считает сумму элементов списка сп. Содержимое списка и значение суммы выводится в текстовое окно «результат».

Решение:

это з3

пусть "сп [ 1 4 6 3 7 3] пусть "сум 0 пусть "х 1

,-определяется список из 6-ти чисел

/определяется переменная "сум - туда будет помещаться сумма /определяется переменная "х - счетчик элементов списка

повтори 6 [пусть "сум :сум + элемент :х :сп пусть "х :х + 1]

результат, ст пиши :сп пиши :сум ; сам список и сумма его элементов выводится в конец ; текстовое окно "результат".

Задача 1-4. Циклы и списки

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

Решение: это расчет_суммы2 пусть "сп [ 1 4 6 3 7 3] пусть "сум 0 пусть "х 1 всегда [

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

если :х > (сколько :сп) [автостоп] ] жди_пока [:х > (сколько :сп)] результат, ст вставь [Элементы списка -] пиши :сп вставь [Сумма элементов списка -] пиши :сум конец

ПРОГРАММИРОВАНИЕ СПИСКОВ №2 Задача 2-1. «Буриме»

Определите список сп_вопросов, который содержит шесть любых вопросов. Определите список сп_ответов, который содержит шесть ответов на эти вопросы. Программа должна выбирать случайным образом ответы и вопросы и выводить их в текстовые окна.

Подсказка: используйте команду Лого — сл_элемент.

Решение: это задача1 пусть "сп_вопросов [ [Что вы делаете завтра?] [Почему пропустили урок?] [Почему опоздали?] [О чем вы думаете?] [Как вам пришла такая мысль?]

[Какие у вас проблемы?] ]

пусть "сп_ответов [ [Иду в кино с классом] [Мама проспала] [Машина у папы сломалась] [О еде]

[Ударился головой о стену]

[Кушать хочется] ]

вопрос, ст пиши сл_элемент :сп_вопросов

ответ!, ст пиши сл_элемент :сп_ответов конец

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

покажи [Используй команду сл_элемент :сп (выдает случайным образом выбранный элемент из списка)] конец

Задача 2-2. Ломаная линия

Напишите программу, которая рисует ломаную линию (значения длин звеньев и углов поворота черепашки берет из списков (1 список — длины звеньев ломаной линии (от 10 до 50), 2 список — величины углов (от 0 до 180)).

Решение: это задача2

пусть "дл [15 30 5 25 40] пусть "уг [120 30 28 170 30] пусть "и 1 по

всегда [

вп элемент :и :дл пр элемент :и :уг

если (последний :дл) = (элемент :и :дл)

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

конец

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

покажи [Сначала определяем два списка "длины, "углы] покажи [Затем переменную "х, которой присваиваем значение 1] покажи [Затем открываем цикл]

покажи [Перемещаем черепашку вперед на значение элемента №х из списка "длины] покажи [Поворачиваем черепашку вправо на значение элемента №х из списка "углы] покажи [Анализируем является элемент "х из списка "длины последним] покажи [Прибавляем к переменной "х единицу и закрываем цикл] конец

Задача 2-3. Среднее арифметическое элементов списка

Напишите процедуру, которая считает среднее арифметическое элементов списка "сп (среднее арифметическое — это сумма элементов списка, деленная на количество элементов). Содержимое списка и значение среднего арифметического выводится в текстовое окно «результат».

[автостоп]

"сум :сум + элемент :х :сп

Решение: это среднее_арифметическое пусть "сп [ 1 4 6 3 7 3] пусть "сум 0 пусть "х 1

повтори сколько :сп [пусть пусть "х :х + 1] пусть "ср :сум / сколько :сп

результат, ст вставь [Элементы списка - ] пиши :сп вставь [Среднее арифметическое конец

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

покажи [Сначала определяем списка "сп с числами] покажи [Затем переменную "сум, которой присваиваем значение 0] покажи [Затем переменную "х, которой присваиваем значение 1] покажи [Затем открываем цикл]

- ] пиши :ср

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

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

то останавливаем цикл (команда - стоп)] покажи [Определяем переменную "ср, которой присваем значение рассчитанной суммы,

делённой на количество элементов в списке]

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

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

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

Процедура 1 — «Получи_задание». В ней определяется два списка Один с правильно написанными словами, например — [молоко корова собака]. Другой — с пропущенными буквами [м_л_ко к_р_ва с_бака]. Второй список выводится в текстовое окно «результат».

Процедура 2 — «проверка». В ней сравнивается содержимое тестового окна (после выполнения задания) с содержимым первого списка. В случае, если значение списков совпадают, выдается сообщение «Все правильно». В противном случае выдается сообщение «Вы ошиблись».

Подсказка: Используйте команды равны?, разбери.

Решение: это получи_задание пусть "сп1 [молоко корова собака] пусть "сп2 [м_л_ко к_р_ва с_бака] результат, ст вставь :сп2 конец

это проверка

пусть "сс разбери результат если_иначе равны? :сп1 :сс [сообщи [все правильно] ] [сообщи [вы ошиблись]] конец

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

покажи [В текстовом окне результат информация находится в покажи [Для преобразования символов в список используется

конец

виде цепочки символов.]

команда разбери.

(пусть "ссс разбери результат)]

ПРОГРАММИРОВАНИЕ СПИСКОВ № 3

Задача 3-1. Гласные и согласные буквы русского алфавита

Напишите процедуру, которая пишет в текстовом окне все буквы русского алфавита. Гласные буквы пишет красным цветом, согласные — синим.

Решение: это задача№1

пусть "гласные [ а е ё и о у ы э ю я]

пусть "алф [а б в г д е ё ж з и к л м н о п р с т у

пусть "а 1

алфавит, ст

всегда [

х ц ч ш щ ь ы ъ э ю я]

пусть "Б элемент :а :алф

если_иначе входит? :Б :гласные [нцт 15] [нцт 105] алфавит, вставь :Б пусть "а :а + 1

если :а > сколько :алф [автостоп] ]

конец

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

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

и присвойте ей значение 1]

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

покажи [5) определите переменную "БУК, которая будет равна элементу №х из списка "алф] покажи [6) проанализируйте входит ли эта переменна в список "глас. Если "ДА,

то определите цвет текста 15 (красный), если "НЕТ, то цвет текста 105 (синий).] покажи [7) в тестовое окно "алфавит выведите значение переменной "БУК.

Используйте команду вставь.] покажи [8) Не забудьте к переменной "а прибавить единицу и проанализировать

iНе можете найти то, что вам нужно? Попробуйте сервис подбора литературы.

кол-во элементов в списке "алф для завершения цикла]

конец

Задача 3-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] результат, ст вставь [Элементы списка - ] пиши :сп вставь [Сумма квадратов элементов

списка - ] пиши :сумкв

конец

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

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

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

покажи [3) Затем запрашиваем количество элементов в списке]

покажи [4) Затем определяем переменную "к_эл (количество элементов),

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

Эта переменная - счетчик элементов в списке.]

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

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

помноженное на само себя]

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

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

Если "Да, то останавливаем цикл (команда - автостоп)] покажи [7) Выводим результат в текстовое окно] конец

Задача 3-4. Подсчет количества четных чисел в списке

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

Решение: это четные_числа

пусть "сп [24 25 34 33 45 67 78 87 65] пусть "и 1 пусть «к_чет 0 повтори сколько :сп [

если (остаток (элемент :и :сп) 2) = 0 [пусть "к_чет :к_чет + 1]

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

результат, ст вставь [Элементы списка -] пиши :сп вставь [Четных элементов в списке -] пиши :к_чет конец

ПРОГРАММИРОВАНИЕ СПИСКОВ № 4

Задача 4-1. Перевод десятичных чисел в двоичные

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

Подсказка: Обязательно сделайте контроль вводимого пользователем числа.

Решение: это десять-два двоичное, ст

спроси [Введите любое десятчное число] пусть "ч ответ

если не число? :ч [сообщи [вводите только числа] стоп] десятичное, ст вставь :ч всегда [

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

если :ч = 0 [автостоп] ]

конец

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

Запрос десятичного числа у пользователя ]

определите переменную "ч, в которое поместите введенное число] Проанализируйте введенные символы, если введено не число, то выдайте сообщение "Вводите только числа!". Остановите выполнение процедуры.] откройте цикл]

определите переменную "ост, которая будет равна остатку деления переменной "ч

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

(примитив Лого: целое - смотри Словарь)] в тестовое окно "двоичное выведите значение переменной "о.

Используйте команду вставь. ]

Курсор верните назад на 1 позицию] проанализируйте равна ли переменная "ч 0 для завершения цикла]

покажи [1

покажи [2

покажи [3

покажи [4

покажи [5

покажи [6

покажи [7

покажи [8

покажи [9

конец

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

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

Решение: это два-десять десятичное, ст пусть "чдв двоичное пусть "х 0 ,'счетчик шагов в цикле пусть "чисдес 0 /десятичное число

пусть "с сколько :чдв ;кол-во знаков в двоичном числе повтори :с [

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

пусть "чисдес :чисдес +

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

(степень 2 :х) * :эл

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

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

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

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

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

и присвойте ей значение 0] покажи [4) Определите переменную "с равную количеству элементов в «чдв] покажи [5) Затем откройте цикл (количество повторений известно,

поэтому рациональнее использовать команду Лого повтори] покажи [6) Определите переменную «эл, которая равна значению элемента № (:с - :х) из "чдв] покажи [7) Проанализируйте: если :эл больше 1, то введенное число - не двоичное

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

умноженное на 2 в степени :х]

iНе можете найти то, что вам нужно? Попробуйте сервис подбора литературы.

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

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

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

Решение: это восемь-десять пусть "ч восьмеричное десятичное, ст пусть "х 0 пусть "чис 0 пусть "с сколько :ч повтори :с [

пусть "эл элемент (:с - :х) :ч

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

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

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

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

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

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

Решение: это восемь-два

пусть "8-ич [ 0 1 2 3 4 5 6 7] пусть "2-ич [000 001 010 011 100 101 110 111] двоичное, ст пусть "ч восьмеричное пусть "х 1

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

двоичное,

если (сколько :т) = 2 [вставь "0] если (сколько :т) = 1 [вставь "«00] вставь :т вставь символ 32

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

конец

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

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

ДОПОЛНИТЕЛЬНЫЕ ЗАДАЧИ ПО ТЕМЕ «ПРОГРАММИРОВАНИЕ СПИСКОВ»

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

Дано два списка. Первый — список имен всех мальчиков в классе. Второй — список имен всех девочек в классе. Составить третий список, содержащий имена всех учеников класса.

Решение: это класс

пусть "девочки [Вика Майя Оля Сабина] пусть "мальчики [Антон Игорь Илья Паша Рома Миша] пусть "весь_класс предложение :список1 :список2 результат, ст вставь :весь_класс конец

Задача 2. Косим траву

Создайте небольшую игру — по листу проекта перемещается коса (следует за указателем мыши) и скашивает ближайшие травинки (черепашки меняют форму).

Решение: это коси_коса

пусть "черепашки [цв1 цв2 цв3 цв4 цв5 цв6 цв7 цв8 цв9 цв10 ] пусть "граница 50 всегда [

коса, нм мм

перебор [к :черепашки ] [для :к если (путь "коса) < :граница [для :к нф 13]]

]

конец

это вернуть

перебор [к :черепашки] [для :к нф 7] конец

Задача 3. Косим новую траву

Создайте небольшую игру — в поле вырастает трава (появляются новые черепашки, случайным образом располагаются на листе проекта), затем появляется коса (следует за указателем мыши) и скашивает ближайшие травинки (черепашки меняют форму). Подсказка: Для получения имени новой черепашки используй команду Лого слово.

Решение: это коси_коса2

пусть "черепашки [ ] ; список черепашек пусть "граница 50 ; расстояние от косы до травы пусть "и 1 ;счетчик травинок повтори 10 [

пусть "ич слово "цв :и нч :ич /сначала создается имя черепашки

;- склеиваются буквы цв и число от 1-го до 10-ти. нов_х (-200 + сл 400) нов_у (-100 + сл 150) нф 7 пч ; черепашка перемещается на

/случайное место, меняет форму и показывается пусть "черепашки вксп :ич :черепашки ; имя черепашки заносится в список

пусть "и :и + 1

]

всегда [

коса, нм мм

перебор [к :черепашки ] [для :к если (путь "коса) < :граница [для :к нф 13]]

]

конец

это вернуть2

перебор [к :черепашки] [удали :к ] конец

Задача 4. Ищем ближайший цветок (поиск минимального элемента списка)

Создайте небольшую игру — пчелка летит к ближайшему цветку и садится на него

Решение: это полет_пчелы

пусть "черепашки [цв1 цв2 цв3 цв4 цв5 цв6 цв7 цв8 цв9 цв10 ] пусть "расст [ ] ; расстояние от пчелы до цветов

перебор [к :черепашки ] [для :к пусть "расст вксп (целое путь "пчелка) :расст ] /заполняется

; список расстояний от пчелы до цветов пусть "ном_ближ_ч 1 ;номер ближайшего цветка - 1 (пока)

пусть "ближ_р элемент 1 : расст ;за минимальное расстояние берется расстояние до первого цветка цв1. пусть "и 1

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

если (элемент :и :расст) < :ближ_р [пусть "ближ_р (элемент :и :расст) пусть "ном_ближ_ч :и ] пусть "и :и + 1

]

пчелка, курс_на (элемент :ном_ближ_ч : черепашки) плавно :ближ_р 1 ; пчела лети к ближайшему цветку конец

Задача 5. Облетаем все цветы (поиск минимального элемента списка)

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

Решение: это полет_пчелы2

пусть "черепашки [цв1 цв2 цв3 цв4 цв5 цв6 цв7 цв8 цв9 цв10 ] пусть "посещ_цветы [ ] ; список черепашек, которые пчелка уже посетила

повтори сколько :черепашки [

пусть "расст [ ] ; расстояние от пчелы до цветов

перебор [к :черепашки ] [для :к если_иначе не входит? :к :посещ_цветы [пусть "расст вксп (целое путь "пчелка) :расст ]

[пусть "расст вксп 1000 :расст] ;если цветок уже посещался пчелкой,

;то расстояние до него приравниваем 1000, ;чтобы этот цветок гаранитрованно ;не оказался ближайшим ] ;заполняется список расстояний от пчелы до цветов

пусть "ном_ближ_ч 1 ;номер ближайшего цветка - 1 (пока)

пусть "ближ_р элемент 1 :расст ;за минимальное расстояние берется расстояние

;до первого цветка цв1.

пусть "и 1

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

если (элемент :и :расст) < :ближ_р [пусть «ближ_р (элемент :и :расст) пусть "ном_ближ_ч :и ] пусть "и :и + 1

]

пчелка, курс_на (элемент :ном_ближ_ч : черепашки) плавно :ближ_р 1 ; пчела лети к ближайшему цветку пусть "посещ_цветы вксп (элемент :ном_ближ_ч :черепашки) :посещ_цветы ;пополняется список

;посещенных цветов

]

конец

Задача 6. Строим мальчиков по росту (сортировка элементов списка)

Создайте небольшую игру — на поле появляются 10 игроков разного роста, затем по команде они строятся по росту.

Решение: это команда-на-поле пусть "сп_чер [ ] пусть "сп_рост []

много_раз [к 10] [ пусть "имя_ч (слово "игрок :к ) пусть "сп_чер вксп :имя_ч :сп_чер нч :имя_ч нов_х -200 + сл 400 нов_у -100 + сл 150 нф 41 пусть "раз_чер (20 + сл 20) нрз :раз_чер пч

макси ;ищем максимальный элемент в списке ростов. пусть "сп_рост_сорт вксп :мак :сп_рост_сорт пусть "сп_чер_сорт вксп (элемент :№!мак :сп_чер ) :сп_чер_сорт повтори :^!мак [пусть "сп_рост вксп ( элемент 1 :сп_рост) :сп_рост

пусть "сп_рост кпрв :сп_рост]

пусть "сп_рост кпсл :сп_рост повтори :№мак [пусть "сп_чер вксп ( элемент 1 :сп_чер) :сп_чер пусть "сп_чер кпрв :сп_чер]

пусть "сп_чер кпсл :сп_чер ]

пусть "х1 -200

перебор [к :сп_чер_сорт] [для :к нов_у -100 нов_х :х1 пусть "х1 :х1 + 35 жди 3]

конец

это макси

пусть "мак элемент 1 :сп_рост пусть "№!мак 1 пусть "и 1 повтори сколько :сп_рост [

если :мак < ( элемент :и :сп_рост) [ пусть "мак ( элемент :и :сп_рост) пусть "№!мак :и]

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

конец

это вернутьб

перебор [к :сп_чер_сорт][удали :к] конец

iНе можете найти то, что вам нужно? Попробуйте сервис подбора литературы.

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

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

Решение: это счастливый_билет счастливые_номера, ст пусть "х 1000 пусть "к 0

повтори 9999 - 1000 [

если (элемент 1 :х) + (элемент 2 :х) = (элемент 3 :х) + (элемент 4 :х)

[пусть "к :к + 1 счастливые_номера, вставь :х вставь символ 32]

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

вставь "всего- вставь :к вставь "счастливых_номеров конец

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

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

Решение: это перевёртыш слово!, ст !оволс, ст спроси [напиши любое слово !] пусть "ааа ответ слово!, вставь :ааа пусть "х сколько :ааа всегда [

!оволс, вставь элемент :х :ааа пусть "х :х - 1

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

конец

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

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

Решение: это пирамида пирамидка, ст

спроси [напиши любое слово !] пусть "ккк ответ пусть "х сколько :ккк всегда [

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

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

конец

Задача 10. Да и нет не говорить ...

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

Решение: это старт!!! пусть "х 1

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

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

[ в каком платье / костюме ты будешь на свадьбе ? ]

]

пусть "реплика [

[молодец !]

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

]

всегда [

спроси элемент :х :вопрос пусть "х :х + 1

если входит? ответ :зс [сообщи[извини, но ты не справился , пока !]автостоп] сообщи элемент (1 + сл 5) :реплика

если :х > б [сообщи [молодец ! ты справился с заданием , пока !] автостоп] ]

конец

© Наши авторы, 2004. Our authors, 2004.

Волкова Ризида Анверовна, руководитель группы информационных технологий общеобразовательного учебного заведения Тольяттинской академии управления.

i Надоели баннеры? Вы всегда можете отключить рекламу.