Выяснить,существует ли треугольник с длинами сторон 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
Похожие ответы