16,749
社区成员
发帖
与我相关
我的任务
分享求个算法，以0.5元为单位
用户要求：低于等于0.5元按0.5元，0.51-1按1元，1.01-1.50按1.5元，。。。。
以0.5元为最小单位进位，求个算法
以0.5元为最小单位进位，求个算法
...全文
请发表友善的回复…
发表回复
cjhchina 2006-06-21
- 打赏
- 举报
to zswang: 经典，谢谢
lonoaer 2006-06-21
- 打赏
- 举报
俺错了！！！！！！！
王集鹄 2006-06-21
- 打赏
- 举报
var
X, V: Real;
begin
{ TODO : X赋值 }
V := Trunc((X + 0.4999) * 100) div 50) * 0.5;
{ TODO : 输出Y }
end;
(X + 0.4999) //只要大于0.01分就会增加1个单位
((X + 0.4999) * 100) //基础单位看成分
Trunc((X + 0.4999) * 100) div 50) //计算五角有多少个单位
X, V: Real;
begin
{ TODO : X赋值 }
V := Trunc((X + 0.4999) * 100) div 50) * 0.5;
{ TODO : 输出Y }
end;
(X + 0.4999) //只要大于0.01分就会增加1个单位
((X + 0.4999) * 100) //基础单位看成分
Trunc((X + 0.4999) * 100) div 50) //计算五角有多少个单位
lonoaer 2006-06-21
- 打赏
- 举报
round(x)+0.5
bosshoss 2006-06-21
- 打赏
- 举报
看错了，向上取整，
bosshoss 2006-06-21
- 打赏
- 举报
*2，四舍五入后再/2
hugoon 2006-06-21
- 打赏
- 举报
这个不是很难啊，lz,没时间写，帮你顶一下
