计算三角形的面积,并判断三角形的类型?
2008-01-07 13:39
706 查看
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('错误:三边构不成一个三角形!');
如果可以则计算三角形的面积,并判断三角形的类型。
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('错误:三边构不成一个三角形!');
相关文章推荐
- 三角形的类型判断和面积计算
- 三角形判断和计算面积(C++实现)
- C语言输入三角形边长判断其类型并输出面积实例代码
- C语言 输入三角形的三边,判断三角形的类型,并输出它的类型和面积
- 12月27日任务 从键盘任意输入三角形的三边,判断是否能构成三角形,若能,则计算三角形的面积并输出,若不能,则输出不能构成三角形
- 第4章类与对象-引用包中的类-判断是否为三角形并计算其面积
- c语言求三角形的面积及判断三角形类型
- C语言-根据输入的三角形的三条边判断三角形的类型,并输出它的面积和类型
- C语言实现判断三边形成三角形类型并求面积
- 判断三角形的面积及类型(多重选择)
- 判断是否能构成三角形并计算面积
- 运用类来判断计算三角形周长面积
- c语言计算三角形面积代码
- 点到直线的距离 点是否在多边形内 计算多边形面积 四边形面积 三角形面积 两边之和减去第三边 C程序
- c++判断并求三角形面积
- 创建一个三角形类并且通过成员函数计算三角形的周长和面积《1》
- 三角形面积计算(海伦公式或叉积绝对值的一半)
- [BZOJ1845][Cqoi2005] 三角形面积并(计算几何+扫描线)
- 爪哇国新游记之二----用于计算三角形面积的Point类和TAngle类
- 输出三角形面积和类型(难度:半颗星)