Напишите программу для2. ** плоскости дан треугольник ABC, задаваемый координатами своих...

Question

Напишите программу для
2. На плоскости дан треугольник ABC, задаваемый координатами своих вершин (вводятся три пары чисел). Определить, является ли треугольник ABC прямоугольным. Дополнительно: определить координаты геометрического центра треугольника.

Answer 1

Var
  a: array [1..6] of real;
  q, b, c: real;

begin
  for i: byte := 0 to 2 do
    readln(a[i * 2 + 1], a[i * 2 + 2]);
  q := sqrt(sqr(a[1] - a[3]) + sqr(a[2] - a[4]));
  b := sqrt(sqr(a[5] - a[3]) + sqr(a[6] - a[4]));
  c := sqrt(sqr(a[5] - a[1]) + sqr(a[6] - a[2]));
  if ((q + b > c) and (q + c > b) and (b + c > q)) then
  begin
    if (max(q, max(b, c)) = sqrt(sqr(min(q, min(b, c))) + sqr(min(q, max(b, c))))) then 
      writeln('Прямоугольный!');
    writeln(String.Format('Геом. центр - ({0}; {1})', (a[1] + a[3] + a[5]) / 3, (a[2] + a[4] + a[6]) / 3));
  end
  else
    writeln('Нет такого ▲');
end.