окно вида формулы-Form Layout. Отчет по лабораторной работе 1 структура следование

• Название: Отчет по лабораторной работе 1 структура следование
• Анкор: окно вида формулы-Form Layout
• Дата: 24.10.2022
• Размер: 101.55 Kb.
• Имя файла: anuuuu.docx
• Тип: Отчет; #750785

МИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Государственное бюджетное образовательное учреждение

высшего образования

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»
Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»
Дисциплина: «Информатика»

ОТЧЕТ

по лабораторной работе № 1

«СТРУКТУРА СЛЕДОВАНИЕ»

Вариант 24

Выполнил студент

Факультета

Группы

Санкт-Петербург

2022

ЗАДАНИЕ
1. Постановка задачи
Объем правильной четырехугольной пирамиды равен V. Боковые грани пирамиды наклонены к плоскости основания под углом φ. Определить полную поверхность пирамиды по формуле



если V = 920 см³; φ = 0,76 рад.
Входные данные:

V– объем правильной четырехугольной пирамиды, переменная вещественного типа;

φ – угол наклона боковых граней пирамиды к плоскости основании, переменная вещественного типа.
Выходные данные:

S – полная поверхность пирамиды, переменная вещественного типа.
2. Математическая модель задачи


3. Разработка алгоритма


4. Разработка визуальной части проекта

5. Код приложения
' Вариант 1

Private Sub Command1_Click()

Dim v, phi, s As Double
' считывание данных

v = CDbl(txt_V)

phi = CDbl(txt_Phi)
' котангенс угла phi

ctg = Cos(phi) / Sin(phi)

' вычисление площади

s = 2 * (36 * v ^ 2 * ctg ^ 2) ^ (1 / 3) * Cos(phi / 2) ^ 2 / Cos(phi) ^ 2

' вывод S

txt_s = CStr(Round(s, 4))
End Sub
6. Отладка приложения

Ручной счет (MathCAD):