Выяснить существует ли треугольник с длинами сторон 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д