2、求三角形面积:给出三角形的三个边长为a,b,c,求三角形的面积。 提示:根据海伦公式来计算三角形的面积: S= ;Area= [解] 1.输入的三角形三边长a,b,c要满足“任意两边长的和大于第三边长”。 2.按海伦公式计算:s=(a+b+c)/2;x=s*(s-a)*(s-b)*(s-c) 这时若x>=0,则求面积:area= ,并输出area的值。 [程序] PROGRAM hl; VAR a,b,c,s,x,area:real; BEGIN write('Input a,b,c:'); readln(a,b,c); If (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) Then Begin s:=(a+b+c)/2; x:=s*(s-a)*(s-b)*(s-c); If x>=0 Then Begin Area:=SQRT(x); writeln('Area=',area:8:5); End; End Else writeln('Input error!') END.
提示:根据海伦公式来计算三角形的面积:
S= ;Area=
[解]
1.输入的三角形三边长a,b,c要满足“任意两边长的和大于第三边长”。
2.按海伦公式计算:s=(a+b+c)/2;x=s*(s-a)*(s-b)*(s-c) 这时若x>=0,则求面积:area= ,并输出area的值。
[程序]
PROGRAM hl;
VAR a,b,c,s,x,area:real;
BEGIN
write('Input a,b,c:');
readln(a,b,c);
If (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) Then
Begin
s:=(a+b+c)/2;
x:=s*(s-a)*(s-b)*(s-c);
If x>=0 Then
Begin
Area:=SQRT(x);
writeln('Area=',area:8:5);
End;
End
Else
writeln('Input error!')
END.