Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
PAGE 3
В-407 Саламатов Е.И. 18 вариант
Структура-развилка
x<0
Z=x^(x+1)
0<x<5
x
онец
Z=0
Z=1+x
Z
нет
нет
да
да
Начало
Конец
x
F
x>5.2
да
нет
F=x*log(x)
F=x^3
0
Начало
1
2
3
5
4
6
7
8
0
1
2
4
3
5
6
В каждом варианте задания определить требуемые входные и выходные данные, для вычисления предложенных функций составить схемы алгоритмов и программы решения задач. Предусмотреть печать всех входных и выходных данных. Подготовить контрольные варианты, самостоятельно выбрать значение входных данных, отладить программы.
xx+1 , если 0 < x < 5
Z = 1 + x , если x < 0
0 в остальных случаях
Private Sub Command1_Click()
Dim x As Single
Dim Z As Single
x = InputBox("Введите x")
If x > 0 And x < 5 Then
Z = x ^ (x + 1)
Else
If x < 0 Then
Z = 1 + x
Else
Z = 0
End If
End If
Print "Z=" & Z
End Sub
x Lnx , если x > 5,2
F = x3 , если x 5,2
Private Sub Command1_Click()
Dim x As Single
Dim F As Single
x = InputBox("Введите x")
If x > 5.2 Then
F = x * Log(x)
Else
F = x ^ 3
End If
Print "F=" & F
End Sub