Старые отчёты / ФЫР / информатика!!!!!!!!! / 2.26
.docМИНИСТЕРСТВО ПУТЕЙ СООБЩЕНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ
ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ
Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»
ОТЧЕТ
о выполненной лабораторной работе № 2
по дисциплине «Информатика»:
Структура «Развилка»
Вариант 26
Выполнил студент
Дневного отделения
Факультет ЭСУ
Группы
Санкт-Петербург
2004
Задание №1
1. Постановка задачи.
-
Словесное описание задачи.
-
Определение состава входных и выходных данных. Входные данные: - число x Выходные данные: - значение функции F
-
Математическое описание.
-
Р
0
1
Начало
F=1
x
x>1
F=log(x)/log(10)
азработка
схемы алгоритма.
2
5
Конец
нет
да
6
F
7
4
8
x>=-1 and <=1
нет
да
F=abs(x^2-1)
3
3 Разработка
визуальной
части.
4 Разработка кода приложения. Private Sub Command1_Click()
Dim x As Single, F As Single
x = Text1
If x > 1 Then
F = Log(x) / Log(10)
MsgBox ("Так как x>0, то функция F=lg(x) равна " & F)
Else
If x >= -1 And x <= 1 Then
F = 1
MsgBox ("Так как -1<=x<=1, то функция F равна " & F)
Else
F = Abs(x ^ 2 - 1)
MsgBox ("Так как x<-1, то функция F=|x^2-1| равна " & F)
End If
End If
End Sub
5 Отладочный
пример.
Задание №2
1. Постановка задачи.
-
Словесное описание задачи.
-
Определение состава входных и выходных данных. Входные данные: - число t Выходные данные: - значение функции p1, p2
-
Математическое описание.
-
Р
0
2
6
1
Начало
p1=0
t
Конец
t>2
нет
да
4
p1, p2
8
5
t<1
нет
да
p2=24*t^2
p1=exp(t)
3
7
p2=0
азработка схемы алгоритма.
9
4 Разработка кода приложения. Private Sub Command1_Click()
Dim t As Single, p1 As Single, p2 As Single
t = Text1
If t > 2 Then
p1 = Exp(t)
p2 = 24 * t ^ 2
MsgBox ("Так как t>2, то p1=" & p1 & " p2=" & p2)
Else
If t < 1 Then
p1 = 0
p2 = 0
MsgBox ("Так как t<1, то p1=" & p1 & " p2=" & p2)
End If
End If
End Sub
5 Отладочный
пример.
