如何取得一个实数的有效数字?(50分)

M

microluck

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-07

• #1

比如:1.24587
我只需要取得1.24就行了
用什么函数实现?
请指教.

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-07

• #2

RoundTo

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-07

• #3

math

 

Z

ZRWeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-07

• #4

var
f:Real;
r:Real;
begin
f:=1.24587;
r:=StrToFloat(formatfloat('0.00',f));

 

M

microluck

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-07

• #5

多人接受答案了。

 

T

truecat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-07

• #6

use math
var Va:real;
Va:=RoundTo(1.23456,-2);
showmessage(floattostr(Va));

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-07

• #7

a:=1.24587;
b:=strtofloat(format('%8.2f',a));