【AI编写】自定义舍入（类似于四舍五入） - 精易论坛

子程序名	返回值类型	公开	备注
自定义舍入	双精度小数型		自定义舍入函数
参数名	类型	参考	可空	数组	备注
欲被舍入的数值	双精度小数型				待舍入的数值
被舍入的位置	整数型				如果大于0，表示小数点右边应保留的位数,如果等于0，表示舍入到整数；如果小于0，表示小数点左边舍入到的位置。
舍入值	整数型				默认为四舍五入，舍入值为4

变量名	类型	静态	数组	备注
结果	双精度小数型
符号	整数型
整数部分	长整数型
小数部分	双精度小数型
倍数	双精度小数型

如果真 (是否为空 (舍入值))

舍入值＝ 4

' 获取数值的符号
符号＝取符号 (欲被舍入的数值)
欲被舍入的数值＝取绝对值 (欲被舍入的数值)
' 将数值拆分为整数部分和小数部分
整数部分＝到长整数 (欲被舍入的数值)
小数部分＝欲被舍入的数值－整数部分

如果 (被舍入的位置＝ 0)

' 处理保留零位小数的情况

如果 (小数部分 × 10 ＞舍入值)

' 判断小数部分是否大于舍入值/10

结果＝整数部分＋ 1

结果＝整数部分

' 计算倍数

倍数＝求次方 (10, 被舍入的位置)

如果 ( (欲被舍入的数值－整数部分) × 倍数－到长整数 ( (欲被舍入的数值－整数部分) × 倍数) ＞舍入值 ÷ 10)

结果＝整数部分 �� (取整 ( (欲被舍入的数值－整数部分) × 倍数) ＋ 1) ÷ 倍数

结果＝整数部分＋取整 ( (欲被舍入的数值－整数部分) × 倍数) ÷ 倍数

' 恢复数值的符号
结果＝结果 × 符号
返回 (结果)

.版本 2<br />
<br />
.子程序 自定义舍入, 双精度小数型, 公开, 自定义舍入函数<br />
.参数 欲被舍入的数值, 双精度小数型, , 待舍入的数值<br />
.参数 被舍入的位置, 整数型, , 如果大于0，表示小数点右边应保留的位数,如果等于0，表示舍入到整数；如果小于0，表示小数点左边舍入到的位置。<br />
.参数 舍入值, 整数型, 可空, 默认为四舍五入，舍入值为4<br />
.局部变量 结果, 双精度小数型<br />
.局部变量 符号, 整数型<br />
.局部变量 整数部分, 长整数型<br />
.局部变量 小数部分, 双精度小数型<br />
.局部变量 倍数, 双精度小数型<br />
<br />
.如果真 (是否为空 (舍入值))<br />
    舍入值 ＝ 4<br />
.如果真结束<br />
<br />
' 获取数值的符号<br />
符号 ＝ 取符号 (欲被舍入的数值)<br />
欲被舍入的数值 ＝ 取绝对值 (欲被舍入的数值)<br />
<br />
' 将数值拆分为整数部分和小数部分<br />
整数部分 ＝ 到长整数 (欲被舍入的数值)<br />
小数部分 ＝ 欲被舍入的数值 － 整数部分<br />
<br />
.如果 (被舍入的位置 ＝ 0)<br />
    ' 处理保留零位小数的情况<br />
    .如果 (小数部分 × 10 ＞ 舍入值)<br />
        ' 判断小数部分是否大于舍入值/10<br />
        结果 ＝ 整数部分 ＋ 1<br />
    .否则<br />
        结果 ＝ 整数部分<br />
    .如果结束<br />
<br />
.否则<br />
    ' 计算倍数<br />
    倍数 ＝ 求次方 (10, 被舍入的位置)<br />
    .如果 ((欲被舍入的数值 － 整数部分) × 倍数 － 到长整数 ((欲被舍入的数值 － 整数部分) × 倍数) ＞ 舍入值 ÷ 10)<br />
        结果 ＝ 整数部分 ＋ (取整 ((欲被舍入的数值 － 整数部分) × 倍数) ＋ 1) ÷ 倍数<br />
    .否则<br />
        结果 ＝ 整数部分 ＋ 取整 ((欲被舍入的数值 － 整数部分) × 倍数) ÷ 倍数<br />
    .如果结束<br />
<br />
.如果结束<br />
<br />
' 恢复数值的符号<br />
结果 ＝ 结果 × 符号<br />
返回 (结果)