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

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

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

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

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.250 из 5


СОХРАНИТЬ ССЫЛКУ