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