Структура следование / 24
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«Петербургский государственный университет путей сообщения
Императора Александра I»
(ФГБОУ ВО ПГУПС)
Кафедра «Информационные и вычислительные системы»
Дисциплина «Информатика»
О Т Ч Е Т о лабораторной работе № 1 на тему: «С Т Р У К Т У Р А С Л Е Д О В А Н И Е»
Вариант 24
Выполнил студент ____________
факультета
группы
Проверил ____________
Санкт-Петербург 20** г.
Задание №1
|
xr=-3.01 |
|
sigma=0.4E-12 |
|
f=143E6 |
|
c=0.267E-3*a |
|
l=0.3*a^3-b^a |
|
y=a*b*cos(x)/(a+b)+1 |
Задание №2
1. Постановка задачи.
1.1 Словесное описание задачи.
Две боковые грани треугольной пирамиды – прямоугольные равнобедренные треугольники, гипотенузы которых равны С и образуют между собой угол L. Найти объем пирамиды по формуле:
если С = 14 см; L = 0,65 рад.
1.2 Состав входных и выходных переменных.
Входные переменные:
C – переменная вещественного типа,
L – переменная вещественного типа.
Выходные переменные:
V – переменная вещественного типа.
2. Математическая модель задачи.
3. Схема алгоритма.
4. Визуальная часть проекта.
5. Код программы.
Private Sub Command1_Click()
Dim C As Single, L As Single, V As Single
L = Val(Text1.Text)
C = Val(Text2.Text)
V = 1 / 6 * C ^ 3 * Sin(L / 2) * Sqr(Cos(L))
Text3.Text = Str(V)
End Sub
6. Отладка программы