有个问题，给个思路

[liyu001xj]

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

[ccdarkness]

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;

[supercc]

没看懂问题~~

[ILoveFlower]

顶

[liyu001xj]

就是每次增加最后一位的值。

[liyu001xj]

回：ccdarkness(亲亲我的宝贝) ：

如果，我有小数点后面1000位，你是不是给我1000个else.哈哈

[Jackeystone]

描述的不太详细，就表面数据：
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;

[ccdarkness]

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

[is622]

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