Выяснить,существует ли треугольник с длинами сторон x,y,z - VB

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

Даны три положительных вещественных числа x,y,z.Выяснить,существует ли треугольник с длинами сторон x,y,z.если треугольник существует,то определить,между какими из сторон расположен наибольший угол.эту задачу нужно решить двумя разными способами.

Решение задачи: «Выяснить,существует ли треугольник с длинами сторон x,y,z»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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
 
 
Public Sub k(a, b, c)
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
        MsgBox "Г±ГіГ№ГҐГ±ГІГўГіГҐГІ!"
    Else
        MsgBox "ГЌГ… Г±ГіГ№ГҐГ±ГІГўГіГҐГІ!"
    End If
Else
    MsgBox "ГЇГ«Г®ГµГ*Гї Г¤Г«ГЁГ*Г*Г* Г±ГІГ®Г°Г®Г*!"
End If
End Sub

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

12 голосов , оценка 3.75 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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