1. 判断以a、b、c为边长的三边能否构成三角形: 用任意两边之和是否大于第三边来判断
如果可以则计算三角形的面积,并判断三角形的类型。
var
a,b,c,p,t,Aera: real;
TriType :string;
//录入abc的值
if (a+b>c) and (a+c>b) and (b+c>a) then //判断是否能构成三角形
begin
p := (a+b+c)/2;
Aera := sqrt(p*(p-a)*(p-b)*(p-c)); //计算三角形面积
if a>c then //判断三角形类型
begin
t := c;
c := a;
a := t;
end;
if b>c then
begin
t := c;
c := b;
b := t;
end;
if c*c>a*a+b*b then
TriType := '钝角三角形';
if c*c=a*a+b*b then
TriType := '直角三角形';
else
TriType := '锐角三角形';
ShowMessage('三角形是' + TriType + ',面积=' + FlostTostr(Aera));
end
else
ShowMessage('错误:三边构不成一个三角形!');