|
楼主 |
发表于 2019-11-17 19:43:52
|
显示全部楼层
重庆市重庆市
一万兆后还是会出错@a1372704087
- .版本 2
- .支持库 spec
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
- ' 猫扑IM - q949842430
- 调试输出 (大写转整数 (“一”), 大写转整数 (“二”), 大写转整数 (“三”), 大写转整数 (“四”), 大写转整数 (“五”), 大写转整数 (“六”), 大写转整数 (“七”), 大写转整数 (“八”), 大写转整数 (“九”), 大写转整数 (“十”))
- 调试输出 (大写转整数 (“一”), 大写转整数 (“一十”), 大写转整数 (“十一”), 大写转整数 (“一十一”), 大写转整数 (“一百零一”), 大写转整数 (“一百一十”), 大写转整数 (“一百一十一”))
- 调试输出 (大写转整数 (“一万”), 大写转整数 (“一万零一”), 大写转整数 (“一万零一十”), 大写转整数 (“一万一百”), 大写转整数 (“一万一百零一”), 大写转整数 (“一万一百一十”), 大写转整数 (“一万一百一十一”), 大写转整数 (“一万三千”), 大写转整数 (“一万三千六百”), 大写转整数 (“一万三千六百零九”), 大写转整数 (“一万三千六百九十”))
- 调试输出 (大写转整数 (“九十”), 大写转整数 (“九十九”), 大写转整数 (“九百九十九”))
- 调试输出 (大写转整数 (“十万零三千六百零九”))
- 调试输出 (大写转整数 (“一百二十三万四千五百六十七”))
- 调试输出 (大写转整数 (“一千一百二十三万四千五百六十七”))
- 调试输出 (大写转整数 (“一亿一千一百二十三万四千五百六十七”))
- 调试输出 (大写转整数 (“十亿”))
- 调试输出 (大写转整数 (“一百亿”))
- 调试输出 (大写转整数 (“一兆”))
- 调试输出 (大写转整数 (“一百兆”))
- 调试输出 (大写转整数 (“一千兆”))
- 调试输出 (大写转整数 (“一万兆”))
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 大写转整数, 长整数型
- .参数 局_大写, 文本型
- .局部变量 局_数字, 文本型, , "0"
- .局部变量 局_单位, 文本型, , "0"
- .局部变量 局_分割, 文本型, , "0"
- .局部变量 局_换算, 长整数型
- .局部变量 局_计次, 整数型
- .局部变量 子_计次, 整数型
- .局部变量 局_运算, 长整数型
- .局部变量 局_小写, 长整数型, , "0"
- .局部变量 局_临时, 文本型
- 局_大写 = 文本_颠倒 (局_大写, 真)
- 局_数字 = { “〇”, “0”, “一”, “1”, “二”, “2”, “三”, “3”, “四”, “4”, “五”, “5”, “六”, “6”, “七”, “7”, “八”, “8”, “九”, “9”, “零”, “0”, “壹”, “1”, “贰”, “2”, “叁”, “3”, “肆”, “4”, “伍”, “5”, “陆”, “6”, “柒”, “7”, “捌”, “8”, “玖”, “9”, “貮”, “2”, “两”, “2” }
- 重定义数组 (局_数字, 真, 22, 2)
- 局_单位 = { “十”, “10”, “拾”, “10”, “百”, “100”, “佰”, “100”, “千”, “1000”, “仟”, “1000”, “万”, “10000”, “萬”, “10000”, “亿”, “100000000”, “億”, “100000000”, “兆”, “1000000000000” }
- 重定义数组 (局_单位, 真, 11, 2)
- .计次循环首 (文本_逐字分割 (局_大写, 局_分割), 局_计次)
- .如果 (单位数组 (局_单位, 局_分割 [局_计次], 子_计次))
- 局_换算 = 到长整数 (局_单位 [子_计次] [2])
- .如果真 (局_换算 = 10000 或 局_换算 ≥ 100000000)
- 加入成员 (局_小写, 局_换算)
- 局_换算 = 1
- .如果真结束
- .否则
- 局_运算 = 数字数组 (局_数字, 局_分割 [局_计次])
- .如果真 (局_换算 > 0)
- 局_运算 = 局_运算 × 局_换算
- 局_换算 = 0
- .如果真结束
- 加入成员 (局_小写, 局_运算)
- .如果结束
- .计次循环尾 ()
- .如果真 (局_换算 = 10)
- 加入成员 (局_小写, 10)
- .如果真结束
- 连续赋值 (0, 局_运算, 局_换算)
- .变量循环首 (取数组成员数 (局_小写), 1, -1, 局_计次)
- .如果 (局_小写 [局_计次] = 10000 或 局_小写 [局_计次] ≥ 100000000)
- 局_运算 = 局_运算 + 局_换算 × 局_小写 [局_计次]
- 局_换算 = 0
- .否则
- 局_换算 = 局_换算 + 局_小写 [局_计次]
- .如果结束
- .变量循环尾 ()
- 局_运算 = 局_运算 + 局_换算
- 返回 (局_运算)
- .子程序 单位数组, 逻辑型
- .参数 局_数组, 文本型, 数组
- .参数 局_对比, 文本型
- .参数 局_计次, 整数型, 参考
- .计次循环首 (11, 局_计次)
- .如果真 (局_对比 = 局_数组 [局_计次] [1])
- 返回 (真)
- .如果真结束
- .计次循环尾 ()
- 返回 (假)
- .子程序 数字数组, 整数型
- .参数 局_数组, 文本型, 数组
- .参数 局_对比, 文本型
- .局部变量 局_计次, 整数型
- .计次循环首 (22, 局_计次)
- .如果真 (局_对比 = 局_数组 [局_计次] [1])
- 返回 (到长整数 (局_数组 [局_计次] [2]))
- .如果真结束
- .计次循环尾 ()
- 返回 (0)
复制代码 |
|