三角形的周长与面积 用free pascal输入三角形的边长,求三角形有周长L与面积S.输入:只有一行共有三个实数:a b c (保证三个边长能构成一个三角形)输出:只有一行共有二个实数:L S (结

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/27 20:41:49
三角形的周长与面积 用free pascal输入三角形的边长,求三角形有周长L与面积S.输入:只有一行共有三个实数:a b c (保证三个边长能构成一个三角形)输出:只有一行共有二个实数:L S (结

三角形的周长与面积 用free pascal输入三角形的边长,求三角形有周长L与面积S.输入:只有一行共有三个实数:a b c (保证三个边长能构成一个三角形)输出:只有一行共有二个实数:L S (结
三角形的周长与面积 用free pascal
输入三角形的边长,求三角形有周长L与面积S.
输入:只有一行共有三个实数:a b c (保证三个边长能构成一个三角形)
输出:只有一行共有二个实数:L S (结果均保留二位小数,两数之间用一个空格隔开)
例如:
输入:2 2 3
输出:7.00 1.98

三角形的周长与面积 用free pascal输入三角形的边长,求三角形有周长L与面积S.输入:只有一行共有三个实数:a b c (保证三个边长能构成一个三角形)输出:只有一行共有二个实数:L S (结
这道题要运用海伦公式,也就是三角形的面积等于三角形 三边 分别于与 周长一半 的 差 的 积,再乘以三角行周长的一半,并将所得的数开平方.
及S=根号下(P×(P-a)×(P-b)×(P-c)),P=(a+b+c)÷2.
那么程序就如下:
program lx;
var
a,b,c,p,s:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(p*2:0:2,' ',s:0:2);
end.
我刚刚做了一些修改,将数据全部改成了实型.这样才符合题意.