Даны числа a,x и y. Вычислить Z=a/(1+x+y)+x+y-max(a, x)/(a+x+y). visual basic - VB
Формулировка задачи:
помогите решить
Даны числа a,x и y. Вычислить Z=a/(1+x+y)+x+y-max(a, x)/(a+x+y). visual basic
Решение задачи: «Даны числа a,x и y. Вычислить Z=a/(1+x+y)+x+y-max(a, x)/(a+x+y). visual basic»
textual
Листинг программы
Function max(val1,val2)
If val1 >= val2 Then
max = val1
Else
max = val2
End If
End Function
Dim Z,a,y,x,str
a = InputBox("Введите a", 1)
x = InputBox("Введите x", 1)
y = InputBox("Введите y", 1)
Z = a/(1 + x + y) + x + y - max(a, x)/(a + x + y)
MsgBox "Z = " & Z & " ,где Z = a/(1 + x + y) + x + y - max(a, x)/(a + x + y)"