社区
非技术区
帖子详情
纯属散分:给定三边长度,判断是否是一个三角形
lw549
2008-09-01 01:57:46
给自己找个散分的理由。
我知道这是个初中数学问题,但你能写出一份合格的代码吗?
IsTriAngle(a,b,c: Integer): boolean;
请任意发挥:)
分数平分,just for fun.
...全文
564
52
打赏
收藏
纯属散分:给定三边长度,判断是否是一个三角形
给自己找个散分的理由。 我知道这是个初中数学问题,但你能写出一份合格的代码吗? IsTriAngle(a,b,c: Integer): boolean; 请任意发挥:) 分数平分,just for fun.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
52 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
junon
2010-07-19
打赏
举报
回复
先排序
然后最小两边之和大于最大的
AND
最小最大的差小于中间的
快乐江米
2008-09-16
打赏
举报
回复
我的竟然只得了6分?
lw549
2008-09-05
打赏
举报
回复
参与的人不多,结贴了。
快乐江米
2008-09-04
打赏
举报
回复
应该这样:
......
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;
yinxu
2008-09-04
打赏
举报
回复
要是仅仅就是三条线,无连接,无闭合,我不知道大家仅仅根据线的长度怎么判断!
lyguo
2008-09-04
打赏
举报
回复
粗心打错了,也不让修改,真是。
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;
三边都得大于零,且任有两连只和大于第三连就成。
lyguo
2008-09-04
打赏
举报
回复
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;
三边都得大于零,且任有两连只和大于第三连就成。
快乐江米
2008-09-04
打赏
举报
回复
由三条线段首尾相接,围成的图形叫做三角形。
呵呵。
日总是我哥
2008-09-04
打赏
举报
回复
瞻仰楼上这位牛人
lw549
2008-09-04
打赏
举报
回复
瞻仰楼上各位牛人,对你们的幽默感深感佩服。
zhao_auau
2008-09-04
打赏
举报
回复
给定三边长度,判断是否是一个三角形 ????
题目有问题,都已给定三边啦,还判断是不是三角形???
难道三边还可以组成四边形???
budded
2008-09-03
打赏
举报
回复
给三边长度,只能判断能否组成三角形吧??
万一,三条线在四维空间里永不相交呢???
阿弥陀佛!
yf110
2008-09-03
打赏
举报
回复
看看热闹,接个分
zhoutian618
2008-09-03
打赏
举报
回复
分数平分?
接分。
JeffChung
2008-09-02
打赏
举报
回复
[Quote=引用 20 楼 yangkunjie 的回复:]
看看热闹,接个分
[/Quote]
lw549
2008-09-02
打赏
举报
回复
[Quote=引用 30 楼 MaoMaoDelphi 的回复:]
这样的问题也能放上来??晕,二边之和是否大于第三边,这样的算法也可以讨论?
[/Quote]
呵呵,都说了,是找个散分的理由,你那么较真做什么。
wxmwxmwxm
2008-09-02
打赏
举报
回复
接分
MaoMaoDelphi
2008-09-02
打赏
举报
回复
这样的问题也能放上来??晕,二边之和是否大于第三边,这样的算法也可以讨论?
gzmhero
2008-09-02
打赏
举报
回复
[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 ...........即可。
lw549
2008-09-02
打赏
举报
回复
[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的情况就挂了。
加载更多回复(32)
《玩不够的数学:算术与几何的妙趣》:第一章 平面上的几何艺术
第一章 平面上的几何艺术 人们往往从悖论中获得思维的乐趣,而几何学的悖论就是不可能图形。如今我们已创造出数千种这样的二维图像,不断挑战我们的眼睛和思维。
三角形
、披萨饼、七巧板也蕴藏着无穷的变化和巧妙的发现。 不可能!你确信吗? 人们从透视错觉得来灵感,创造了神秘的“不可能图形”。人类的视觉系统让我们觉得这样的图形很奇怪。然而这些图形确实是可行的,并为我们带来双重乐趣——先是惊奇,
经典智力题
一、微软58题 A.逻辑推理 1、你让工人为你工作7天,给工人的回报是一根金条。金条平分成相连的7段 ,你必须在每天结束时给他们一段金条,如果只许你两次把金条弄断,你如何给你 的工人付费? 2、请把一盒蛋糕切成8份,分给8个人,但蛋糕盒里还必须留有一份。 3、小明一家过一座桥,过桥时是黑夜,所以必须有灯。现在小明过桥要1秒, 小明的弟弟要3秒,小明的爸爸要6...
微软面试58道逻辑面试题
一、微软面试58逻辑推理题 1、你让工人为你工作7天,给工人的回报是一根金条。金条平分成相连的7段 ,你必须在每天结束时给他们一段金条,如果只许你两次把金条弄断,你如何给你 的工人付费? 2、请把一盒蛋糕切成8份,分给8个人,但蛋糕盒里还必须留有一份。 3、小明一家过一座桥,过桥时是黑夜,所以必须有灯。现在小明过桥要1秒, 小明的弟弟要3秒,小明的爸爸要6秒,小明的妈妈要8秒,小明的爷爷要12秒。每 次此桥最多可过两人,而过桥的速度依过桥最慢者而定,而且灯在点燃后30秒就会 熄灭。问:小明
经典面试智力题200+题和解答
招聘时期到了,总少不了需要准备智力题。考来考去大多是各种旧题,本来是考智力的事情,现在几乎已经变成了题海战术的考试,所以我们也不能在这一块落后。学习各种奇巧淫技,扩展一下思路,同时免得笔试面试吃亏。 搜集了大量智力题,有些还挺有意思,顺便活跃大脑思维,有些益处。 网上题目很多,眼花缭乱,大量重复的转载。现在集中搜集贴在这里,免得后来人自己到处查浪费时间,有问题或者解法可以在下面跟帖给出
acm校内选拔题解
题意:对于两个
给定
的正整数 n,p,计算2的2次方mod p的结果。其中1
非技术区
828
社区成员
53,613
社区内容
发帖
与我相关
我的任务
非技术区
Delphi 非技术区
复制链接
扫一扫
分享
社区描述
Delphi 非技术区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章