Как заработать свои первые деньги?

Слушайте больше на Подкасте Михалыча для молодежи

это бабочка

пп

нм [05 -20] по нм [40 -50] нм [65 -40] нм [75 -10] нм [75 30]

нм [65 60] нм [45 70] нм [30 70] нм [05 25] нм [05 50]

нм [0 55] нм [10 70] нм [05 70] нм [05 75] нм [10 75]

нм [10 70] нм [0 55] нм [-10 70] нм [-05 70] нм [-05 75]

нм [-10 75] нм [-10 70] нм [0 50] нм [-05 50] нм [-05 25]

нм [-30 70] нм [-45 70] нм [-65 60] нм [-75 30] нм [-75 10]

нм [] нм [] нм [] нм [-05 55] нм [0 -60]

нм [05 55] нм [05 -20]

пп

конец

Задача9 Рисуем Буратино по координатам

Нарисовать Буратино по координатам (Вариант М5 В6)

(1,5; 3)

(5; 1)

(4,5; -2,5)

(6; -3)

(3; -3)

(4; -2,5)

(4; 0)

(2; -1)

(1,5; -0,5)

(2; 1)

(1; 0)

(1; 1)

(-3; 1)

(1; 2)

(1,5; 3)

(5; 7)

(5; 7,5)

(5,5; 7,5)

(5,5; 7)

(5; 7)

(5,5; 3,5)

(5; 11)

Г(2; 2)

Решение:

это буратино

пп нм [15 30] по нм [50 10] нм [45 -25] нм [60 -30] нм [30 -30]

нм [40 -25] нм [40 0] нм [20 -10] нм [15 -05] нм [20 10]

нм [10 0] нм [10 10] нм [-30 10] нм [10 20] нм [15 30]

нм [50 70] нм [50 75] нм [55 75] нм [55 70] нм [50 70]

нм [55 35] нм [50 10]

пп нм [20 20] по вп 2

конец

Задача10 Рисуем собаку по координатам

Нарисовать собаку по координатам (Вариант М5 В10)

(-1; 3)

(1; 1)

(1; -2)

(1,5; -2)

(2; -1,5)

(2,5; 1)

(4; 1)

(6; 0)

(6; -2)

(6,5; -2)

(7; -1,5)

(7,5; 0,5)

(7; 2)

(8,5; 3)

(8,5; 4,5)

(7; 5,5)

(6; 5,5)

(5; 5)

(6; 4,5)

(7; 4,5)

(7,5; 3,5)

(7; 3)

(2; 4)

(0; 6)

(0; 5)

(-1; 6)

(-1; 5)

(-2; 4)

(-3; 4)

(-3; 3,5)

(-2; 3)

(-1; 3)

Г(-1; 4)

Решение:

это собака

пп нм [-10 30] по нм [10 10] нм [10 -20] нм [15 -20] нм [20 -15]

нм [25 10] нм [40 10] нм [60 0] нм [60 -20] нм [65 -20]

нм [70 -15] нм [75 05] нм [70 20] нм [85 30] нм [85 45]

нм [70 55] нм [60 55] нм [50 50] нм [60 45] нм [70 45]

нм [75 35] нм [70 30] нм [20 40] нм [0 60] нм [0 50]

нм [-10 60] нм [-10 50] нм [-20 40] нм [-30 40]

нм [-30 35]

нм [-20 30] нм [-10 30]

пп нм [-10 40] по вп 2 пп

конец

Графика и переменные

Задача3 Рисуем спираль (рекурсия)

Нарисовать с помощью черепашки треугольную спираль

Решение:

это спираль "х

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

вп :х пр 120

спираль :х + 3

конец

Задача4 Рисуем дерево

Нарисовать с помощью черепашки дерево.

Решение:

это дерево "л "р

по

если :л < :р [стоп]

пр 45 вп :л

дерево :л / 2 :р

нд :л лв 45

лв 45 вп :л

дерево :л / 2 :р

нд :л пр 45

конец

Графическтие проекты

Задача1 Рисуем дворик с домиком

1.  Нарисуем домик из отдельных частей: Стена, крыша, окно, дверь.
Черепашку можно переставлять для рисования следующей детали. Не забудьте опускать и поднимать перо.
Для каждого элемента создайте отдельную процедуру СТЕНА, КРЫША, ОКНО, ДВЕРЬ.
Размер каждого элемента можно подобрать по своему вкусу, например: высота и ширина стены – 50, угол ската крыши – 45 и 135 градусов, высота и ширина окна – 20.

