Содержание
Задача № 1.
Под кнопку на рабочем листе с номером варианта создать программу, которая запрашивает в окнах InputBox у пользователя данные, производит расчёт и выдаёт результат в MessageBox с поясняющими текстами, с единицами измерения, с пробелами между словами и числами, если необходимо в несколько строк. В вариантах предложены задачи на равномерное прямолинейное движение по формуле: l = v∙t,
где l — путь, v — скорость, t — время. Программа должна постоянно решать проблемы с единицами измерения, в которых заданы исходные данные и в которых требуется вывести результат.
Самолет пролетел расстояние l=9 тысяч километров за время t=7 часов 30 минут. Какова средняя скорость v самолета в метрах в секунду, в километрах в час?
Тест 1: l=9 тыс.км, t=7 час 30 мин, v≈333.3 м/с=1200 км/час.
Тест 2: l=4.2 тыс.км, t=3 час 20 мин, v=350 м/с=1260 км/час.
Текст программы:
Public Sub Bap_5_Задача_1()
Dim L As Single, t1 As Single, _
t2 As Single, t3 As Single, _
v1 As Single, V2 As Single
L = InputBox("Введи путь в км")
t1 = InputBox("Введите время: сколько часов")
t2 = InputBox("Введите время: сколько минут")
t3 = InputBox("Введите время: сколько секунд")
v1 = L / (t1 + t2 / 60 + t3 / 3600) * 1000 / 3600
V2 = L / (t1 + t2 / 60 + t3 / 3600)
MsgBox "Скорость самолета" & Chr(13) & v1 & _
"м/с. или " & V2 & "км/час.", , "Bap.5. Смирнова М.А."
End Sub
Результат теста 1
Результат теста 2
Задача № 2.
Составьте программу для расчета арендной платы Р на помещения в муниципальных зданиях г.Хабаровска с учётом износа и типа входа в сдаваемое помещение.
P=(S∙A)/t
где S — арендуемая площадь в кв.м, А — арендная плата за 1 кв.м., A=C∙K_v, где С — инвентаризационная стоимость 1 кв.м, Kv — коэффициент, учитывающий тип входа в сдаваемом помещении, t — коэффициент, учитывающий износ здания. Инвентаризационную стоимость 1 кв.м в рамках данной программы принять равной С = 100 руб.
Процент износа t
от 0 до 20 69,99
от 21 до 40 54,96
от 41 до 60 44,94
от 61 до 80 34,92
от 81 до 99 30,00
Тип входа Ку
Отдельный вход с улицы 1,00
Общий вход с улицы 0,92
Вход с торца 0,81
Вход со двора 0,75
Тест 1. Арендная плата за помещение площадью S=100 кв.м, со входом с торца и износом здания 25% составляет 147,38 руб.
Тест 2. Арендная плата за помещение площадью S=118 кв.м, с входом со двора и износом здания 15% составляет 126,45 руб.
Текст программы:
Public Sub UserForm_Initialize()
Тип_входа_Kv.AddItem "Отдельный вход с улицы"
Тип_входа_Kv.AddItem "Общий вход с улицы"
Тип_входа_Kv.AddItem "Вход с торца"
Тип_входа_Kv.AddItem "Вход со двора"
End Sub
Public Sub Кнопка_рассчета_Click()
Dim S As Single, C As Single, _
Kv As Single, t As Single, _
P As Single, t1 As Single
S = Площадь_S.Value
C = Инвентар_стоимость_C.Value
t = Процент_износа_t.Value
'Выбор коэффициента от процента износа здания'
If 0
Выдержка из текста
Задача № 1.
Под кнопку на рабочем листе с номером варианта создать программу, которая запрашивает в окнах InputBox у пользователя данные, производит расчёт и выдаёт результат в MessageBox с поясняющими текстами, с единицами измерения, с пробелами между словами и числами, если необходимо в несколько строк. В вариантах предложены задачи на равномерное прямолинейное движение по формуле: l = v∙t,
где l — путь, v — скорость, t — время. Программа должна постоянно решать проблемы с единицами измерения, в которых заданы исходные данные и в которых требуется вывести результат.
Самолет пролетел расстояние l=9 тысяч километров за время t=7 часов 30 минут. Какова средняя скорость v самолета в метрах в секунду, в километрах в час?
Список использованной литературы
Список литературы отсутствует, т.к. не требовался.