Федеральное агентство железнодорожного транспорта
Федеральное государственное бюджетное образовательное учреждение
высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ императора Александра I»
Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»
Дисциплина: «Информатика»
Отчёт
по лабораторной работе
на тему:
«Работа СТРУКТУРА РАЗВИЛКА»
Вариант 17
выполнил студент
факультета ТЭС
группы ПТМ-613 ___________Сызранов И.Ю.
подпись, дата
Санкт-Петербург
2016 г.
Постановка задачи №1
, если x => 0
y = , если x < 0
Определение состава входных и выходных данных
Входные данные
x - вещественное
Выходные
y - вещественное
Математическая модель
, если x => 0
y = , если x < 0
Блок-схема
1
начало
x
2
да
4
3
x => 0
НЕТ
5
y
6
7
конец
Пример выполнения:
Код программы
Private Sub Command1_Click()
Dim x As Single, y As Single
x = InputBox("x=")
If x=>0 Then
y = x^(1/3) + sin(x)
Else
y = Abs(x) + cos(x)^2
End If
Print “y =” & y
End Sub
Отладка
1)x = 3
2)x = -1
Постановка задачи №2
, если b < 10
y= , если b = 10
, если b > 10
Где: постоянная ; b - переменная целого типа
Определение состава входных и выходных данных
Входные данные
b-вещественное
Выходные
y-вещественное
, если b < 10
y= , если b = 10
, если b > 10
Где: постоянная ; b - переменная целого типа
Блок-схема
1
начало
b
2
3
да
нет
5
6
b < 10
4
да
нет
7
8
y
9
10
конец
Пример выполнения:
Код программы
Private Sub Command1_Click()
Dim y As Single, b As Single
Const pi = 3.14
b= InputBox("b=")
If b < 10 Then
y = (Sqr (b^2 + 1))^1.2
ElseIf b = 10 Then
y = (b^2 - 1)^(1/2) * sin(pi + b)
Else
y = log(10) * Log (b)
End If
Print "y=" & y
End Sub
Отладка
1)b = 4
2)b = 10
3)b = 12