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

Question

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

Comments

это надо на паскале сделать или что?

---

да

---

на паскале

Answer 1

Var a,b,c,s,p,p1,RB,RO:real ;begin  readln(a); readln(b); readln(c); p1:=a+b+c; p:=p1/2; s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c)); RB:=s/p; RO:=(a*b*c)/(4*s); writeln('радиус вписаной ',RB,' радиус описанной ',RO);end.

Comments

var a,b,c,s,p,p1,RB,RO:real ;
begin
readln(a);
readln(b);
readln(c);
p1:=a+b+c;
p:=p1/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
RB:=s/p;
RO:=(a*b*c)/(4*s);
writeln('радиус вписаной ',RB,' радиус описанной ',RO);
end.

---

sqrt это корень

---

sqrt(p1*(p1-a)*(p1-b)*(p1-c))- формула герона

---

если помог отметьте как лучший ответ