Вычислить значение выражения - VB (59625)
Формулировка задачи:
Помогите пожалуйста оформить алгоритм в виде программного кода.
Решение задачи: «Вычислить значение выражения»
textual
Листинг программы
Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim Z As Single Dim min As Single, max As Single A = Val(InputBox("A=?")) B = Val(InputBox("B=?")) C = Val(InputBox("C=?")) If A + B - C >= 0 Then If A - 1 < B - C Then min = A - 1 Else min = B - C If A > C Then max = A Else max = C Z = min + max Else If A < B Then min = A Else min = B If min > C - 1 Then min = C - 1 Z = min + A ^ (3 / 2) End If MsgBox "Z(" & A & "," & B & "," & C & ")=" & Z End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д