Найти ошибку в вычислении выражения - VB

Узнай цену своей работы

Формулировка задачи:

Решение задачи: «Найти ошибку в вычислении выражения»

textual
Листинг программы
Sub Сергей()
Dim x As Single, y As Single, z As Single, f As Single, max As Single, min As Single
x = Val(InputBox(2))
y = Val(InputBox(6))
z = Val(InputBox(10))
 
      If x / 2 > y / 3 Then
       max = x / 2
      Else
       max = y / 3
       End If
 
    If z / 4 > max Then
      max = z / 4
    End If
    If x ^ 2 < y ^ 2 Then
     min = x ^ 2
    Else
      min = y ^ 2
    End If
 
 
 
MsgBox "f=min(x+y+z/2,x-y-z)+max(x^2,y^2,z^2)= " & Str(min) & " + " & Str(max) & " = " & Str(min + max)
 
End Sub

Оцени полезность:

7   голосов , оценка 3.571 из 5
Похожие ответы