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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/24 06:03:11
三角形的周长与面积 用free pascal输入三角形的边长,求三角形有周长L与面积S.输入:只有一行共有三个实数:a b c (保证三个边长能构成一个三角形)输出:只有一行共有二个实数:L S (结
xSRP~4| Ҏ3i "FJmZ8 _垛d+^dp;Ug27|;i-oȩVӫiw;8rψ|%D3 9!yLK|iP̅D] u?C@*m$D! rmDVq/Y}X]W?[3dWw.c)wk6.X}VSIehHhY?pbW;{ӕJXBۃFHܿ})r/!cau:ymhm&~v݀)؆D>ggCo(1ĉLz

三角形的周长与面积 用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.
我刚刚做了一些修改,将数据全部改成了实型.这样才符合题意.