编程题

三角形内切圆的面积

题目描述:给出三角形三边的边长,求此三角形内切圆的面积。

输入:三个正实数a、b、c(满足三角形三边关系),表示三角形三边边长。

输出:三角形内切圆的面积,结果四舍五入到小数点后2位

输入样例: 3 4 5

输出样例: 3.14

程序:①②③④⑤

Program program1;

Var

a,b,c,r,s,t:real;

begin

read(a,b,c);

s :=( ① )/2;

t:= ② (s*(s-a)*(s-b)*(s-c));

r:=t/s;

writeln(3.1415927 * r * ③ :0: ④ ;

END.

点赞(0) 打赏

评论列表 共有 0 条评论

暂无评论