Окно вида формы – Form Layout.. Отчет по лабораторной работе структура следование
Скачать 101.92 Kb.
|
МИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА Государственное бюджетное образовательное учреждение высшего образования «ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I» Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ» Дисциплина: «Информатика» ОТЧЕТ по лабораторной работе № «СТРУКТУРА СЛЕДОВАНИЕ» Вариант 24 Выполнил студент Доржбаяр Анударь Факультета УПЛ Группы УПК-206 Санкт-Петербург 2022 ЗАДАНИЕ 1. Постановка задачи Объем правильной четырехугольной пирамиды равен V. Боковые грани пирамиды наклонены к плоскости основания под углом φ. Определить полную поверхность пирамиды по формуле если V = 920 см3; φ = 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): |