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