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

[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) ) ) );

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

тут получается как я понял всего 3 edit'a (a1, b1, c1), а нужно что бы было 6 edit'ов (3 стороны(a1, b1, c1) и 3 угла(a, b, c))
И все это надо как то связать

[EridorBlade]

Сообщение от Matrix6993

тут получается как я понял всего 3 edit'a (a1, b1, c1), а нужно что бы было 6 edit'ов (3 стороны(a1, b1, c1) и 3 угла(a, b, c))
И все это надо как то связать

Я просто вам подробно описал все основные математические действия. Я не знаю, что вы подразумеваете под edit'ами. Если вы имеете ввиду входные параметры, то для определения треугольника нужно всего три параметра. Это либо 3 стороны a b и c либо 1 сторона и 2 угла. 3 угла - треугольник задать не могут. Если вводить 3 угла и 3 стороны, то получаются лишние параметры и соответственно вы должны четко знать соотношения ваших вводимых 3-х углов и вводимых 3-х сторон.
Связи все расписаны. Может быть я вас неправильно понимаю. Сформулируйте тогда задачу более четко.

[OlegPrograming5]

Сумма углов в любом треугольнике 180*