Задача на Паскале, какие-то условия не проходят, помогите пожалуйста!

[rattywolf]

Задача на Паскале, какие-то условия не проходят, помогите пожалуйста!

Задача - определить вид треугольника по трем сторонам а, b, c. rectangular - прямоугольный, acute - остроугольный, obtuse - тупоугольный, impossible - треугольник не существует.
Вот мое решение:


program Main;
var
a, b, c, g, k : integer;
begin
readln(a, b);
if a > b then
begin
g:=a;
k:=b;
end;
if a < b then
begin
g:=b;
k:=a;
end;
read(c);
if c > g then
g:=c;
if c < k then
k:=c;
if a+b+c-g > g then
begin
if k*k + (a+b+c-g-k)*(a+b+c-g-k) = g*g then
write('rectangular');
if k*k + (a+b+c-g-k)*(a+b+c-g-k) > g*g then
write('acute');
if k*k + (a+b+c-g-k)*(a+b+c-g-k) < g*g then
write('obtuse');
end;
if a+b+c-g <= g then
write('impossible');
end.

 

[Vladimir_S]

Задача - определить вид треугольника по трем сторонам а, b, c. rectangular - прямоугольный, acute - остроугольный, obtuse - тупоугольный, impossible - треугольник не существует. Вот мое решение:

Знаете, откровенно говоря, я даже не понял, каким критерием (методом) Вы пользуетесь. Чего то накручено-наверчено... Не разобрался, извините.
Я бы решал задачку так:

var
 a, b, c, g  : integer;
 Ca:real;
begin
 Writeln('Enter the sides a b c:');
 readln(a, b, c);
 if a>b then
  begin
   g:=a;
   a:=b;
   b:=g;
  end;
 if b>c then
  begin
   g:=b;
   b:=c;
   c:=g;
  end;
 {now the longest side is c}
 If c>=a+b then
  writeln('impossible')
 else
  begin
   Ca:=(c*c-a*a-b*b)/(-2*a*b);
   if Ca=0 then writeln('rectangular') else
   if Ca>0 then write('acute') else
   writeln('obtuse');
  end;
 readln
END.

Суть метода:
1. Находим самую длинную сторону. Меняем обозначения так, чтобы этой стороной была сторона с.
2. Если c≥a+b, то треугольник невозможен.
3. В противном случае анализируем значение косинуса угла, противолежащего стороне с, найдя оный по теореме косинусов. Если он равен нулю, то треугольник прямоугольный, если положительный - остроугольный, если отрицательный - тупоугольный.