ЛР №4
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ Императора Александра 1»
Кафедра «Информационные и вычислительные системы»
Отчет по лабораторной работе №4
Тема: Разработка и решение задач на ПК со структурой СЛЕДОВАНИЕ
Выполнил студент Факультета АИТ Группы АТ - 103 |
подпись |
Обухов Ю.А. |
Проверил профессор |
|
Дергачев А.И. |
Санкт-Петербург
2022
Вариант 18
Записать формулы в виде операторов присваивания
|
D1 = -32 * 2 ^ 5 |
|
Y = 1 / 5 |
|
L = 2.712828 |
|
H = (Sin(x) + 1) ^ (1 / 3) |
|
q = (c * d)(p * m * r) |
|
y = logn(2 / sqrt(4 * pi * x)) |
Словесное описание задачи
В правильной пирамиде двугранный угол при основании равен L. Боковая поверхность равна S. Найти расстояние от основания до боковой грани по формуле, если S = 100 см2; L = 0,85 рад.
Состав входных и выходных данных
Входные данные:
L – вещественное число
S – целое число
Выходные данные:
r – вещественное число
Математическое описание задач
Начало
Конец
L, S
Код приложения и отладочный пример
Private Sub CommandButton1_Click()
Dim S As Integer, l As Double, r As Double
S = Val(TextBox1.Text)
l = Val(TextBox2.Text)
r = (Sin(l) / 3) * (S * 3 ^ (1 / 2) * Cos(l)) ^ (1 / 2)
TextBox3.Text = Str(r)
End Sub
Рис. 1 Отладочный пример