Функция определяющая может ли быть построен треугольник - VB

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

Всем привет! Помогите плиз с задачей, нужно создать функцию которая определяет может ли быть построен треугольник из данных отрезков и дает словесную характеристику треугольнику: равнобедренный, равностороннии и пр.

Код к задаче: «Функция определяющая может ли быть построен треугольник - 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

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

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

15   голосов, оценка 3.867 из 5


СОХРАНИТЬ ССЫЛКУ