程序博客网 > 在线高考答题软件

关于四舍五入

来源：互联网发布：在线高考答题软件编辑：程序博客网时间：2024/04/20 17:42

四舍五入

(转http://www.nssoft.net/showdoc.asp?did=267)

关键词:四舍五入

Delphi的四舍五入函数Round，对于XXX.5的情况，整数部分是奇数，那么会Round Up，偶数会Round Down，例如：

x:= Round(17.5) = x = 18

x:= Round(12.5) = x = 12

请使用下面的函数代替Round：

function DoRound(Value: Extended): Int64;

procedure Set8087CW(NewCW: Word);

asm

MOV Default8087CW,AX

FNCLEX

FLDCW Default8087CW

end;

const

RoundUpCW = $1B32;

var

OldCW : Word;

begin

OldCW := Default8087CW;

try

Set8087CW(RoundUpCW);

Result := Round(Value);

finally

Set8087CW(OldCW);

end;

end;

在线高考答题软件

在线高考答题软件

原创粉丝点击

热门问题 老师的惩罚人脸识别我在镇武司摸鱼那些年重生之率土为王我在大康的咸鱼生活盘龙之生命进化天生仙种凡人之先天五行春回大明朝姑娘不必设防，我是瞎子庄河蛋糕店庄河租房网庄河出租房屋信息庄河信息网庄河房产庄河高铁招工信息庄河房产网庄河周边游庄河急招工信息庄河周边旅游景点庄河有什么好玩的地方庄河相亲网庄河交友网庄泽栋庄浪门户网庄浪门户平凉到庄浪汽车时刻表丰庄出租房庄温妮温妮作品温妮英文庄濠全庄田黄金瞳庄睿黄金瞳庄睿和谁在一起了睿思儿童数学思维庄稼的好朋友都有哪些动物庄媛纯媛2013 庄怎么组词庄群施王雪晶庄群施新年歌王雪晶庄群施恭喜恭喜庄羽河北石家庄济南贤文庄韩英武曲靖英武山我家祖母好英武米嘻米嘻爱人英武的父亲在线阅读庄莘线庄虎臣庄行镇