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