Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Проверьте, можно ли построить треугольник из отрезков с длинами x, y, z и, если можно, то какой - остроугольный, прямоугольный или тупоугольный. помогите, должно быть 1) тест 2) блок-схема 3) программа

Ответ оставил Гость

Program zadacha;

Var x,y,z,ans:Int64;

Begin

ReadLn(x,y,z);

If (x>0) and (y>0) and (z>0) then Inc(ans);

If (ans=0) then WriteLn(Такой треугольник построить нельзя) else begin

     Write(Такой треугольник можно построить);

     If(x=y) xor (x=z) xor (y=z) then Write(, он будет равнобедренным) else

     If(x=y) and (x=z) and (z=y) then Write(, он будет равносторонним)else

     If(x=y) xor (x=z) xor (y=z) then Write(, он будет равнобедренным);

     If (sqr(x)+sqr(y)=sqr(z)) or (sqr(y)+sqr(z)=sqr(x)) or (sqr(z)+sqr(x)=sqr(y)) then

write(, он будет прямоугольным.)  else

     If(sqrt(sqr(x)+sqr(y))>z) xor (sqrt(sqr(z)+sqr(y))>x) xor (sqrt(sqr(x)+sqr(z))>y) then Write(, он будет остроугольным.)

else write(, он будет тупоугольгым.);

end;

End.

ps: не забудь пометить как лучшее решение плизз)