小数转整数进一
如：如：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) |
