|
笔算_内置_文本除法 | 文本型 | |
|
被除数 | 文本型 | | | |
除数 | 文本型 | | | | 小数位数 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
局被除数 | 文本型 | | |
局除数 | 文本型 | | |
len | 整数型 | | |
i | 整数型 | | |
局结果 | 文本型 | | |
局返回 | 文本型 | | |
局商 | 整数型 | | |
如果真 (是否为空 (小数位数
))

小数位数 = 2
局被除数 = 被除数局除数 = 除数
如果真 (局除数 =
“0”)
返回 (“null”)
如果真 (局被除数 =
“0”)
返回 (“0”)
笔算_内置_小数化整_除法用 (局被除数, 局除数
)局被除数 = 局被除数 +
取文本左边 (“0000000000000000000000000000000000000000”, 小数位数
) 局被除数 =
笔算_文本数值删0 (局被除数
)局除数 =
笔算_文本数值删0 (局除数
) len =
取文本长度 (局被除数
)
计次循环首 (len, i
)
局结果 =
笔算_内置_文本加法 (局结果 +
“0”,
取文本中间 (局被除数, i, 1
))

判断循环首 (笔算_内置_文本减法 (局结果, 局除数
) ≥
“0”)

局结果 =
笔算_内置_文本减法 (局结果, 局除数
)

局商 = 局商 + 1

判断循环尾 ()
局返回 = 局返回 +
到文本 (局商
)
局商 = 0
计次循环尾 ()len =
取文本长度 (局返回
)
如果真 (小数位数 ≠ 0
)
局返回 =
文本替换 (局返回, len - 小数位数, 1,
取文本中间 (局返回, len - 小数位数, 1
) +
“.”)局返回 = 笔算_文本数值删0 (局返回)返回 (局返回
)