Структура развилка / Лр Развилка (5)

Private Sub Command1_Click()

Dim F As Single, x As Single, d As Single

x = InputBox("Введите x")

If x < 0 Then

d = 4.1 ^ (x + 0.6)

Else

If x > 0 Then

d = Log(x) / Log(10)

Else

d = InputBox("Введите d")

End If

End If

F = d + x ^ 5

Print "F = " & F & "; d = " & d & "; x = " & x

End Sub

Private Sub Command1_Click()

Dim Y As Single, x As Single

x = InputBox("Введите x")

If x < 0 Then

Y = Sqr(Abs(x))

Else

Y = Abs(x)

End If

Print "Y = " & Y & "; x = " & x

End Sub