有个问题，给个思路

Question

有个加法的程序，不知道如何写，给个思路。
如下：
 x:=100  y:=x+1;
 x:=100.78  y:=x+0.1;
 x:=100.45 y:=x+0.01;

Answer 1

x := 100;
  x1 := frac(x);//取小数
  if x1 = 0 then //小数为0加1
    y := x + 1
  else
  begin
    x1 := Round(x1);//四舍五入
    if x1 = 1 then 
      y := x + 0.1
    else
      y := x + 0.01;
  end;

Answer 2

回：ccdarkness(亲亲我的宝贝) ： 如果，我有小数点后面1000位，你是不是给我1000个else.哈哈

Answer 3

描述的不太详细，就表面数据：
Begin
if x=100 then y:=x+1;
if x=100.78 then y:=x+0.1;
if x=100.45 then y:=x+0.01;
End;

Answer 4

liyu001xj(鲤鱼山) 
把问题说清楚点
我的理解就是
整数就加1
小数四舍五入进位加0.1否则+0.01

Answer 5

自定义一个整数i，初始化为0，每进行一次加法运算就inc（i），小数点后的位数就是i