2.  Нарисуйте будку (маленький домик с отверстием). Для собачки можно использовать штамп.

3.  Нарисуйте забор. Забор состоит из досок. Создайте сначала процедуру ДОСКА, затем создайте процедуру ЗАБОР, которая рисует длинный забор (используй команду Лого – повтори Х [ ]).

4.  Создайте процедуру ЦВЕТОК, который рисует цветок. Нарисуйте много цветов, можно разного цвета.

5.  Создайте процедуруВЕТКА. Создайте процедуру ДЕРЕВО, в которой черепашка рисует дерево с 10 ветками. Черепашка поворачивается на 20 градусов.

6.  Добавьте по своему желанию другие элементы картинки.

Задачи с переменными (Тема - переменные и математические задачи)

Переменные №1

Задача1-1. Рассчет суммы двух чисел

Определите переменную Х равную 10. Определите переменную У равную 15. Рассчитайте переменную С равную сумме переменных Х и У. Результат вывести в текстовое окно Сумма_чисел

Решение:

это сложение

пусть “Х 10

пусть “У 15

пусть “C :Х + :У

Сумма_чисел, ст вставь :С

конец

Задача1-2. Рассчет квадрата числа 8.

Определите переменную Х равную 8. Выведите ее значение в текстовое окно Само_число. Рассчитайте переменную У равную произведению числа Х на число Х (квадрат числа). Результат вывести в текстовое окно Квадрат_числа.

Решение:

это расчет_квадрата_числа

пусть “Х 8

пусть “У :Х * :Х

Само_число, ст вставь :Х

Квадрат_числа, ст вставь :У

конец

Задача1-3. Расчет периметра квадрата.

Сторона квадрата равна 50. Рассчитайте значение периметра квадрата, выведите значение длины стороны и значение периметра в текстовые окна "длина_стороны и "периметр. Нарисуйте квадрат.

Решение:

это расчет__периметра_квадрата

пусть “сторона 50

пусть “перим :сторона * 4

длина_стороны, ст вставь :сторона

периметр, ст вставь :перим

конец

Задача1-4.Делим яблоки

В корзине 15 яблок. Надо разделить эти яблоки между 5 детьми. Решите задачу. Результат выведите в текстовое окно "яблоки_на_1.

Решение:

это яблоки

пусть “яб 15

пусть “дети 5

пусть “яб_на_1 :яб / :дети

яблоки_на_1, ст вставь :яб_на_1

конец

Переменные №2

Задача 2-1: Диаграмма роста

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

это столбик "х

нк 0 по

повтори 2 [

вп :х пр 90

вп 15 пр 90

]

пр 45 пп вп 5 нц сл 140 крась

нд 5 пр 45 вп 40

конец

Решение:

это задача1

столбик 136

столбик 142

столбик 154

конец

Задача 2-2: Расчет среднего роста

Напишите процедуру, которая считает средний рост для тех троих учеников, которых вы опросили для задачи№1. Посчитанное число вывести в текстовое окно ср_рост

Решение:

это рост

пусть "р1 136

пусть "р2 142

пусть "р3 154

пусть "ср (:р1 + :р2 + :р3) / 3

ср_рост, ст вставь :ср

конец

Задача 2-3: Суммарный возраст членов семьи.

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

Решение:

это семья

пусть "папа 42

пусть "мама 38

пусть "сын 12

пусть "дочь 8

пусть "сум_возр :папа + :мама + :сын + :дочь

возраст, вставь :сум_возр

столбик 42

столбик 38

столбик 12

столбик 8

конец

Переменные №3

Задача3-1. Рассчет длины отрезка


А

 
Дан отрезок АД длиной 140. На нем отмечены две точки Б и С. Известно, что длина АБ равна 20, длина СД равна 80. Рассчитайте длину отрезка БС. Результат выведите в текстовое окно длинаБС.

Решение:

это задача3

пусть ”АД 140

пусть ”АБ 20

пусть ”СД 80

пусть "БС :АД - :АБ - :СД

длинаБС, ст вставь :БС

конец

