2.2. Код программы на языке VBA
Sub Task_2()
x = InputBox("Введите значение переменной X:", "Ввод значения переменной X", 2.32)
x = 2.32
y = InputBox("Введите значение переменной Y:", "Ввод значения переменной Y", -3.43)
y = -3.43
a = y ^ 2
a = x + a
a = Sin(a)
k = x + 1
k = Exp(k)
a = a + k
b = x - y
t = Abs(b)
b = Cos(b)
b = b + t
b = Sqr(b)
If a > b Then
m = a
Else
m = b
End If
Debug.Print "m="; FormatNumber(m, 2)
End Sub
2.3. Результат
m |
28,66 |