Подпрограммы

Приведенный выше алгоритм предполагает неоднократное вычисление расстояния между двумя точками и определения номера вершины треугольника с прямым углом. Для проведения этих вычислений целесообразно разработать подпрограммы-функции.

Функция distance вычисляет расстояние d между двумя точками плоскости (x 1, y 1) и (x 2, y 2) по формуле:

.

Код этой функции см. в тексте программы.

Функция angle возвращает номер вершины с прямым углом треугольника, и значение 0, если прямого угла в треугольнике нет. Функция angle сначала определяет длины сторон треугольника с помощью функции distance, а затем по теореме Пифагора последовательно проверяет, являются ли углы треугольника прямыми. Код функции angle см. в тексте программы.