Из круга какого наименьшего радиуса можно вырезать треугольник со сторонами А, В, С? - VB

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

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

Из круга какого наименьшего радиуса можно вырезать треугольник со сторонами А, В, С?

Решение задачи: «Из круга какого наименьшего радиуса можно вырезать треугольник со сторонами А, В, С?»

textual
Листинг программы
Function z(Optional a As Double = 1, Optional b As Double = 1, Optional c As Double = 1)
If a > 0 And b > 0 And c > 0 Then
    coa = (b ^ 2 + c ^ 2 - a ^ 2) / (2 * b * c)
    cob = (a ^ 2 + c ^ 2 - b ^ 2) / (2 * a * c)
    coc = (b ^ 2 + a ^ 2 - c ^ 2) / (2 * b * a)
    m = maxx(Abs(coa), Abs(cob), Abs(coc))
    If m < 1 Then
        If coa * cob * coc < 0 Then 'åñëè ГҐГ±ГІГј òóïîé óãîë ГІГ® îäèГ* ГЁГ§ êîñèГ*óñîâ îòðèöГ*ГІГҐГјГ«Г*ûé
        z = maxx(a, b, c) / 2
        Else
            p = (a + b + c) / 2 'polyperimetr
            S = Sqr(p * (p - a) * (p - b) * (p - c)) ' formula Gerona
            z = (a * b * c) / (4 * S) 'radius opisannoy okryzhnosti
        End If
    Else
        MsgBox "Г*ГҐ Г±ГіГ№ГҐГ±ГІГўГіГҐГІ!"
        z = False
    End If
Else
    MsgBox "ïëîõГ*Гї äëèГ*Г*Г* ñòîðîГ*!"
End If
End Function
 
Public Function maxx(a, b, c)
maxx = Switch(a >= b And a >= c, a, b >= a And b >= c, b, c >= b And c >= a, c)
End Function

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

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