Определить по координатам трех точек, что они являются вершинами прямоугольного трекгольника.

Pascal

Var

Ax, Ay, Bx, By, Cx, Cy, AB, BC, CA:real;

Begin

WriteLn ('Координаты точки A') ;

Write (' x = ') ; ReadLn (Ax) ;

Write (' y = ') ; ReadLn (Ay) ;

WriteLn ('Координаты точки B') ;

Write (' x = ') ; ReadLn (Bx) ;

Write (' y = ') ; ReadLn (By) ;

WriteLn ('Координаты точки C') ;

Write (' x = ') ; ReadLn (Cx) ;

Write (' y = ') ; ReadLn (Cy) ;

AB:=Sqr (Ax-Bx) + Sqr (Ay-By) ;

BC:=Sqr (Bx-Cx) + Sqr (By-Cy) ;

CA:=Sqr (Cx-Ax) + Sqr (Cy-Ay) ;

if (Sqrt (AB)
if (AB+BC=CA) or (BC+CA=AB) or (CA+AB=BC) then WriteLn ('Треугольник ABC - прямоугольный')

else WriteLn ('Треугольник ABC не является прямоугольным')

else WriteLn ('Данные точки не являются вершинами треугольника')

End.