FreePascal.ru

Программа Project1;
процедура dlina (x1, x2, y1, y2: целое; вар г: реальный);
начинают
д: = SQRT (SQR (x1-x2) + SQR (Y1-Y2));
конец;
Это на каком языке??? На фарджунском, или на ламерском?
Так ведь известно еще с фидошных времен, что LAMERZZZ MUST DIE !

И откройте для себя тег code
Извините ...

sathal , как бы нужен будет массив для хранения координат.
мне кажется все намного проще чем вы думаете, не уверен но кажется должно получится так
Программа Project1;
процедура dlina (x1, x2, y1, y2: целое; вар г: реальный);
начинают
д: = SQRT (SQR (x1-x2) + SQR (Y1-Y2));
конец;
функция ...

sathal
1. Для треугольников, заданных "координатами своих вершин на плоскости", нет таких понятий, как "катет" и "гипотенуза". Это - характеристики только прямоугольных треугольников , а их задавать "координатами вершин на плоскости" крайне некорректно, ввиду неизбежных искажений геометрии из-за ...

Задан n треугольников координатами своих вершин на плоскости. Напечатать номер треугольника с наибольшей площадью (произведения катета). Вычисление сторон и площадей, организовать с помощью подпрограмм. PS. Определить гипотенузу как самую длинную сторону площади треугольника, как определить ...