Функция определяющая может ли быть построен треугольник - VB
Формулировка задачи:
Всем привет!
Помогите плиз с задачей, нужно создать функцию которая определяет может ли быть построен треугольник из данных отрезков и дает словесную характеристику треугольнику: равнобедренный, равностороннии и пр.
Решение задачи: «Функция определяющая может ли быть построен треугольник»
textual
Листинг программы
Private Sub Command1_Click() Dim a As Double, b As Double, c As Double a = InputBox("a = ", "Ввод данных", 15) b = InputBox("b = ", "Ввод данных", 15) c = InputBox("c = ", "Ввод данных", 15) MsgBox Triangle(a, b, c) End Sub Function Triangle(ByVal a As Double, ByVal b As Double, ByVal c As Double) As String If a >= b + c Or b >= a + c Or c >= a + b Then Triangle = "Треугольник построить невозможно" Else Triangle = "Вожможно построить " & vbCrLf If a = b And b = c Then Triangle = Triangle & "равносторонний треугольник." ElseIf a = b Or b = c Or a = c Then Triangle = Triangle & "равнобедренный треугольник." Else Triangle = Triangle & "треугольник." End If End If End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д