Главная страница
Навигация по странице:

  • ЗАДАНИЕ 1. Постановка задачи

  • Входные данные

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

  • 6. Отладка приложения Ручной счет

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


    Скачать 101.92 Kb.
    НазваниеОтчет по лабораторной работе структура следование
    АнкорОкно вида формы – Form Layout
    Дата30.10.2022
    Размер101.92 Kb.
    Формат файлаdocx
    Имя файлаanuuuu.docx
    ТипОтчет
    #762925

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

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

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

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

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

    ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА 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):



    написать администратору сайта