Если можно построить треугольник по данным трем отрезкам, то вычислить его периметр и площадь - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.818 из 5
Похожие ответы