整数到中文

.判断循环首 (num ＞ 0)
section ＝ num ％ 10000 ' //得到最后面的小节
.如果真 (setZero) ' //判断上一小节的千位是否为零，是就设置零
chinese ＝ nums [1] ＋ chinese
.如果真结束
chinese_section ＝ sectionTrans (section)
.如果真 (section ≠ 0) ' //判断是都加节权位
chinese_section ＝ chinese_section ＋ weight_units [weigth]
.如果真结束
chinese ＝ chinese_section ＋ chinese
chinese_section ＝ “”
setZero ＝ section ＜ 1000 且 section ＞ 0
num ＝ num ÷ 10000
weigth ＝ weigth ＋ 1
.如果真 (取文本长度 (chinese) ＝ 2 或 取文本长度 (chinese) ＝ 3 且 寻找文本 (chinese, “一十”, , 假) ＞ 0)
chinese ＝ 取文本中间 (chinese, 1, 取文本长度 (chinese))
.如果真结束
.如果真 (indexOf (chinese, “一十”) ＝ 0)
chinese ＝ 子文本替换 (chinese, “一十”, “十”, , 1, 真)
.如果真结束

.判断循环尾 ()