Старые отчёты / ФЫР / информатика!!!!!!!!! / Сева работа № 2
.doc
Задание №1
Словесное описание задачи.
Определение состава входных и выходных данных. Входные данные: - число x Выходные данные: - значение функции y
Математическое
описание.
Мелкумян С М. С-702 Структура «Развилка» Вариант№ 18
Р
0
3
4
6
1
Начало
y=2
x
y=Sin(x)
Конец
x<0
нет
да
y
8
5
9
x>=0 and x<=1
нет
да
7
y=1/(x-1)
азработка
схемы алгоритма.
Мелкумян С М. С-702 Структура «Развилка» Вариант№ 18
3 Разработка визуальной части.
4 Разработка кода приложения. Private Sub Command1_Click()
Dim x As Single, y As Single
x = Text1
If x < 0 Then
y = Sin(x)
MsgBox ("При x=" & x & " функция y=sin(x) равна " & y)
Else
If x >= 0 And x <= 1 Then
y = 2
MsgBox ("При x=" & x & " функция y равна " & y)
Else
y = 1 / (x - 1)
MsgBox ("При x=" & x & " функция y=1/(x-1) равна " & y)
End If
End If
End Sub Мелкумян С М. С-702 Структура «Развилка» Вариант№ 18
5 Отладочный
пример.
Мелкумян С М. С-702 Структура «Развилка» Вариант№ 18
Задание №2
Словесное описание задачи.
Определение состава входных и выходных данных. Входные данные: - число w Выходные данные: - значение функции z
Математическое
описание.
Мелкумян
С М. С-702 Структура «Развилка»
Вариант№ 18
Р
0
2
3
1
Начало
w
z=1+c^3
Конец
c<=4,5
нет
да
4
z
5
6
z=2^c-1
4
c=1,5w
-
Разработка визуальной части.
4 Разработка кода приложения. Private Sub Command1_Click()
Dim w As Single, c As Single, z As Single
w = Text1
c = 1.5 * w
If c < 4.5 Then
z = 1 + c ^ 3
MsgBox ("При c=" & c & " функция z=1+c^3 равна " & z)
Else
z = 2 ^ c - 1
MsgBox ("При c=" & c & " функция z=2^c-1 равна " & z)
End If
End Sub
Мелкумян С М. С-702 Структура «Развилка» Вариант№ 18
5 Отладочный
пример.
