Структура развилка / 3
.docxЗадание 1
1.1. Словесное описание задачи
1.2. Состав входных и выходных переменных
Входные данные:
x – переменная вещественного типа.
Выходные данные:
F – переменная вещественного типа.
2. Математическая модель
3.Схема алгоритма
4. Код программы
Private Sub Command1_Click()
Dim x As Single, y1 As Single, y2 As Single, F As Single
x = InputBox("Введите X")
If x < 0 Then
y1 = 3.1
y2 = 6.4 * x
Else
y1 = x ^ 2
y2 = 0
End If
F = 4.19 + y1 + y2
Print "F=" & F, "x=" & x
End Sub
5. Отладка программы
Задание 2
1.1. Словесное описание задачи
1.2. Состав входных и выходных переменных
Входные данные:
a – переменная вещественного типа,
x – переменная вещественного типа,
b – переменная вещественного типа,
Выходные данные:
y – переменная вещественного типа.
2. Математическая модель
3.Схема алгоритма
4. Код программы
Private Sub Command1_Click()
Dim x As Single
Dim a As Single
Dim b As Single
Dim Y As Single
a = InputBox("Введите a")
x = InputBox("Введите x")
b = InputBox("Введите b")
If a > 1 Then
Y = a + b * x
Else
If a = 1 Then
Y = a * Log(Abs(x))
Else
Y = 0
End If
End If
Print "Y=" & Y, "a=" & a, "b=" & b, "x=" & x
End Sub
5. Отладка программы