Структура следование / 13
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«Петербургский государственный университет путей сообщения
Императора Александра I»
(ФГБОУ ВО ПГУПС)
Кафедра «Информационные и вычислительные системы»
Дисциплина «Информатика»
О Т Ч Е Т о лабораторной работе № 2 на тему: «С Т Р У К Т У Р А С Л Е Д О В А Н И Е»
Вариант 13
Выполнил студент ____________
факультета
группы
Проверил ____________
Санкт-Петербург 20**
Задание №1
|
F = 5.5 * 10 ^ -1 n = 37E2 dh = 4.8E-5 |
|
a = 1 + b^2 y = Log(1 / Tan(x)) / Exp(x)
H = (b + Cos(x)) ^ (1 / 3) |
Задание №2
1. Постановка задачи.
1.1 Словесное описание задачи.
На высоте конуса, как на диаметре, описан шар. Найти объем части шара, заключенный внутри конуса, если высота конуса Н, а угол при вершине его осевого сечения равен 2L.
если Н = 10 см; L = 0,35 рад.
1.2 Состав входных и выходных переменных.
Входные переменные:
H – переменная вещественного типа,
L – переменная вещественного типа.
Выходные переменные:
V – переменная вещественного типа.
2. Математическая модель задачи.
3. Схема алгоритма.
4. Визуальная часть проекта.
5. Код программы.
Private Sub Command1_Click()
Dim H As Single, L As Single, V As Single
Const Pi As Single = 3.14
H = Val(Text1.Text)
L = Val(Text2.Text)
V = 1 / 6 * Pi * H ^ 3 * Sin(L) ^ 2 * (1 + Cos(L) ^ 2)
Text3.Text = Str(V)
End Sub
6. Отладка программы.