Задача 3-2. Рассчет периметра прямоугольника

Нарисуйте прямоугольник со сторонами 40 и 150.

Определите переменную п и присвойте ей значение равное периметру этого прямоугольника. Результат выведите в текстовое окно периметр.

Решение:

это задача2

пусть ”дл 150

пусть ”шир 40

по повтори 2 [вп :дл пр 90 вп :шир пр 90]

пусть ”пер (:дл + :шир) * 2

периметр, ст вставь :пер

конец

Задача 3-3. Расчет стороны прямоугольника по периметру и другой стороне.

Периметр прямоугольника равен 200. Длина одной стороны 40. Рассчитайте длину второй стороны, выведите значение длины в текстовое окно "длина_стороны и нарисуйте прямоугольник.

Решение:

это задача3

пусть ”дл1 40

пусть ”пер 200

пусть "дл2 (:пер / 2) - :дл1

повтори 2 [вп :дл1 пр 90 вп :дл2 пр 90]

длина_стороны, ст вставь :дл2

конец

Задача 3-4 Сравнение длины и ширины прямоугольника

Периметр прямоугольника равен 400. Длина одной стороны 50. Рассчитайте длину второй стороны (выведите в текстовое окно дл_стороны) и во сколько раз длина стороны больше его ширины(выведите в текстовое окно в_раз), и нарисуйте прямоугольник.

Решение:

это задача4

пусть ”дл1 50

пусть ”пер 400

пусть "дл2 (:пер / 2) - :дл1

повтори 2 [вп :дл1 пр 90 вп :дл2 пр 90]

дл_стороны, ст вставь :дл2

пусть “р :дл2 / :дл1

в_раз, ст вставь :р

конец

Переменные №4 дроби

Задача4-1. Рассчет 1/3 отрезка

Дан отрезок АВ длиной 300. Нарисуйте отрезок, составляющий 1/3 отрезка АВ. Значение длины второго отрезка выведи в текстовое окно.

это отрезокАВ

пп нм [-210 14] по

нк 0 вп 5 нд 10 вп 5

нк 90 по вп 300

нк 0 вп 5 нд 10 вп 5 пп

нм [-]

конец

Решение:

это задача1

пусть “АБ 300

пусть “СД :АБ * 1 / 3

пп нм [-210 0] по

нк 0 вп 5 нд 10 вп 5

нк 90 по вп :СД

нк 0 вп 5 нд 10 вп 5 пп

длина, ст вставь :СД

конец

Задача 4-2. Рассчет 3/7 от 7

Напишите процедуру, которая закрашивает красным цветом 3/7 от общего количества кубиков. Расстояние между кубиками - 30.

это кубики

нц 9 сг сч пп нм[-] повтори 7 [по повтори 4 [ вп 25 пр 90] пр 15 пп вп 5 нц 9 крась нд 5 лв 15 вп 30]

пр 90 вп 10 пр 90 пч

нц 15 вп 10

конец

Решение:

это задача2

пп повтори 3[ крась вп 30 ]

конец

Задача4-3. Рассчет 1/2

Напишите процедуру, которая закрашивает розовым цветом 1/2 от общего количества кубиков (6 штук). Расстояние между кубиками - 30.

это кубики2

нц 9 сг сч пп нм[-]

повтори 6 [по повтори 4 [ вп 25 пр 90] пр 15 пп вп 5 нц 9 крась нд 5 лв 15 вп 30]

пр 90 вп 10 пр 90 пч

нц 122 вп 10

конец

Решение:

это задача3

пусть “к 6 * 1 / 2

пп повтори :к [ крась вп 30 ]

конец

Задача4-4. Продолжительность жизни белки и зайца

Продолжительность жизни белки 6 лет, что составляет 3/5 продолжительности жизни зайца. Результат расчетов выведи в текстовые окна (заяц, белка). Пусть заяц и белка пробегут вперед расстояние, равное кол-ву лет умноженному на 10.

Решение

это задача4

пусть “жб 6

белка, ст вставь :жб

пусть "жз :жб / 3 * 5

заяц, ст вставь :жз

ззз, нк 90 по вп :жз * 10

ббб, нк 90 по вп :жб * 10

конец

Задача4-5 Высота Останкинской башни и Московского университета

