Пример1

при >0.1

при ≤0.1

Программа на VBA:

Конструкция с Select case:

Sub Пример2_1()

Dim y As Single

Dim x As Single

Dim m As Single

Dim n As Single

Dim S As Single

x = InputBox("x=", "ввод x")

y = InputBox("y=", " ввод y")

m = (7.002 * 0.1 ^ (1 / 3) - 1 + x * (Exp(2) + Exp(-2)) / 10) ^ (1 / 5)

n = Log(3) * (Cos(Application.Pi() / 5) + Cos(3 * Application.Pi() / (5 * y)))

Select Case m ^ 2 + n ^ 2

Case Is > 0.1

S = Atn(5 * m ^ 2 + 7 * n ^ 2)

Case Else

S = Atn(5 * m ^ 2 - 7 * n ^ 2)

End Select

MsgBox ("S=") & S

End Sub

Конструкция IF..THEN…ELSE…END IF:

Sub Пример2_2()

Dim y As Single

Dim x As Single

Dim m As Single

Dim n As Single

Dim S As Single

x = InputBox("x=", " ввод x")

y = InputBox("y=", " ввод y")

m = (7.002 * 0.1 ^ (1 / 3) - 1 + x * (Exp(2) + Exp(-2)) / 10) ^ (1 / 5)

n = Log(3) * (Cos(Application.Pi() / 5) + Cos(3 * Application.Pi() / (5 * y)))

If m ^ 2 + n ^ 2 > 0.1 Then

S = Atn(5 * m ^ 2 + 7 * n ^ 2)

Else

S = Atn(5 * m ^ 2 - 7 * n ^ 2)

End If

MsgBox ("S=") & S

End Sub

Поиск по сайту: