Как заработать свои первые деньги?
Слушайте больше на Подкасте Михалыча для молодежи
это бабочка
пп
нм [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. Рассчет длины отрезка

|
Решение:
это задача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 |


