
ТЕКУЩИЙ КОНТРОЛЬ 1-й семестр (20 Вариант) / Лабораторная работа 02
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»
Кафедра «ИНФОРМАЦИОННЫХ И ВЫЧИСЛИТЕЛЬНЫХ СИСТЕМ»
Дисциплина: «Информатика»
ОТЧЕТ
по лабораторной работе № 2:
«СТРУКТУРА СЛЕДОВАНИЕ»
Вариант 20
Выполнила студентка
Факультета АСБ А.А. Сидорович
Группы АСБ -405-З подпись дата
/07-405-20-АСБз/
Санкт-Петербург
2025
Отчет по лабораторной работе № 2 Структура «Следование» Вариант 20 Обучающийся группы АСБ -405-З Сидорович А.А. 16.01.2025
1. Предложенные формулы записать в виде операторов присваивания. Числа представить в виде констант языка программирования, переменные по необходимости переобозначить.
2. Две боковые грани треугольной пирамиды – прямоугольные равнобедренные треугольники, гипотенузы которых равны С и образуют между собой угол L. Найти объем пирамиды по формуле:
,
если С = 14 см; L = 0,65 рад.
Задача 1
|
x = -3.01 sigma = 0.4e-12 f = 143000000
|
|
c = 0.267e-3 * a I = 0.3 * a * a - b * a y = (a * b * cos(x)) / (a + b) + 1 |
Отчет по лабораторной работе № 2 Структура «Следование» Вариант 20 Обучающийся группы АСБ -405-З Сидорович А.А. 16.01.2025
Задача 2
Словесное описание задачи:
Две боковые грани пирамиды – прямоугольные равнобедренные треугольники, гипотенузы которых равны C и образуют между собой угол L. Найти объём пирамиды по формуле:
если
Состав входных и выходных данных:
Входные данные: C – вещественное, гипотенузы треугольников L – вещественное, угол между треугольниками
Выходные данные: V – вещественное, объем пирамиды
Математическое описание задачи:
,


1
Схема алгоритма решения задачи:
2
4
5
3
Конец
Начало
V
,
C,L
Отчет по лабораторной работе № 2 Структура «Следование» Вариант 20 Обучающийся группы АСБ -405-З Сидорович А.А. 16.01.2025
5. Листинг кода программы:
Private Sub CommandButton1_Click()
Dim C As Single
Dim L As Single
Dim V As Single
C = Val(TextBox1.Text)
L = Val(TextBox2.Text)
V = 1 / 6 * C ^ 3 * Sin(L / 2) * Sqr(Cos(L))
TextBox3.Text = Str(V)
End Sub
Отладка программы:
Исходные данные: С=14см; L=0,65 рад