Если можно построить треугольник по данным трем отрезкам, то вычислить его периметр и площадь - VB
Формулировка задачи:
в Visual Basic
Ветвления
2.Даны длины трех отрезков a, b, c. Если можно построить треугольник по этим трем отрезкам, то вычислить его периметр и площадь.
Решение задачи: «Если можно построить треугольник по данным трем отрезкам, то вычислить его периметр и площадь»
textual
Листинг программы
Option Explicit
Private Sub Form_Load()
Dim a As Double, b As Double, c As Double, h As Double, p As Double, s As Double
a = CDbl(InputBox("a="))
b = CDbl(InputBox("b="))
c = CDbl(InputBox("c="))
If (a + b > c) And (b + c > a) And (a + c > b) Then
p = a + b + c: h = p / 2
s = Sqr(h * (h- a) * (h - b) * (h - c))
MsgBox "p=" & p & vbNewLine & "s=" & s
Else
MsgBox "Невозможно построить"
End If
End Sub