• Даны действительные числа 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
    Но не знаю как закончить
    Пожалуйста!

Ответы 4

  • Private Sub CommandButton1_Click()Dim a, b, c As Singlea = Val(InputBox("a ="))b = Val(InputBox("b ="))c = Val(InputBox("c ="))tr = TrueIf a < b + c Then tr = FalseIf b < a + c Then tr = FalseIf c < a + b Then tr = FalseIf Not tr ThenEnd IfMsgBox "Такого треугольника не существует"End Sub
    • Автор:

      bram
    • 5 лет назад
    • 0
  • так неверно будет?
  • Вы попросили фрагмент программы - я написал. Комментарий служит только для уточнения ответа, а не для дополнительных вопросов.
    • Автор:

      prince18
    • 5 лет назад
    • 0
  • спасибо)
    • Автор:

      calvin365
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years