Структура следование / 31
.docxМИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Государственное бюджетное образовательное учреждение
высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»
Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»
Дисциплина: «Информатика»
О Т Ч Е Т
по лабораторной работе №2
СТРУКТУРА СЛЕДОВАНИЕ
Вариант № 31
Выполнил студент:
Факультета
Группы:
Санкт-Петербург
20**
Задание №1
|
L = Atn(a / 2) * Cos(pi * (1 + x) / (a + x)) * 0.0237E4
|
|
d1 = -32 * 2 ^ 5 |
|
gamma = 1/5 |
|
z = Log(2 / (sqr(4 * pi * x))) |
|
F = q * Sin(Abs(a)) |
|
S = t ^ x + Exp(t ^ 2 + x) |
Задание №2
1. Постановка задачи
Входные данные: d1, d2, a – вещественного типа
Выходные данные: S – вещественного типа
2. Математическая модель:
3. Разработка алгоритма:
4. Разработка визуальной части проекта
5. Код приложения:
Private Sub Command1_Click()
Dim d1 As Single
Dim d2 As Single
Dim a As Single
Dim S As Single
Const pi As Single = 3.14
d1 = Val(Text1.Text)
d2 = Val(Text2.Text)
a = Val(Text3.Text)
a = a * pi / 180
S = 1 / 2 * d1 * d2 * Sin(a * 3.14 / 180)
Text4.Text = Str(S)
End Sub
6. Отладка приложения:
Ручной счёт:
При d1 = 45; d2 = 68; α = 125
S = 58,18