Определить значение функции 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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