Здание Московского университета имеет высоту 240м, и она составляет 4/9 высоты Останкинской башни. Чему равна высота башни?

Решение:

это задача5

пусть “ун 240

Университет, ст вставь :ун

пусть "баш :ун / 4 * 9

Башня, ст вставь :баш

конец

Переменные №5 углы

Задача5-1.Рисуем угол – 60 градусов

Определи переменную "у и присвой ей значение 60. Выведи значение переменной в текстовое окно "угол. Нарисуй угол, величина которого :у градусов.

Решение:

это задача1

пусть "у 60

пп нм [-] по

вп 100 пр (180 - :у) вп 100

угол, ст вставь 60

конец

Задача 5-2. Рисуем угол и его биссектрису

Нарисуй угол величиной 120 градусов (черным цветом №9). Дорисуй к этому углу биссектрису красным цветом (№15). В текстовое окно "Угол выведи значение угла.

Решение:

это задача2

пусть “уг 120

сг пп нм [-]

нц 9 по вп 100 пр (180 - :уг) вп 100 нд 100

пр (:уг / 2) нц 15 вп 100 пп

Угол, ст вставь :уг

конец

Задача 5-3. Рисуем любой угол

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

Решение:

это задача3

спроси [введи значение угла]

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

сг пп нм [-]

по вп 100 пр (180 - :у) вп 100

Угол, ст вставь :у

конец

Задача 5-4. Рисуем биссектрису любого угла

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

Решение:

это задача4

спроси [введи значение угла]

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

сг пп нм [-]

нц 9 по вп 100 пр (180 - :у) вп 100 нд 100

пр :у / 2 нц 15 вп 100 пп

Угол, ст вставь :у

конец

Переменные №6 для продвинутых

Задача6-1. Считаем сумму чисел

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

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

покажи [Для ввода значения слагаемого используй команду - спроси []]

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

