两个float相减得结果为什么不对呀？ (10分)

T

tt123tt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #1

var
aa,bb,cc:float;
begin
aa:='26';
bb:='25.6';
cc:=floattostr(strtoflaot(aa)-strtoflaot(bb));
end;
cc得到的结果是0.3300000000000001.
问题：
1) cc为什么得不到0.4?
2) cc怎样改才能得到正确值。

 

憔

憔悴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
aa,bb,cc:string;
begin
aa:='26';
bb:='25.6';
cc:=floattostr(strtofloat(aa)-strtofloat(bb));
ShowMessage(cc);
end;
我怎么这样就得到了0.4？？？？？？！！！

 

可

可爱宝宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #3

老兄
！你的变量声明有问题吧！怎么看不懂呢？

 

J

jgy_1980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #4

最顶层的代码那里编译的过去啊？用double吧

 

浮

浮生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #5

浮点数的运用特别要小心，因为你再操作浮点数时，你给出的数可能是4位有效数字，
但在机器中却是该类型数据的统一长度，如4.0,其实是4.0xxxxxxx……，有许多不可见
部分。当你进行计算时，有时结果是不可知的（相对准确）；我曾经用浮点数运算后进行大
小比较，但怎么也不对，后来想办法转成整形的才通过。你可能遇到的也是此类问题。
你可以人为的控制数据精度，如截取小数点后5位。delphi中有这样的函数(dataformat)

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #6

var
aa,bb,cc:float;
-----
^<<<<< string
begin
aa:='26';
bb:='25.6';
cc:=floattostr(strtoflaot(aa)-strtoflaot(bb));
----- -----
^<<<<<<<<<<<<<<^<<<<<<< float

 

M

misxjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #7

你的变量声明有问题，把 aa,bb,cc改称字符型String，就行了！

 

Z

zhoulide

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #8

变量声明为字符型String可以的，
不然
var
aa,bb,cc:float;
begin
aa:=26;
bb:=25.6;
cc:=aa-bb;
showmessage(Floattostr(cc));
end;
问题：

哎，来迟了。

 

T

tt123tt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #9

问题解决了
cc:=floattostr(strtoflaot(aa)-strtoflaot(bb));
后直接显示就没有问题，要是把cc附给real类型的娈量后再来显示就会出现小数点后很多数字。

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #10

formatfloat('0.0,a-b);

 

T

tt123tt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #11

我就是不明白为什么中间经过一次real类型后就显示的不一样呢?

 

C

cslotus

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #12

用currency型就可以了

 

D

dz2050

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #13

精度丢失

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #14

多人接受答案了。