Delphi的四舍五入函数
来源:互联网 发布:淘宝为什么没有西瓜刀 编辑:程序博客网 时间:2024/05/17 03:31
function x_round(x: double): double;
var
x10: double;
xx: integer;
begin
x10 := abs(x) * 100 + 0.5;
xx := trunc(x10);
result := xx / 100;
if x<0 then
result:=-result;
end;
var
x10: double;
xx: integer;
begin
x10 := abs(x) * 100 + 0.5;
xx := trunc(x10);
result := xx / 100;
if x<0 then
result:=-result;
end;
- Delphi的四舍五入函数
- Delphi的四舍五入函数
- Delphi的四舍五入函数
- Delphi的四舍五入函数
- Delphi的四舍五入函数
- Delphi的四舍五入函数
- Delphi中的四舍五入函数
- DELPHI四舍五入函数
- Delphi中的四舍五入函数
- 关于DELPHI的四舍五入
- 关于Delphi的四舍五入
- Delphi自带四舍五入函数
- delphi 四舍五入Round函数【百帖整理】
- 一个四舍五入的函数
- c#的四舍五入函数
- 一个四舍五入的函数
- excel四舍五入的函数
- 四舍五入处理的函数
- java经典网摘
- Java图形程序中的对话逐字显示实现
- NT平台拨号连接密码恢复原理
- 用javascript实现浮点数的截取小数位数,并四舍五入
- 什么是搜索引擎注册?新网站如何进行搜索引擎注册?
- Delphi的四舍五入函数
- SOA - 国产厂商的又一个机会
- 办公室文化
- 内存操作函数全集 Linux C
- 写好代码的五个要素
- 常用数学函数全集 Linux C
- 数据库防下载之nodown字段插入方法
- 文件操作函数全集 Linux C
- 关于SVN资源库的一些思考