Условный оператор в Delphi

[tommorello]

Здравствуйте!Я совсем не понимаю эти задачкипомогите пожалуйста!
Задача:
"Даны три пары вещественных чисел (x1,y1) , (x2,y2) , (x3,y3) являющиеся координатными вершинами треугольника.Определить ,является ли треугольник прямоугольным."
Заранее спасибо

[Utkin]

Тут дело не в программировании, а в самой задаче. То есть Вы не видите алгоритма решения. Ну есть два варианта найти прямой угол, либо попробовать формулу Пифагора. Для этого нужно определить стороны треугольника. А для этого есть формула нахождения расстояния между двумя точками. См. в Википедии либо в учебниках по геометрии.

[Serge_Bliznykov]

про теорему пифагора слышали?
в этой задаче она аж целых два раза "пригодится": для определения расстояния между точками (нахождение длин сторон треугольника) и для проверки, является ли треугольник прямоугольным (напоминаю, что в прямоугольном треугольнике квадрат гипотенузы равен сумме квадратов катетов!

1) найдите длины сторон (корень квадратный из суммы квадратов разностей координат
например:

SideA := sqrt( sqr(x1-x2) + sqr(y1-y2)); // длина стороны от точки 1 до точки 2

2) из полученных трёх чисел найдите самую большую величину (самую длиную сторону).
3) if СамаяБольшаяСторона ^ 2 (в квадрате) = ДругаяСторона^2 + ТретьяСторона^2 then // Треугольник прямоугольный
else // НЕТ!

вот и всё.

[Utkin]

Вот здесь http://www.testent.ru/publ/predmetny...mi/35-1-0-1066 написано как находить угол между двумя прямыми (это если без треугольника). Если непонятно, нарисуйте и посмотрите сами.