Если можно построить треугольник по данным трем отрезкам, то вычислить его периметр и площадь

@Svetik611 · Регистрация: 04.06.2013

Студворк — интернет-сервис помощи студентам

в Visual Basic

Ветвления
2.Даны длины трех отрезков a, b, c. Если можно построить треугольник по этим трем отрезкам, то вычислить его периметр и площадь.

@The trick · 04.06.2013, 18:25

Visual Basic

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

@Svetik611 0 / 0 / 0 Регистрация: 04.06.2013 Сообщений: 15
		1
	Если можно построить треугольник по данным трем отрезкам, то вычислить его периметр и площадь 04.06.2013, 15:38. Показов 3704. Ответов 1 Метки нет (Все метки) в Visual Basic Ветвления 2.Даны длины трех отрезков a, b, c. Если можно построить треугольник по этим трем отрезкам, то вычислить его периметр и площадь. 0

Опции темы

Если можно построить треугольник по данным трем отрезкам, то вычислить его периметр и площадь

Решение