求个写法。大婶帮忙啊！

我了个雀

求个写法。大婶帮忙啊！

只要小数部分不是0，整数部分进1

例如： 115.1214 = 116
            111.0144=112      这样怎么写的？

呵呵仙

  

子程序名	返回值类型	公开	备 注
不是整数的加1	整数型
参数名	类 型	参考	可空	数组	备 注
双精度小数型	双精度小数型

变量名	类 型	静态	数组	备 注
A	整数型

如果 (双精度小数型 ％ 1 ≠ 0)
A ＝ 双精度小数型 ＋ 1
A ＝ 双精度小数型
返回 (A)
' 这样更精简

.版本 2<br /> <br /> .子程序 不是整数的加1, 整数型<br /> .参数 双精度小数型, 双精度小数型, 参考<br /> .局部变量 A, 整数型, 静态<br /> <br /> .如果 (双精度小数型 ％ 1 ≠ 0)<br /> A ＝ 双精度小数型 ＋ 1<br /> .否则<br /> A ＝ 双精度小数型<br /> .如果结束<br /> 返回 (A)<br /> '这样更精简

荣耀Lin

帮你顶顶人气，看不懂啊！

正鑫软件开发

.版本 2

.如果真 (取文本右边 (文本_取右边 (编辑框1.内容, “.”), 1) ＝ “0”)
    编辑框1.内容 ＝ 文本_取左边 (编辑框1.内容, “.”)
.如果真结束
.如果真 (取文本右边 (文本_取右边 (编辑框1.内容, “.”), 1) ≠ “0”)
    编辑框1.内容 ＝ 到文本 (到整数 (文本_取左边 (编辑框1.内容, “.”)) ＋ 1)

fq19851220

  

变量名	类 型	静态	数组	备 注
数	小数型
数文本数组	文本型		0
结果	整数型

数 ＝ 112.123
数文本数组 ＝ 分割文本 (到文本 (数), “.”, )
如果真 (取数组成员数 (数文本数组) ＞ 1)
判断 (取文本左边 (数文本数组 [2], 1) ＝ “0”)
结果 ＝ 取整 (数)
结果 ＝ 取整 (数) ＋ 1


调试输出 (结果)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 数, 小数型<br /> .局部变量 数文本数组, 文本型, , "0"<br /> .局部变量 结果, 整数型<br /> <br /> 数 ＝ 112.123<br /> 数文本数组 ＝ 分割文本 (到文本 (数), “.”, )<br /> .如果真 (取数组成员数 (数文本数组) ＞ 1)<br /> .判断开始 (取文本左边 (数文本数组 [2], 1) ＝ “0”)<br /> 结果 ＝ 取整 (数)<br /> .默认<br /> 结果 ＝ 取整 (数) ＋ 1<br /> .判断结束<br /> <br /> .如果真结束<br /> <br /> 调试输出 (结果)

呵呵仙

  

子程序名	返回值类型	公开	备 注
不是整数的加1	整数型
参数名	类 型	参考	可空	数组	备 注
双精度小数型	双精度小数型

变量名	类 型	静态	数组	备 注
A	整数型

如果 (双精度小数型 ％ 1 ≠ 0)
A ＝ 取整 (双精度小数型) ＋ 1
A ＝ 取整 (双精度小数型)
返回 (A)

.版本 2<br /> <br /> .子程序 不是整数的加1, 整数型<br /> .参数 双精度小数型, 双精度小数型, 参考<br /> .局部变量 A, 整数型, 静态<br /> <br /> .如果 (双精度小数型 ％ 1 ≠ 0)<br /> A ＝ 取整 (双精度小数型) ＋ 1<br /> .否则<br /> A ＝ 取整 (双精度小数型)<br /> .如果结束<br /> 返回 (A)

补充内容 (2016-3-29 23:38):
应是这样写吧