Помогииитттеее Вычислите радиус RB вписанной и радиус RO описанной около треугольника...

Question

Помогииитттеее
Вычислите радиус RB вписанной и радиус RO описанной около треугольника окружности, если заданы стороны треугольника A, B, C
RB=S/P RO=A*B*C/4S
где S-площадь, P-полупериметр треугольника

Answer 1

Var a,b,c,p,s,rb,ro: real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
rb:=s/p;
ro:=a*b*c/(4*s);
writeln('rb = ',rb:6:2,' ro = ',ro:6:2);
end.

Пример:
4 4 4
rb = 1.15 ro = 2.31