求个算法，以0.5元为单位

Question

用户要求：低于等于0.5元按0.5元，0.51-1按1元，1.01-1.50按1.5元，。
以0.5元为最小单位进位，求个算法

Answer 1

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) //计算五角有多少个单位