Выяснить существует ли треугольник с длинами сторон x, y, z - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток! Помогите пожалуйста написать программку, функцию понимаю как надо писать, а вот язык новый, не знаю как в нем программировать! Даны действительные положительные числа x, y,z. Выяснить существует ли треугольник с длинами сторон x, y, z, если такой треугольник существует, то ответить является ли он остроугольным. Заранее спасибо!

Решение задачи: «Выяснить существует ли треугольник с длинами сторон x, y, z»

textual
Листинг программы
Private Sub Command1_Click()
Dim x!, y!, z!, m!
x = InputBox("x")
y = InputBox("y")
z = InputBox("z")
 
Dim a(1 To 3) As Single
a(1) = x: a(2) = y: a(3) = z
For i = 1 To 3
For j = 1 To 3
If a(i) < a(j) Then m = a(i): a(i) = a(j): a(j) = m
Next j
Next i
 
 
If a(1) + a(2) <= a(3) Then MsgBox "òðåóãîëüГ*ГЁГЄ Г*ГҐ Г±ГіГ№ГҐГ±ГІГўГіГҐГІ": Exit Sub
 
s = Sqr(a(1) ^ 2 + a(2) ^ 2)
 
If a(3) < s Then MsgBox "îñòðîóãîëüГ*ûé"
If a(3) = s Then MsgBox "ïðÿìîóãîëüГ*ûé"
If a(3) > s Then MsgBox "òóïîóãîëüГ*ûé"
 
End Sub

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


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

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

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