ada_求三角形面积

with ada.text_io;
use  ada.text_io;
with ada.Float_Text_IO;
use  ada.Float_Text_IO;
with Ada.Numerics.Elementary_Functions;
use  Ada.Numerics.Elementary_Functions;


procedure triangle is
   --function Triangle_bool(a:Float;b:float;c:float) return Boolean is
   --begin
   --if(a>0 and b>0 and c>0) then
   -- if(((a+b)>c)OR((a+c)>b)or((b+c)>a)) then
      --   return True;
    --else
       --  return False;
     -- end if;
   --end if;
  -- end Triangle_bool;
   Triangle_a:Float;
   Triangle_b:Float;
   Triangle_c:Float;
   Triangle_Area:Float;
   Tempe_l:Float;
begin
   put("Enter Triangle_a:");
   Get(Triangle_a);
   put("Enter Triangle_b:");
   Get(Triangle_b);
   put("Enter Triangle_c:");
   Get(Triangle_c);
   Tempe_l:=(Triangle_a+Triangle_b+Triangle_c)/2.0;
   IF(Triangle_A>0.0 AND Triangle_B>0.0 AND Triangle_C>0.0) 
      then
      IF(((Triangle_A+Triangle_B)>Triangle_C)
            OR((Triangle_A+Triangle_C)>Triangle_B)
            OR((Triangle_B+Triangle_C)>Triangle_A)) 
            then
        Triangle_Area:=Sqrt(Tempe_l*  (Tempe_l-Triangle_a)  *(Tempe_l-Triangle_b) * (Tempe_l-Triangle_c));
        Put("The Triangle Area is:");
        put(Triangle_Area);
        New_Line;
    else
        put("Don't exits Traingle");
        New_Line;
      end if;
   end if;
 --  if((True:=Triangle_bool(Triangle_a;Triangle_b;Triangle_c))) then
       -- Triangle_Area:=Sqrt(Tempe_l(Tempe_l-Triangle_a)(Tempe_l-Triangle_b)(Tempe_l-Triangle_c));
      --  Put("The Triangle Area is:");
      --  put(Triangle_Area);
     --   New_Line;
  -- else
       -- put("Don't exits Traingle");
       -- New_Line;
   --end if;
end triangle;