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;
ada_求三角形面积
原创
©著作权归作者所有:来自51CTO博客作者WEL测试的原创作品,请联系作者获取转载授权,否则将追究法律责任
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
【Canvas与艺术】绘制斜置黄色三角biohazard标志
使用Html5/Canvas绘制斜置黄色三角biohazard标志。
canvas biohazard -
【Canvas与艺术】绘制黄色三角辐射警示标志
使用Html5/Canvas绘制黄色三角电离辐射警示标志
canvas 辐射 radiation -
三角形面积
由已知的两边夹角、三边或边及其对应高度,求三角形面积
#include 三角形面积 #define #sqrt -
三角形面积公式
已知三个顶点坐标求面积已知三边长求面积(海伦公式)
三角形面积公式 Python -
求三角形面积java 求三角形面积的例题
l=(a+b+c)/2;三角形的面积s=sqrt(l*(l-a)*(l-b)*(l-c))sqrt表示开二次根号。
求三角形面积java #include 三角形面积 基本知识 -
三角形面积 java 三角形面积公式高中
三角形面积公式
三角形面积 java