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

[lw549]

给自己找个散分的理由。
我知道这是个初中数学问题，但你能写出一份合格的代码吗？

IsTriAngle(a,b,c: Integer): boolean;

请任意发挥：）
分数平分，just for fun.

[lw549]

[Quote=引用 27 楼 gzmhero 的回复:]
引用 25 楼 lw549 的回复:
引用 17 楼 zhuminghua 的回复:
引用 12 楼 lw549 的回复:
提示：加法会导致溢出。
 
那就先求出最大两个数，相减小于最小的那个数，就是三角形了

思路完全正确。


如果仅仅是加法溢出的问题，那这样处理看看。（没考虑精度问题）

result:=(a/2+b/2>c/2) and (a/2+c/2>b/2) and (b/2+c/2>a/2);

[/Quote]

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

[gzmhero]

[Quote=引用 28 楼 lw549 的回复:]
引用 27 楼 gzmhero 的回复:
引用 25 楼 lw549 的回复:
引用 17 楼 zhuminghua 的回复:
引用 12 楼 lw549 的回复:
提示：加法会导致溢出。

那就先求出最大两个数，相减小于最小的那个数，就是三角形了

思路完全正确。


如果仅仅是加法溢出的问题，那这样处理看看。（没考虑精度问题）

result:=(a/2+b/2>c/2) and (a/2+c/2>b/2) and (b/2+c/2>a/2);



精度是个不可忽视的问题，a=b=…
[/Quote]

?????????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 ...........即可。

[MaoMaoDelphi]

这样的问题也能放上来??晕,二边之和是否大于第三边,这样的算法也可以讨论?

[wxmwxmwxm]

接分

[lw549]

[Quote=引用 30 楼 MaoMaoDelphi 的回复:]
这样的问题也能放上来??晕,二边之和是否大于第三边,这样的算法也可以讨论?
[/Quote]

呵呵，都说了，是找个散分的理由，你那么较真做什么。

[JeffChung]

[Quote=引用 20 楼 yangkunjie 的回复:]
看看热闹，接个分
[/Quote]

[zhoutian618]

分数平分？
接分。

[yf110]

看看热闹，接个分

[budded]

给三边长度，只能判断能否组成三角形吧？？
万一，三条线在四维空间里永不相交呢？？？
阿弥陀佛！

[zhao_auau]

给定三边长度，判断是否是一个三角形 ？？？？
题目有问题，都已给定三边啦，还判断是不是三角形？？？
难道三边还可以组成四边形？？？

[lw549]

瞻仰楼上各位牛人，对你们的幽默感深感佩服。

[日总是我哥]

瞻仰楼上这位牛人

[快乐江米]

由三条线段首尾相接，围成的图形叫做三角形。
呵呵。

[lyguo]

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;

三边都得大于零，且任有两连只和大于第三连就成。

[lyguo]

粗心打错了，也不让修改，真是。
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;

三边都得大于零，且任有两连只和大于第三连就成。

[yinxu]

要是仅仅就是三条线，无连接，无闭合，我不知道大家仅仅根据线的长度怎么判断！

[快乐江米]

应该这样：
......
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;

[lw549]

参与的人不多，结贴了。

[快乐江米]

我的竟然只得了6分？

[junon]

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