论坛首页 精选版块
移动开发
iOSAndroidQtWP
云计算
IaaSPass/SaaS分布式计算/Hadoop
Java技术
Java SEJava Web 开发Java EEJava其他相关
.NET技术
.NET FrameworkC#.NET分析与设计ASP .NETVB .NET
Web开发
PHPJavaScriptASPHTML(CSS)HTML5Apache
开发语言/框架
DelphiVC/MFCVBC/C++C++ Builder其他开发语言
数据库开发
MS-SQL ServerOraclePowerBuilderInformatica其他数据库开发
硬件/嵌入式开发
嵌入开发(WinCE)驱动开发/核心开发硬件设计单片机/工控汇编语言VxWorks开发
Linux/Unix社区
系统维护与使用区应用程序开发区内核源代码研究区驱动程序开发区CPU和硬件区
 论坛牛人 排行榜 论坛地图 论坛任务 论坛帮助 我要发贴
CSDN论坛 > Delphi > 语言基础/算法/系统设计

Is it delphi`s bug????? [问题点数：20分，结帖人heluqing]

一键查看最优答案

确认一键查看最优答案？
本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！
取消

开通vip会员
更多帖子
私信 空间 博客
heluqing
Bbs6
本版专家分：9968
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
结帖率 100%
procedure TForm1.Button1Click(Sender: TObject);
var
    tempInt: integer;
begin
    tempInt := Floor((7.2 - 7) * 10);
    showmessage(IntToStr(tempInt));
end;

//run the procedure behind and tell me why?
//why the result is 1 not 2????
//Is it delphi`s bug?
回复数 17 只看楼主 引用 举报 楼主
更多帖子
私信 空间 博客
heluqing
Bbs6
本版专家分：9968
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
upup!!!
只看TA 引用 举报 #1    得分 0
red_angelx
Bbs2
本版专家分：182
uouo
只看TA 引用 举报 #2    得分 0
更多帖子
私信 空间 博客
chenzhuo
Bbs7
本版专家分：11539
Blank
红花 2007年5月 Delphi大版内专家分月排行榜第一
Blank
黄花 2007年6月 Delphi大版内专家分月排行榜第二
搞不清楚,tempInt := Floor((7.2 - 7) * 100);
是会等于19,那么也就是说系统(7.2-7)*10=1.9
floor(1.9)=1,

var
    tempInt: double;
    i: Integer;
begin
    tempInt := (7.2 - 7)* 100;
    i := floor(tempInt);
    showmessage(IntToStr(i));
end;

这样就可以了!呵呵
只看TA 引用 举报 #3    得分 0
更多帖子
私信 空间 博客
chenzhuo
Bbs7
本版专家分：11539
Blank
红花 2007年5月 Delphi大版内专家分月排行榜第一
Blank
黄花 2007年6月 Delphi大版内专家分月排行榜第二
procedure TForm1.Button1Click(Sender: TObject);
var
    tempInt: integer;
begin
    tempInt := Floor((7.2 - 7.0) * 10);
    showmessage(IntToStr(tempInt));
end;

这样可以,不知什么原因
只看TA 引用 举报 #4    得分 0
更多帖子
私信 空间 博客
zwjchina
Bbs7
本版专家分：10664
不是BUG，是你对浮点数字理解不够。
 

Floor(1.99999999999)你觉得应该是多少？

(7.2-7)*10 = 1.999999999999999999999999999999999999...
(7.2-7)*10 != 2
只看TA 引用 举报 #5    得分 20
更多帖子
私信 空间 博客
chenzhuo
Bbs7
本版专家分：11539
Blank
红花 2007年5月 Delphi大版内专家分月排行榜第一
Blank
黄花 2007年6月 Delphi大版内专家分月排行榜第二
难道 7 = 7.00000000000000000000000000000000000000000000000000000000000000000001?
只看TA 引用 举报 #6    得分 0
flashtong
Bbs4
本版专家分：1606
楼上的楼上证解
只看TA 引用 举报 #7    得分 0
更多帖子
私信 空间 博客
heluqing
Bbs6
本版专家分：9968
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
7.2-7)*10 = 1.999999999999999999999999999999999999...
but why????
只看TA 引用 举报 #8    得分 0
更多帖子
私信 空间 博客
zwjchina
Bbs7
本版专家分：10664
因为浮点数是不精确的数,只能和数很接近,但不一定等于该数
你可以找找资料看看浮点数的内存存储方式
其实,浮点数字随着阶码长度和尾数长度不同,其有意义的位数也是不同的.
比如我写的1.999999999999999999999,如果是single类型,有效数字只有8位
也就是 1.9999999469584和1.999999904343543在内存中的表示是无区别的,
换个角度说19999999324.0和119999999444也是没有区别的.
只看TA 引用 举报 #9    得分 0
更多帖子
私信 空间 博客
zwjchina
Bbs7
本版专家分：10664
再给例子,你可以看看结果
procedure TForm1.Button1Click(Sender: TObject);
var
  a, b: single;//double
begin
  a := 0.5000000001;
  b := 0.5;
  if a = b then
    ShowMessage('ok');

end;

类型分别换成single和double是有不同结果的,如果你不明白浮点数的话,会认为在single的情况下,delphi又出bug了.
只看TA 引用 举报 #10    得分 0
更多帖子
私信 空间 博客
zwjchina
Bbs7
本版专家分：10664
在single的情况下
无论 a:=0.500000003241342141234....后面怎么写
a = b都是成立的
因为，在内存中他们是一样的
只看TA 引用 举报 #11    得分 0
更多帖子
私信 空间 博客
heluqing
Bbs6
本版专家分：9968
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
听到了新消息：李维去CodeGear了，呵呵！
只看TA 引用 举报 #12    得分 0
zaza_bbface
Bbs3
本版专家分：823
你才知道呀
只看TA 引用 举报 #13    得分 0
更多帖子
私信 空间 博客
brightyang
Bbs7
本版专家分：19304
Blank
红花 2007年8月 Delphi大版内专家分月排行榜第一
Blank
黄花 2007年12月 Delphi大版内专家分月排行榜第二
2007年10月 Delphi大版内专家分月排行榜第二
2007年9月 Delphi大版内专家分月排行榜第二
2007年7月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2007年11月 Delphi大版内专家分月排行榜第三
我晕....
你英语这么好不去读读关于浮点数的介绍.
只看TA 引用 举报 #14    得分 0
更多帖子
私信 空间 博客
heluqing
Bbs6
本版专家分：9968
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
英语和浮点数有关系？
只看TA 引用 举报 #15    得分 0
更多帖子
私信 空间 博客
heluqing
Bbs6
本版专家分：9968
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
http://stephensuen.spaces.live.com/Blog/cns!1p1G_DGhjYiYGmj6keNZQAcw!172.entry
看了上面的文章，发现对于对于float认识太浅薄了，揭帖，给分，留解决方案。
只看TA 引用 举报 #16    得分 0
更多帖子
私信 空间 博客
heluqing
Bbs6
本版专家分：9968
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
有位高人指点道：
    floor = round(x - 0.5);
    ceil = round(x + 0.5);
只看TA 引用 举报 #17    得分 0