Предмет: Информатика,
автор: DONikita
Даны действительные положительные числа a, b, c, которые являются длинами сторон треугольника. Напишите программу позволяющую найти радиус вписанной и описанной окружности
Ответы
Автор ответа:
0
var
a,b,c,p,r1,r2:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
r1 := (a*b*c)/(4*sqrt(p*(p-a)*(p-b)*(p-c)));// описанная
r2 := sqrt(((p-a)*(p-b)*(p-c))/p);//вписанная
writeln(r1:1:5,' ',r2:1:5);
readln;
readln
end.
Интересные вопросы
Предмет: Литература,
автор: belakovsasa065
Предмет: Биология,
автор: Аноним
Предмет: Қазақ тiлi,
автор: olgashik1986
Предмет: Математика,
автор: TheGorilla