小数转整数进一
如：如：1.1转换后为2，0.1或0.6转为1。 无论小数后面是多少都进1 但是整数进来也会加1
源码
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
.版本 2
.子程序 小数进整数, 小数型, 公开, 如：1.1转换后为2。 无论小数后面是多少都进1 整数进来也会加1
.参数 小数, 小数型
.局部变量 a, 整数型
.局部变量 b, 小数型
b ＝ 到小数 (小数)
.判断开始 (a ＝ b ÷ 1 ＝ 真)
a ＝ b
返回 (0)
.默认
a ＝ b ＋ 1
返回 (a)
|