Форум программистов [Powered by Invision Power Board]

Код
''' <summary>Находит ближайшее значение к заданному числу среди предложенных.</summary>
''' <returns>Ближайшее значение к <c>num</c> из массива <c>variants</c>.</returns>
''' <param name="num">Заданное число.</param>
''' <param name="variants">Массив возможных значений.</param>
Public Function FindClosest (num As Integer, variants As Integer()) As Integer
    variants.Sort ()
    Dim myIndex As Integer = variants.BinarySearch (num)
    If myIndex >= 0 Then ' точное совпадение
        Return variants(myIndex)        
    Else
        myIndex = Not (myIndex) ' получаем индекс ближайшего большего элемента
        If myIndex >= variants.Length Then ' больше самого большого
            Return variants(variants.Length - 1) ' возвращаем последнее допустимое значение
        Else ' где-то между двумя значениями
            Dim lesser As Integer = variants(myIndex - 1) ' предыдущее
            Dim greater As Integer = variants(myIndex) ' последующее
            Return Interaction.IIf (num - lesser < greater - num, lesser, greater) ' ближайшее
    End If
End Function

' ...

Dim values As Integer() = New Integer() {10, 15, 20, 25, 30}
Assert.AreEqual (FindClosest (3, values), 10)
Assert.AreEqual (FindClosest (11, values), 10)
Assert.AreEqual (FindClosest (14, values), 15)
Assert.AreEqual (FindClosest (17.5, values), 20) ' возвращает больший
Assert.AreEqual (FindClosest (39, values), 30)