【AI编写】自定义舍入（类似于四舍五入）

z573277679 · 发表于 2024-11-10 17:20:01

AI编写，已通过各项测试。自定义舍入可以根据指定的舍入值和保留小数位数对数值进行舍入。

功能：
可以实现各种舍入方式，例如：四舍五入、五舍六入、三舍四入等等。
可以指定保留的小数位数，包括保留零位小数。
可以处理正数、负数和零。

参数：
数值：待舍入的数值（双精度小数型）。
小数位数：要保留的小数位数（整数型）。
舍入值：舍入值，用于确定舍入规则（整数型）。例如，四舍五入的舍入值为 4，五舍六入的舍入值为 5。

自定义舍入.e (953.1 KB, 下载次数: 7)

轻风影 · 发表于 2024-11-13 20:20:13

本帖最后由轻风影于 2024-11-13 20:22 编辑

整数部分要换成长整数存储，否则会出错。简单升级了一下：

子程序名	返回值类型	公开	备注
自定义舍入	双精度小数型		自定义舍入函数
参数名	类型	参考	可空	数组	备注
欲被舍入的数值	双精度小数型				待舍入的数值
被舍入的位置	整数型				如果大于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 />
返回 (结果)