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('錯誤:三邊構不成一個三角形!');