Question

Два треугольника заданы координатами своих вершин определить радиусы окружностей вписанных в треугольник. (через Pascal)
пожалуйста

Answer 1

===== PascalABC.NET =====

function L(x1, y1, x2, y2: real) := Sqrt(Sqr(x2 - x1) + Sqr(y2 - y1));

function r(xA, yA, xB, yB, xC, yC: real): real;

begin

 var c := L(xA, yA, xB, yB);

 var a := L(xB, yB, xC, yC);

 var b := L(xA, yA, xC, yC);

 var p := (a + b + c) / 2;

 Result := Sqrt((p - a) * (p - b) * (p - c) / p)

end;

begin

 var xA, yA, xB, yB, xC, yC: real;

 loop 2 do

 begin

   Writeln('Введите координаты x и y каждой вершины треугольника');

   Read(xA, yA, xB, yB, xC, yC);

   Writeln('Радиус вписанной окружности равен ', r(xA, yA, xB, yB, xC, yC))

 end

end.