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