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

rattywolf · 11.12.2011, 18:00

Задача - определить вид треугольника по трем сторонам а, 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 · 11.12.2011, 18:46

Цитата:

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

Задача - определить вид треугольника по трем сторонам а, 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. В противном случае анализируем значение косинуса угла, противолежащего стороне с, найдя оный по теореме косинусов. Если он равен нулю, то треугольник прямоугольный, если положительный - остроугольный, если отрицательный - тупоугольный.

11.12.2011, 18:00	#1 (permalink)
rattywolf Новичок Регистрация: 11.12.2011 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача на Паскале, какие-то условия не проходят, помогите пожалуйста! Задача - определить вид треугольника по трем сторонам а, 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 kk + (a+b+c-g-k)(a+b+c-g-k) = gg then write('rectangular'); if kk + (a+b+c-g-k)(a+b+c-g-k) > gg then write('acute'); if kk + (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.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070