作业帮Pascal语言题目《求三角形面积》
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/22 09:09:01
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.输出 输出面积
已经三角形三边的长,求三角形的面积,对了,用海伦公式：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.
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.