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