Структура развилка
Автор: lift 1360 • Декабрь 3, 2023 • Лабораторная работа • 423 Слов (2 Страниц) • 101 Просмотры
Платонов Г.О., ЭС-305, Лабораторная работа №5 «Структура развилка»
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение
высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»
Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»
Дисциплина: «Информатика»
ОТЧЕТ
по лабораторной работе № 5
на тему:
«Структура развилка»
Вариант 18
Выполнил студент
факультета АИТ
группы ЭС-305 ____________ /Платонов Г.О.
123456 подпись, дата
/номер зачетной книжки /
Санкт-Петербург
2023
Оглавление
Постановка задачи №1 3
1.Решение задачи №1 3
1.1. Состав входных и выходных данных 3
1.2. Схема алгоритма решения задачи 3
1.3. Выполнение проекта 4
Постановка задачи №2 5
2.Решение задачи №2 5
2.1. Состав входных и выходных данных 5
2.2. Схема алгоритма решения задачи 5
2.3. Выполнение проекта 6
Постановка задачи №1
[pic 1]
1.Решение задачи №1
1.1. Состав входных и выходных данных
Входные данные:
х – переменная вещественного типа
а – переменная целого типа
Выходные данные:
f – переменная вещественного типа
1.2. Схема алгоритма решения задачи
[pic 2]
Код программы:
Private Sub CommandButton1_Click()
Dim a As Integer
Dim x As Single
Dim f As Single
Dim w1 As String, w2 As String, dt As String
a = Val(T1.Text)
x = Val(T2.Text)
If x <= 5.2 Then
f = a * Log(x)
Else
f = ((x) ^ (3)) + ((2.45) ^ (1 / 3))
End If
w1 = InputBox("Укажите учебную группу")
w2 = InputBox("Укажите ФИО")
dt = InputBox("Введите дату")
L3.Caption = "Результат: " + Str(f)
L4.Caption = "Исполнил студент группы: " + w1
...