Предмет: Информатика,
автор: anaTS
Даны действительные числа a, b ,c. Выяснить, существует ли треугольник с длинами сторон a,b,c. (В Visual Basic) Помогиитее! Пробовала так:
Private Sub CommandButton1_Click()
Dim a, b, c As Single
If (a < b + c) Then Yes
If b < a + c Then Yes
If c < a + b Then Yes
Но не знаю как закончить
Пожалуйста!
Ответы
Автор ответа:
1
Private Sub CommandButton1_Click()
Dim a, b, c As Single
If (a<b+c) and (b<a+c) and (c<a+b) Then
MsgBox "Yes"
Else
MsgBox "No"
End If
End Sub
Dim a, b, c As Single
If (a<b+c) and (b<a+c) and (c<a+b) Then
MsgBox "Yes"
Else
MsgBox "No"
End If
End Sub
Похожие вопросы
Предмет: Русский язык,
автор: ники225
Предмет: Українська мова,
автор: nastiacat20202034
Предмет: Другие предметы,
автор: zalina60
Предмет: Обществознание,
автор: sofalovewinx163
Предмет: Математика,
автор: AnnaGuzienko0709201
Dim a, b, c As Single
a = Val(InputBox("a ="))
b = Val(InputBox("b ="))
c = Val(InputBox("c ="))
tr = True
If a < b + c Then tr = False
If b < a + c Then tr = False
If c < a + b Then tr = False
If Not tr Then
End If
MsgBox "Такого треугольника не существует"
End Sub