Выяснить,существует ли треугольник с длинами сторон 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д