Старые отчёты / ФЫР / информатика!!!!!!!!! / 2.15
.docМИНИСТЕРСТВО ПУТЕЙ СООБЩЕНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ
ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ
Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»
ОТЧЕТ
о выполненной лабораторной работе № 2
по дисциплине «Информатика»:
Структура «Развилка»
Вариант 15
Выполнил студент
Дневного отделения
Факультет ЭСУ
Группы
Санкт-Петербург
2004
Задание №1
1. Постановка задачи.
-
Словесное описание задачи.
-
Определение состава входных и выходных данных. Входные данные: - число x Выходные данные: - значение функции F
-
Математическое описание.
-
Р
0
2
5
1
Начало
F=0
x
Конец
x<0
нет
да
6
F
7
4
8
x =>0 and <=pi
нет
да
F=sin(x)
F=exp(x)*sin(x)
3
pi=3.14
3
азработка
схемы алгоритма.
3 Разработка
визуальной части.
4 Разработка кода приложения. Private Sub Command1_Click()
Dim x As Single, F As Single
Const pi As Single = 3.14
x = Text1
If x < 0 Then
F = Exp(x) * Sin(x)
MsgBox ("F=" & F)
Else
If x >= 0 And x <= pi Then
F = 0
MsgBox ("F=" & F)
Else
F = Sin(x)
MsgBox ("F=" & F)
End If
End If
End Sub
5 Отладочный
пример.
Задание №2
1. Постановка задачи.
-
Словесное описание задачи.
-
Определение состава входных и выходных данных. Входные данные: - число x Выходные данные: - значение функций y1, y2
-
Математическое описание.
-
Р
0
2
3
1
Начало
x
y1, y2
Конец
x<=0
нет
да
4
y1, y2
6
7
y1=1/(100*tan(x))
5
y2=x^(1/5)
азработка
схемы алгоритма.
3 Разработка
визуальной части.
4 Разработка кода приложения. Private Sub Command1_Click()
Dim x As Single, y1 As Single, y2 As Single
x = Text1
If x <= 0 Then
y1 = InputBox("Введите y1")
y2 = InputBox("Введите y2")
MsgBox ("y1=" & y1 & " y2=" & y2)
Else
y1 = 1 / (100 * Tan(x))
y2 = x ^ (1 / 5)
MsgBox ("y1=" & y1 & " y2=" & y2)
End If
End Sub
5 Отладочный
пример.
