纯属散分：给定三边长度，判断是否是一个三角形

Question

给自己找个散分的理由。
我知道这是个初中数学问题，但你能写出一份合格的代码吗？IsTriAngle(a,b,c: Integer): boolean;请任意发挥：）
分数平分，just for fun.

Answer 1

应该是满足任2边之和大于第三边就可以吧。function IsTriAngle(a,b,c: Integer): boolean; 
begin
    result:=(a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0);
end;

Answer 2

(a>0) and (b>0) and (c>0); 
只判断任意一个应该就够了

Answer 3

的确够了。result:=(a+b>c) and (a+c>b) and (b+c>a) and (a>0);

Answer 4

应该不用判断 a,b,c任何一边。
a+b>c 和 a+c>b ==> 2a+b+c>b+c==> a>0
同样能得出，b>0,c>0
所以，只要判断result:=(a+b>c) and (a+c>b) and (b+c>a);

Answer 5

引用 3 楼 gzmhero 的回复:
引用 2 楼 aiirii 的回复: 
(a>0) and (b>0) and (c>0); 
只判断任意一个应该就够了 
的确够了。 result:=(a+b>c) and (a+c>b) and (b+c>a) and (a>0); 
 应该不用判断 a,b,c任何一边。 
a+b>c 和 a+c>b ==> 2a+b+c>b+c==> a>0 
同样能得出，b>0,c>0 
所以，只要判断 result:=(a+b>c) and (a+c>b) and (b+c>a);

Answer 6

IsTriAngle(a,b,c: Integer): boolean;
begin
 { if (a<=0)or(b<=0)or(c<=0) then
     Result := false
  else
     Result := (a+b>c)and(a+c>b)and(b+c>a);}
  Result := (a+b>c)and(a+c>b)and(b+c>a)and(a>0);
end;

Answer 7

先判断a,b,c谁最大，再a的平方加上b的平方等于c的平方，不等就不是三角形

Answer 8

function IsTriAngle(a,b,c: Integer): boolean;
var
  bOk:boolean;
  lwAdd:Longword;
  intS:integer;begin
  bOk:=true;  lwAdd:=a+b;
  if lwAdd=<c then
    bOk:=fasle;
  lwAdd:=a+c;
  if lwAdd=<b then
    bOk:=false;
  lwAdd:=b+c;
  if lwAdd=<a then
    bOk:=false;  intS:=a-b;
  if ints>=c then
    bOk:=false;
  intS:=a-c;
  if ints>=b then
    bOk:=false;
  intS:=b-c;
  if ints>=a then
    bOk:=false;  result:=bOk;
end;

Answer 9

本来想用Int64不过这也太狠了
算了，先蒙一个错了也不会扣我分
function IsTriAngle(a, b, c: Integer): Boolean;
begin
  Result := False;
  if (a <= 0) or (b <= 0) or (c <= 0) then Exit;
  if a < b then
    if b - a >= c then Exit else
  else if a - b >= c then Exit;
  if a < c then
    if c - a >= b then Exit else
  else if a - c >= b then Exit;
  if c < b then
    if b - c >= a then Exit else
  else if c - b >= a then Exit;
  Result := True;
end;

Answer 10

Int64……
楼上这牛人……
result:a+b>c,a+c>b,b+c>a.a>0,b>0,c>0（其实个人认为只判断一个就行了，这三个不等式换过来换过去，只要一个大于0，三个都大于0）

Answer 11

function IsTriAngle(a,b,c: Integer): boolean;
begin
    result:=(a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0);
end; 

Answer 12

A，B，C不为负。并且2边之和大于第三边。

Answer 13

如果仅仅是加法溢出的问题，那这样处理看看。（没考虑精度问题）result:=(a/2+b/2>c/2) and (a/2+c/2>b/2) and (b/2+c/2>a/2);

Answer 14

精度是个不可忽视的问题，a=b=c=1或a=b=2,c=1的情况就挂了。

Answer 15

?????????a=b=c=1，result:=(1/2+1/2>1/2) AND .....，返回是 true
a=b=2,c=1,Result:=(2/2+2/2>1/2) and ......返回是ture 也没错。这里由于除数都是2，精度误差似乎反映不出，没仔细验证，如果考虑精度问题，那就e:=0.000001;
Result:=(a/2+b/2-c/2>e) and ...........即可。

Answer 16

这个算法中是不需要判断边长是否小于0的。因为如果三边中有一边小于0(假设这条边是c)，则另外两边a和b，不管它们之间的大小关系如何，必定将出现二边之和小于第三边的情况。即：
如果 a < b， 则 a + c 必定 < b
如果 a > b， 则 b + c 必定 < a

Answer 17

function IsTriAngle(a,b,c: Integer): boolean;
begin
    result:=((a>0) and (b>0) and (c>0)) and ((a+b>c) or ((a+c>b) and (b+c>a)) ;
end; 三边都得大于零，且任有两连只和大于第三连就成。

Answer 18

粗心打错了，也不让修改，真是。
function IsTriAngle(a,b,c: Integer): boolean;
begin
    result:=((a>0) and (b>0) and (c>0)) and ((a+b>c) or ((a+c>b) or (b+c>a)) ;
end;三边都得大于零，且任有两连只和大于第三连就成。

Answer 19

应该这样：
......
var
  a,b,c:integer;
  d:Real;
begin
  a:=StrToInt(edt1.Text) ;
  b:=StrToInt(edt2.Text) ;
  c:=StrToInt(edt3.Text) ;
   d:=(a+b+c) / 2;
   if (a<d)and(b<d)and(c<d) then  lbl1.Caption:='是三角形'  //每条边都要小于三边和的一半。
   else
      lbl1.Caption:='不是三角形';
end;
end;

Answer 20

先排序
然后最小两边之和大于最大的 AND 最小最大的差小于中间的