Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
PAGE 3
Кошко Д.А. ЛТ-403 16 вариант
Структура-развилка
7
5
Y
3
8
Y=exp(x)
0
6
4
2
1
Конец
Начало
да
нет
Y=x
x>0
X
Y
нет
да
5
Y=sqr(3*x+1)
3
x=0
x=1
4
Y=0
6
2
1
0
Начало
Конец
да
нет
Y=(1-x)*(1+x)
x<0
x
В каждом варианте задания определить требуемые входные и выходные данные, для вычисления предложенных функций составить схемы алгоритмов и программы решения задач. Предусмотреть печать всех входных и выходных данных. Подготовить контрольные варианты, самостоятельно выбрать значение входных данных, отладить программы.
(1 - x) (1 + x) , если x < 0
y = , если x = 0 или x = 1
0 , в остальных случаях
Private Sub Command1_Click()
Dim x As Single
Dim Y As Single
Const pi = 3.141596
x = InputBox("Введите X")
If x < 0 Then
Y = (1 - x) * (1 + x)
Else
If x = 0 And x = 1 Then
Y = Sqr(3 * x + 1)
Else
Y = 0
End If
End If
Print "Y=" & Y
End Sub
x , если x > 0
Y =
ex , если x 0
Private Sub Command1_Click()
Dim x As Single
Dim Y As Single
x = InputBox("Введите x")
If x > 0 Then
Y = x
Else
Y = Exp(x)
End If
Print "Y=" & Y
End Sub
5. Отладочный пример