Структура развилка / 28
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«Петербургский государственный университет путей сообщения
Императора Александра I»
(ФГБОУ ВО ПГУПС)
Кафедра «Информационные и вычислительные системы»
Дисциплина «Информатика»
ОТЧЕТ
о лабораторной работе № 2
на тему:
«С Т Р У К Т У Р А Р А З В И Л К А»
Вариант 28
Выполнил студент факультета ** группы ** |
_____________/**/ |
Проверил |
_____________/**/ |
Санкт-Петербург
20**
Задание №1
Постановка задачи:
Словестное описание задачи:
Вычислить по системе уравнений переменную F через переменные X, N и A.
Состав входных и выходных данных:
Входные данные:
N – переменная вещественного типа,
X – переменная вещественного типа,
A – переменная вещественного типа.
Выходные данные:
F – переменная вещественного типа.
Математическая модель задачи:
F =
нет
да
F
Конец
X≥0
Схема алгоритма:
Начало
x, n, a
Код приложения:
Private Sub Command1_Click()
Dim X As Single, F As Single, N As Single, A As Single
X = InputBox("Введите X", "Ввод переменных")
N = InputBox("Введите N", "Ввод переменных")
A = InputBox("Введите A", "Ввод переменных")
If X >= 0 Then
F = X ^ N + (Log(A)/log(10) ^ 5
Else
F = 1 / X
End If
Print " X=" & X & " A=" & A & " N=" & N & " F=" & Format(F, "#0.###")
End Sub
Отладка программы:
Задание №2
Постановка задачи:
Словестное описание задачи:
Вычислить по системе уравнений переменную Z через переменные X и Y.
Состав входных и выходных данных:
Входные данные:
Y – переменная вещественного типа,
X – переменная вещественного типа.
Выходные данные:
Z – переменная вещественного типа.
Математическая модель задачи:
Z =
нет
нет
Z=
да
Z
Конец
X<3Y
Z=
Z=
x, n, a
Схема алгоритма:
да
X=Y
Начало
Код приложения:
Private Sub Command1_Click()
Dim X As Single, Y As Single, Z As Single
Const Pi As Single = 3.14159
X = InputBox("Введите X", " Ввод переменных")
Y = InputBox("Введите Y", " Ввод переменных")
If X = Y Then
Z = 2 * X + Y ^ 1.2
Else
If X > 3 * Y Then
Z = -4 * Sin(Pi + X) + Y
Else
Z = X + Y ^ 4.2
End If
End If
Print " X=" & X & " Y=" & Y & " Z=" & Format(Z, "#0.###")
End Sub
Отладка программы: