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.输出 输出面积
网友回答
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.