三角形的周长与面积用free pascal

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

2026年09月26日 15:56

有2个网友回答

网友（1）：

你好，这道题要运用海伦公式，也就是三角形的面积等于三角形三边分别于与周长一半的差的积，再乘以三角行周长的一半，并将所得的数开平方。
及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.
我刚刚做了一些修改，将数据全部改成了实型。这样才符合题意。

网友（2）：

var
a,b,c:longint;
p,l,s:real;
begin
readln(a,b,c);
l:=a+b+c;
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(l:0:2,' ',s:0:2);
end.

//注：求面积运用了海伦公式

三角形的周长与面积 用free pascal

三角形的周长与面积用free pascal