Старые отчёты / ФЫР / информатика!!!!!!!!! / 2.20
.docМИНИСТЕРСТВО ПУТЕЙ СООБЩЕНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ
ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ
Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»
ОТЧЕТ
о выполненной лабораторной работе № 2
по дисциплине «Информатика»:
Структура «Развилка»
Вариант 20
Выполнил студент
Дневного отделения
Факультет ЭСУ
Группы
Санкт-Петербург
2004
Задание №1
1. Постановка задачи.
-
Словесное описание задачи.
-
Определение состава входных и выходных данных. Входные данные: - коэффициент l - аргумент x Выходные данные: - значение функции Y
-
Математическое описание.
-
Р
0
2
3
5
1
Начало
y=1
l, x
y=1/|x|
Конец
x<-1
нет
да
6
y
7
4
8
x>=-1 and x<=0
нет
да
y=ln(1+l^l)
азработка
схемы алгоритма.
3 Разработка
визуальной
части.
4 Разработка кода приложения. Private Sub Command1_Click()
Dim l As Single, x As Single, Y As Single
l = Text1
x = Text2
If x < -1 Then
Y = 1 / Abs(x)
MsgBox ("При x=" & x & " функция Y=1/|x| равна " & Y)
Else
If x >= -1 And x <= 0 Then
Y = 1
MsgBox ("При x=" & x & " функция Y равна " & Y)
Else
Y = Log(1 + l ^ l)
MsgBox ("При x=" & x & " Функция Y=ln(1+l^l) равна " & Y)
End If
End If
End Sub
5 Отладочный
пример.
Задание №2
1. Постановка задачи.
-
Словесное описание задачи.
-
Определение состава входных и выходных данных. Входные данные: - коэффициент d - коэффициент c Выходные данные: - значение функции R
-
Математическое описание.
-
Р
0
3
4
1
Начало
d, c
R=2,5a-11
Конец
a<=1,3
нет
да
5
R
6
7
R=lg a
a=d+3,5c
2
азработка схемы алгоритма.
3 Разработка
визуальной
части.
4 Разработка кода приложения. Private Sub Command1_Click()
Dim d As Single, c As Single, a As Single, R As Single
d = Text1
c = Text2
a = d + 3.5 * c
If a <= 1.3 Then
R = 2.5 * a - 11
MsgBox ("При a=" & a & " функция R=2,5a-11 равна " & R)
Else
R = Log(a) / Log(10)
MsgBox ("При a=" & a & " функция R=lg(a) равна " & R)
End If
End Sub
5 Отладочный
пример.
