計算三角形的面積,並判斷三角形的類型?

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

 

 

 
            

 
發佈了5 篇原創文章 · 獲贊 0 · 訪問量 7萬+
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章