Написать программу вычисления z и y и составить блок схему - VB
Формулировка задачи:
написать программу вычисления z и y и составить блок схему
z=x^2 если x<=1
z=2+sqrtx если 1<x<=12
z=lnx если x>2
y=0.5x если x<=1
y=sqrtx если 1<x<=12
y=lgx если x>12
значение x задать вводом
условие через if, else
Решение задачи: «Написать программу вычисления z и y и составить блок схему»
textual
Листинг программы
Private Sub Command1_Click()
x = Val(InputBox("Введите Х", , 10))
If x <= 1 Then
z = x ^ 2
y = 0.5 * x
ElseIf x > 12 Then
z = Log(x)
y = Log(x) / Log(10)
Else
z = 2 + Sqr(x)
y = Sqr(x)
End If
MsgBox "y = " & y & vbCrLf & "z = " & z
End Sub