第1个回答 2013-02-26
我给你个三舍四入怎么样？自己想的！
版本 2
.子程序 三舍四入, 整数型, , 返回结果
.参数 需要舍入的数值, 双精度小数型
.局部变量 整数部分, 整数型
.局部变量 小数部分, 双精度小数型
.局部变量 分割的文本, 文本型, , "2"
.局部变量 小数部分的舍入, 双精度小数型
分割的文本 ＝ 分割文本 (到文本 (需要舍入的数值), “.”, )
整数部分 ＝ 到整数 (分割的文本 [1])
小数部分 ＝ 到数值 (分割的文本 [2])
小数部分的舍入 ＝ 到数值 (取文本左边 (到文本 (小数部分), 1))
.如果 (小数部分的舍入 ≥ 4)
整数部分 ＝ 整数部分 ＋ 1
返回 (整数部分)
.否则
返回 (整数部分)
源码下载地址：1000eb.com/g7xz本回答被网友采纳