Структура следование / Структура следование
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«Петербургский государственный университет путей сообщения
Императора Александра I»
(ФГБОУ ВО ПГУПС)
Кафедра «Информационные и вычислительные системы»
Дисциплина «Информатика»
О Т Ч Е Т о лабораторной работе № 1 на тему: «С Т Р У К Т У Р А С Л Е Д О В А Н И Е»
Выполнил студент
факультета
группы
_____________
Проверил _____________
Санкт-Петербург 20**
1.
|
m2p=22*10^2 |
|
h=-48.3 |
|
sigma=5E-4 |
|
y=d^(1/5) |
|
p=y^2+4*x/3 |
|
t=Abs(c+m)*Tan(c^2) |
2.1. Постановка задачи
2.1.1. Словесное описание задачи
Вычислить объём правильной треугольной пирамиды, зная, что плоский угол при вершине равен L, а радиус окружности, описанной около боковой грани, равен R.
если R=17 см; L=0,32 рад.
2.1.2. Состав входных и выходных переменных
Входные переменные: R – переменная вещественного типа, L – переменная вещественного типа.
Выходные переменные: V – переменная вещественного типа.
2.2. Математическая модель задачи
2.3. Схема алгоритма
2.4. Визуальная часть проекта
2.5. Код программы
Private Sub Command1_Click() Dim L As Single, R As Single, V As Single Const pi As Single = 3.14 L = Val(Text1.Text) R = Val(Text2.Text) V = 4 / 3 * R ^ 3 * Sin(L) ^ 2 * Cos(L / 2) * Sqr(Sin(pi / 3 + L / 3) * Sin(pi / 3 - L / 3)) Text3.Text = Str(V) End Sub
2.6. Отладка программы