Определить значение функции min - VB
Формулировка задачи:
Определить значение
? = min(a, 3b) * min(2a — b, 2b),
где min(a, b) есть минимальное из чисел a,b. При решении задачи определить и использовать функцию min.
Решение задачи: «Определить значение функции min»
textual
Листинг программы
Function min(a as integer, b as integer) as integer If (a < b) then min=a else min=b end if End Function Sub Main Dim a as integer Dim b as integer a=Val(InputBox("a=")) b=Val(InputBox("b=")) Debug.print min(a, 3*b) * min(2*a — b, 2*b) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д