Даны три целых числа, найти среднее из них. - VB

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

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

ЗАДАНИЕ Даны три целых числа, найти среднее из них. Средним назовем число, которое больше наименьшего из данных чисел, но меньше наибольшего. Вроде не сложное, но у меня затруднения. Заранее благодарен.

Решение задачи: «Даны три целых числа, найти среднее из них.»

textual
Листинг программы
Function Med(a, b, c)
  Select Case -(a < b) - 2 * (a < c) - 4 * (b < c)
  Case 0, 7: Med = b
  Case 1, 6: Med = a
  Case 3, 4: Med = c 'можно Case Else, потому что вариантов 2, 5 не бывает никогда!
  End Select
End Function

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


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

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

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