Из круга какого наименьшего радиуса можно вырезать треугольник со сторонами А, В, С? - 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

Похожие ответы