一个进位的问题,超简单!(50分)

  • 主题发起人 主题发起人 QSmile
  • 开始时间 开始时间
Q

QSmile

Unregistered / Unconfirmed
GUEST, unregistred user!
有一个 single 值 ,我希望只要它的小位有数值就加 1 取整,
如何做!要求效率高!
 
var
a1: single;
begin
if trunc(a1)<>a1 then
begin
a1:=trunc(a1)+1;
end;
end;
 
round取四舍五入值,trunc朝0取整(舍弃小数部分).
调用math单元,可用ceil朝大取整,floor朝小取整,小数部分四舍五入还可用roundto函数,
例:roundto(1.245,-2)=1.25
 
有没有别的方法
 
这个函数不就符合你的要求了吗:
Ceil(-2.8) = -2
Ceil(2.8) = 3
Ceil(-1.0) = -1
 
等我试试
 
接受答案了.
 
后退
顶部