Расчет площади, периметра и типа треугольника!

[Matrix6993]

Доброго всем вечера. У меня есть не большая проблемка. Я зашел в тупик. Я пишу программу "расчет площади, периметра и тип треугольника" на Delphi 7. У меня получилось реализовать программу только задействовав стороны треугольника, а вот с углами не получается все это связать. Надо каким то образом связать все эти 6 данных (3 угла, 3 стороны) из которых известными должны быть только 3. Проверить по трем известным данным треугольник на существование, если существует то расчитать периметр площадь и тип! Я в интернете нашел эту программу. Но я не понимаю как автор это смог реализовать.
Аналогичная програмка в интернете!!!
Помогите пожалуйста с програмкой! Заранее спасибо.

[Аватар]

Три угла треугольник не опредяляют, любые другие комбинации определяют

[Matrix6993]

Сообщение от Аватар

Три угла треугольник не опредяляют, любые другие комбинации определяют

Такие комбинации как: 2 стороны и 1 угол или 2 угла и 1 сторона, ну и все остальные возможные! Я это и имел ввиду!

[Аватар]

А геометрию взять класс за 8-ой?

[Matrix6993]

на врятли там написано как проверить на существование треугольника

[Matrix6993]

(a<b+c)and(b<a+c)and(c<a+b)
эти условия проверяют на существование треугольника по СТОРОНАМ, а надо еще что бы и по УГЛАМ! не думаю что это есть в учебниках геометрии!

[Аватар]

Matrix6993, теорема косинусов и немного логики для всех случаев

[Matrix6993]

помогите пожалуйста.(

[Matrix6993]

Народ Помогите связать углы и стороны в программе пожалуйста! (

[EridorBlade]

Пусть a1, b1, c1 переменные которым присваиваются три значения.
Если a1>b1+c1 или b1>a1+c1 или c1>a1+b1, то такого треугольника не существует
Если a1=b1=c1 тогда треугольник равносторонний,
P(периметр) = 3*a1; S(площадь) = a1*a1*sqrt(3)/4 где sqrt - квадратный корень
Alfa=Betta=Gamma
Если a1>b1 и a1>c1 тогда c:=a1; a=c1; b=b1;
Если b1>a1 и b1>c1 тогда c:=b1; a=a1; b=c1;
Если с1>a1 и с1>b1 тогда c:=c1; a=a1; b=b1;
Alfa:=ACos( (b*b+c*c-a*a) / (2*b*c) ); (ACos - это арккосинус, функция обратная косинусу)
Betta:=ACos( (a*a+c*c-b*b) / (2*a*c) );
Gamma:=pi-Alfa-Betta; - угол в радианах
Gamma:=Round ( (Gamma*180)/pi ); - угол в градусах округленный, чтобы проще было отловить значение
Если Gamma=90 тогда треугольник прямоугольный
P(периметр) = a+b+c;
S(площадь) = a*b/2
Если Gamma>90 тогда треугольник тупоугольный
P(периметр) = a+b+c;
S(площадь) = с*с* ( (Tan(Alfa)*Tan(Betta)) / (2* (Tan(Alfa)+Tan(Betta) ) ) );

Не исключаю, что могут быть ошибки. Считайте, проверяйте и пишите программу.