покажи [Тоже самое сделай для переменной "сл2]

покажи [Определи переменную "с, равную сумме :сл1 и :сл2]

покажи [Выведи по очереди в текстовое окно "пример - :сл1, "+ :сл2, "=, :с (используй команду вставь [])]

конец

Решение:

это сум

пример, ст

спроси [введите первое слагаемое - ]

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

спроси [введите второе слагаемое - ]

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

пусть "с :сл1 + :сл2

вставь :сл1 вставь "+ вставь :сл2 вставь "= вставь :с

конец

Задача6-2. Считаем произведение чисел

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

Решение:

это произв

пример, ст

спроси [введите первый сомножитель - ]

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

спроси [введите второй сомножитель - ]

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

вставь :сл1 вставь "* вставь :сл2 вставь "= вставь :сл1 * :сл2

конец

Задача6-3. Сколько будет 5*6 (диалог)

Напишите процедуру, которая спрашивает "Сколько будет 5*6", анализирует введенное значение и сообщает молодец, если ответ верный, и Ха-ха-ха, если ответ ошибочный.

Решение:

это таблица1

спроси [5 * 6=?]

если_иначе ответ = 30 [сообщи [молодец] ] [сообщи[Ха-ха-ха]]

конец

Задача6-4. Сколько будет 5*6 текстовое окно

Напишите процедуру, которая спрашивает "Сколько будет 7*8", выводит в текстовое окно сам пример и решение, анализирует введенное значение пишет "YES, если ответ верный и "NO, если ответ ошибочный.

Решение:

это проверка

спроси [Сколько будет 7*8]

вставь [7 * 8 = ] вставь ответ

если_иначе ответ = 56 [вставь “YES ]
[вставь “NO]

конец

Задача6-5. Тест по таблице умножения

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

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

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

покажи [Для организации цикла используйте команду повтори 10 []]

покажи [Определите "с1 (пусть "с1 сл 10), также определите "с2 ]

покажи [В текстовое окно "пример выведите :с1, "*, :с2, "=]

покажи [Затем спросите [Чему равно?], ответ выведите в ТО]

покажи [Если ответ верный, в ТО выведите "YES, к переменной "оч прибавьте 1, и выведите значение переменной "оч в ТО "очки .]

покажи [Если ответ неверный, в ТО выведите "NO]

конец

это тест_по_таблице

пусть "оч 0

повтори 10 [

пусть "с1 сл 10

пусть "с2 сл 10

пример, ст вставь :с1 вставь "* вставь :с2 вставь "=

спроси [чему равно?]

вставь ответ

если_иначе ответ = :с2 * :с1

[вставь "YES пусть "оч :оч + 1 очки, ст вставь :оч]

[вставь "NO]

]

если :оч = 10 [сообщи [ты - отличник]]

если :оч < 5 [сообщи [ты - двоечник]]

если и :оч > 4 :оч < 7 [сообщи [ты - троечник]]

если и :оч > 6 :оч < 10 [сообщи [ты справился на 4]]

конец

Дополнительные задачи на тему Переменные

Задача1 Нахождение наибольшего общего делителя

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

Решение:

это задача

спроси [Введите первое число -]

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

спроси [Введите второе число -]

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

цикл [

если_иначе :а > :б

[пусть "а :а - :б]

[пусть "б :б - :а]

если :а = :б [стоп]]

вставь [Наибольший общий делитель для чисел -] вставь :а

конец

Задача2 Расчет весового коэффициента

Для того, чобы узнать нормальный у Вас вес или нет, нужно рассчитать весовой коэффициент. Он рассчитывается следующим образом – вес (кг) делится на квадрат роста (м). Если коэффициэнт меньше 20 – человек считается. Если коэффициэнт больше 25 – человек считается. Если коэффициэнт от 20 до 25 – человек считается нормальным.

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

Решение:

это расчет_коэффициента

спроси [Какой у тебя вес в кг?]

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

спроси [А рост в см?]

пусть "рост ответ / 100

пусть "коэф :вес / (:рост * :рост)

если :коэф < 20 [сообщи [Кто это там за леской спрятался? ] сообщи :коэф останов]

если :коэф > 25 [сообщи [надо ХУДЕТЬ!!!!!! ] сообщи :коэф останов]

сообщи :коэф сообщи [У тебя нормальный вес]

конец

Задача3 Расчет стоимости молока

В течении месяца продавец доставляет на дом 4 литра молока в день. В марте молоко стоило Х рублей за литр. В апреле молоко подорожало на А рублей за литр. Сколько надо заплатить за доставленное молоко продавцу в конце апреля? Количество покупаемого молока осталось прежним.

Решение:

это Молоко

пусть "Х 12 ;руб. - стоило молоко в марте

пусть "А 3 ;руб. - молоко стало дороже на эту сумму в апреле

пусть "км 4 ;литр - количество молока, доставляемого в день

пусть "д :км * 30 * (:Х + :А)

деньги, ст вставь :д вставь "рублей

конец

Задача4 Расчет времени бега

Мальчик может бегать в три раза быстрее, чем ходить. Скорость ходьбы равна 4 км/час. Он принял участие в марафонском беге (42 км), но сошел с дистанции, пробежав только Х км. Сколько времени он затратил на преодоление этого расстояния?

Решение:

пусть “сх 4 ;км/ч – скорость ходьбы мальчика

пусть “сб 4 * 3 ;км/ч – скорость бега мальчика

спроси [Сколько километров пробежал мальчик?]

пусть “Х ответ

пусть “время :Х / :сб

время_бега, вставь :время вставь “часов

конец

Задача5 Расчет Заработной платы

Работник зарабатывет Х руб за каждый из 38 часов своей работы. Ему платят в 1,5 раза больше за каждый час сверх 38 часов. Какую сумму он получит, если проработает А часов? (А должно быть заведомо больше 38)

Решение:

это Зарплата

спроси [Сколько часов проработали?]

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

пусть "х 50 ; руб.- оплата часов, проработанных по норме

пусть "н 38 ; ч.- норма часов работы в неделю

пусть "сн 50 * 1.5 ;оплата часов, проработанных сверх нормы

пусть "зп :н * :х + (:ч - :н) * :сн

получите, ст вставь :зп вставь "рублей

конец

Задача6 Круговая диаграмма – суша-океаны.

Поверхность земной суши составляет 149 млн. кв. км. Поверхность воды на земном шаре - 361 млн. кв. км. На круговой диаграмме изобразите соотношение земли и воды на земном шаре. Это должно выглядеть примерно так:

Решение:

это сектор "а ;Рисует сектор размером а градусов.

по

вп 114 пр 90

повтори :а [вп 2 пр 1]

пр 90 вп 114

конец

это океан-суша

сг

пусть “к 360 / (149 + 361)

сектор :к * 361

сектор :к * 149

конец

Задача7 Круговая диаграмма - площади океанов

Площадь Тихого океана - тыс. кв. км.

Площадь Атлантического океана -тыс. кв. км.

Площадь Индийского океана -тыс. кв. км.

Площадь Сев. Ледовитого океана - 14699 тыс. кв. км.

На круговой диаграмме изобразите соотношение площадей этих океанов. Это должно выглядеть примерно так:

Решение

это сектор "а ;Рисует сектор размером а градусов.

по

вп 114 пр 90

повтори :а [вп 2 пр 1]

пр 90 вп 114

пр 180

конец

это океаны

сг

пусть “к 360 / 361269 ;361269 – площадь всех океанов

сектор :к * 178684 ;Тихий океан

сектор :к * 91655 ;Атлантический океан

сектор :к * 76174 ;Индийский океан

сектор :к * 14756 ;Северно-Ледовитый океан

конец

Задача8 Столбчатая диаграмма - длины рек Амур, Волга, Урал, Дон, Нева.

Длина реки Амур км.

Длина реки Волга км.

Длина реки Урал км.

Длина реки Дон км.

Длина реки Нева - 74 км.

На столбчатой диаграмме изобразите соотношение длин этих рек. Это должно выглядеть примерно так:

Решение:

это столб "х ;процедура рисует столбики высотой х.

по нк 0 вп :х

нк 90 вп 20

нк 180 вп :х

нк 270 вп 20 пп

нд 40

конец

это Диаграмма

пусть “к 120 / 4444 ; расчет коэффициента масштабирования, 120 – максимальная высота столба.

столб 4444 * :к ;Амур

столб 3 531 * :к ;Волга

столб 2 428 * :к ;Урал

столб 1 870 * :к ;Дон

столб 74 * :к ;Нева

конец

Задача9 Столбчатая диаграмма – площади озер

Площадь озера „Каспийское море” - кв. км.

Площадь Ладожского озера -кв. км.

Площадь озера Байкал -кв. км.

Площадь озера Иссык-куль кв. км.

На столбчатой диаграмме изобразите соотношение площадей этих озер. Это должно выглядеть примерно так:

Решение:

это столб "х ;процедура рисует столбики высотой х.

по нк 0 вп :х

нк 90 вп 20

нк 180 вп :х

нк 270 вп 20 пп

нд 40

конец

это Диаграмма

пусть “к 120 / 3710 ; расчет коэффициента масштабирования, 120 – максимальная высота столба.

столб 3710 * :к ;Каспийское море

столб 177 * :к ;Ладожское

столб 315 * :к ;Байкал

столб 63 * :к ;Иссык-куль

конец

Задача 10 Расчет количества минут в месяце.

Рассчитать количество минут в текущем месяце. Результат вывести в новое текстовое окно. Затем текстовое окно удалить.

Решение:

это расчет_минут_в_месяц

спроси [сколько дней в месяце?]

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

если не число? Ответ [сообщи[ответ должен быть числом]останов] ;контроль на число

если :а > 31 [сообщи [число должно быть меньше] останов]

если :а < 28 [сообщи [число должно быть больше]останов]

пусть "в :а * 24 * 60

нт "кот [-] []

вставь [в этом месяце ] вставь символ 32

вставь :в вставь символ 32

вставь "минут жди 20

удали "кот

конец

Задача11 Перевод фунтов в граммы

Вывести в текстовое окно таблице перевода фунтов в граммы ( 1 фунт – 400 грамм)

Решение:

это перевод_в_граммы

фунт, ст ; фунт – текстовое окно

грамм, ст ; грамм - текстовое окно

название, ст пиши [таблица соответствия весов в фунтах и граммах]

пусть "а 0 ;а – переменная фунты

цикл [

пусть "а :а + 1 ;рассчитывает фунты

фунт, пиши :а ;вставляет фунты

пусть "в :а * 400 ;рассчитывает граммы

грамм, пиши :в ;пишет граммы

если :а = 10 [стоп] ;если к_во фунтов > 10 - выход из цикла

]

конец

Задача12 Расчет дневной выручки

Рассчитать стоимость проданных за день товаров в магазине

Решение:

Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 7

Курсовые