Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
В каждом варианте задания определить требуемые входные и выходные данные, для вычисления предложенных функций составить схемы алгоритмов и программы решения задач. Предусмотреть печать всех входных и выходных данных. Подготовить контрольные варианты, самостоятельно выбрать значение входных данных, отладить программы.
y = 0,75z +
Private Sub Command1_Click()
Dim Z As Double
Dim y As Double
Z = InputBox("Введите Z")
If Z > 0 Then
y = 0.75 * Z + 3.7 * Z
Else
If Z < -1 Then
y = 0.75 * Z + Z ^ 2
Else
y = 0.75 * Z - 1
End If
End If
Print "y=" & y
End Sub
q = где к =
Private Sub Command1_Click()
Dim t As Double
Dim q As Double
t = InputBox("Введите t")
k = Sqr(t)
If k > 2.7 Then
q = k ^ 0.5
Else
q = 11.5 * (k ^ 2) ^ (1 / 3)
End If
Print "q=" & qEnd Sub
X<-1
Y=0.75*Z+3.7*Z
Z>0
Конец
Y=0.75*Z+Z^2
Y=0.75*Z-1
Y
нет
нет
да
да
Начало
Начало
t
q
k>2.7
к =
да
нет
q=k^0.5
q=11.5*(k^2)^(1/3)
0
Начало
1
2
3
5
4
6
7
8
0
1
2
3
4
5
6
7