Даны произвольные числа a,b,c.Сообщить можно ли постоить треугольник с такми длинами сторон - VB

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

Даны произвольные числа a,b,c.Сообщить можно ли постоить треугольник с такми длинами сторон, и если можно то вывести соответствующее сообщение в зависимости от того, равносторонний это треугольник,равнобедренный,или прямоугольный.... Нужен код, разработка окна приложения...,схема алгоритма...Спрасибо буду очень признателен если вышлете на мыло..(removed@mail.ru)

Решение задачи: «Даны произвольные числа a,b,c.Сообщить можно ли постоить треугольник с такми длинами сторон»

textual
                            Листинг программы 
                        

                            max = a
if b>max then max=b
if c>max then max=c
If a+b+c - max*2 > 0 then
  msgbox "Mojno"
else
  msgbox "Nelza"
end if
 
if a=b and a=b then msgbox "Ravnobedrenniy"
if a*a+b*b+c*c - 2*max*max = 0 then msgbox "Pramougol'niy"
if a=b or b=c or a=c then msgbox "Ravnostoronniy"
                        

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

8 голосов , оценка 4.25 из 5

Похожие ответы