Pascal语言题目《求三角形面积》

问题描述：

Pascal语言题目《求三角形面积》
已经三角形三边的长,求三角形的面积,对了,用海伦公式：p=(a+b+c)/2,s=√p*(p-a)*(p-b)*(p-c)编写一个程序,输入一个三角形的三条边a,b,c(a,b,c为实数）,如果这三条边能构成三角形则输出这个三角形的面积,否则输出“No solution.”.输入输入只有一行,包含三个实数a,b,c.输出输出面积

1个回答分类：综合 2014-12-04

问题解答：

我来补答

var
a,b,c,p,s:real;
begin
read(a,b,c);
if ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write(s);
end
else write('No solution');
end.

展开全文阅读

上一页：立体几何的向量方法

下一页：明矾净水