小數轉整數進一
如：如：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) |
