pascal问题

[复制链接]
查看11 | 回复0 | 2009-6-7 16:02:40 | 显示全部楼层 |阅读模式
你要说的计算公式为海伦公式(希伦公式)吧,其中S为面积,P为半周长,公式为:S=√[P(P-a)(P-b)(P-c)];P=(a+b+c)/2。代码(自己写的,还没调过):
pro
vara,b,c,p,s:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
wrileln(sqrt(p(p-a)(p-b)(p-c)));
end.
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行