Структура следование / 18
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«Петербургский государственный университет путей сообщения
Императора Александра I»
(ФГБОУ ВО ПГУПС)
Кафедра «Информационные и вычислительные системы»
Дисциплина «Информатика»
ОТЧЕТ
о лабораторной работе № 1
на тему:
«С Т Р У К Т У Р А С Л Е Д О В А Н И Е»
Вариант 18
Выполнила студентка факультета группы Проверил |
_____________ _______________ |
Санкт-Петербург
20**
Задание №1
mt=1,507 |
mt=1.507 |
x2=8,3*10-9 |
x2=8.3*10^(-9) |
ξ=150000000 |
Xi=15E7 |
|
q=Sqr((a+b)/c) |
|
y=a*Sin(2*x) |
|
t=a/2*sqr(1/Cos(x)^2) |
Задание №2
Постановка задачи
Словесное описание задачи
Около конуса описана пирамида. Основанием пирамиды служит прямоугольный треугольник, один из острых углов которого равен L. Определить объём пирамиды, если известно, что радиус основания конуса равен r и образующая наклонена к плоскости основания под углом: если r=5; L=0,2 рад; β=0,8 рад.
Состав входных и выходных данных
Входные данные: r – переменная вещественного типа, L – переменная вещественного типа, Beta – переменная вещественного типа.
Выходные данные: V – переменная вещественного типа.
Математическая модель задачи
Схема алгоритма
Визуальная часть проекта
Код приложения Private Sub Command1_Click() Dim V As Single, Beta As Single, L As Single, r As Single Const Pi As Single = 3.14 r = Text1.Text L = Text2.Text Beta = Text3.Text V = 1 / 3 * r ^ 3 * Tan(Beta) * 1 / Tan(L / 2) * Tan(Pi / 4 + L / 2) Text4.Text = V End Sub
Отладка программы