装载 模板\干支转换模板
编 转简体中文数字 ( 阿拉伯数字 --- 地址 长度 ) \ 将阿拉伯数字换成简体中文数字
字串" 零一二三四五六七八九十"
∴ 是实数就转整数
♂ 0 11 >=且<
就 2 * 2 剪串腹 双↑↓ 双♀
否则 双♀ ♀ 字串" 阿拉伯数字不正确" 印字串
然后 。
编 转正体中文数字 ( 阿拉伯数字 --- 地址 长度 ) \ 将阿拉伯数字换成正体中文数字
字串" 零壹贰叁肆伍陆柒捌玖拾"
∴ 是实数就转整数
♂ 0 11 >=且<
就 2 * 2 剪串腹 双↑↓ 双♀
否则 双♀ ♀ 字串" 阿拉伯数字不正确" 印字串
然后 。
编 转阿拉伯数字 ( 地址 长度 --- 阿拉伯数字 ) \ 将中文数字换成阿拉伯数字
摞层 2 < 就 1 否则 然后
字串" 一二三四五六七八九十零" 3 § 3 § 串搜寻 -1 = 就
22 ↑↓ - 2 / 1 + 1 √ 双↑↓ 双♀ ♀ 否则
双♀ 字串" 壹贰叁肆伍陆柒捌玖拾零" 3 √ 3 √ 串搜寻 -1 = 就
22 ↑↓ - 2 / 1 + 1 √ ♀ 否则
双♀ 字串" 中文数字不正确" 印字串
然后 然后 。
编 单数显 ( 多位数字 --- 多个数字 数字个数 ) \ 将多位数字的每一位按顺序单独列出
是实数就转整数 数>串
♂ 0 ?循环 ∽ 内环数 + 1 串>数 双♀ ∵ 回环 ↑↓ ♀ 。
编 简体中文数字 ( 多位阿拉伯数字 --- 多位简体中文数字 )
{ \ 简体中文数字串 -- }
255 个字节空给 简体中文数字串
单数显 ♂ 0 ?循环 ♂ 内环数 - √
转简体中文数字 内环数 0= 就 简体中文数字串 字串传送 否则
简体中文数字串 字串+传送 然后 回环 ♀
简体中文数字串 计字节 。
编 正体中文数字 ( 多位阿拉伯数字 --- 多位正体中文数字 )
{ \ 正体中文数字串 -- }
255 个字节空给 正体中文数字串
单数显 ♂ 0 ?循环 ♂ 内环数 - √
转正体中文数字 内环数 0= 就 正体中文数字串 字串传送 否则
正体中文数字串 字串+传送 然后 回环 ♀
正体中文数字串 计字节 。
编 加底数
1 ?循环 ∽ ∵ 回环 。
编 加乘号
1 ?循环 * 回环 。
编 若干正数相乘
是实数就转整数 ♂ 1 = 就 ♀ 否则
♂ 加底数 加乘号 然后 。
编 整次方 ( 底数 指数 --- 底数的整次方幂 )
是实数就转整数 ↑↓ 是实数就转整数 ↑↓
♂ 0= 就 双♀ 1 否则
∽ 0= 就 双♀ 0 否则
双♂ 0> ↑↓ 0> 与 就 若干正数相乘 否则
双♂ 0< ↑↓ 0> 与 就 若干正数相乘 1 ↑↓ / 否则
双♂ 0> ↑↓ 0< 与 就 ♂ 2 求余数 0= 就 ↑↓ 绝对值 ↑↓ 若干正数相乘 否则
♂ 2 求余数 1 = 就 ↑↓ 绝对值 ↑↓ 若干正数相乘 -1 * 否则
然后 然后 否则
双♂ 0< ↑↓ 0< 与 就 ♂ 2 求余数 0= 就 ↑↓ 绝对值 ↑↓ 若干正数相乘 1 ↑↓ / 否则
♂ 2 求余数 1 = 就 ↑↓ 绝对值 ↑↓ 若干正数相乘 -1 / 否则
然后 然后 否则
然后 然后 然后 然后 然后 然后 。
编 简体中文大整数位 ( 中文大整数位序数 --- 简体中文大整数位名词 ) (( 中文大整数位序数是指将某整数位以10的N次方表示,再将10的指数以2的N次方表示,如果该整数以10的N次方表示的指数同时也能以2的N次方的形式表达,那么2的指数就为大整数位,2的指数为其序数(2的指数小于2时,不适用此规则,而特规定个位为第一个大整数位,其序数为1) ))
是实数就转整数 ♂ 1 14 >=且<
就 字串" 点万亿兆京垓杼穰沟涧正载极" ∴ 1 - 2 * 2 剪串腹 双↑↓ 双♀
否则 ♀ 字串" 中文大整数位序数不正确" 印字串
然后 。
编 正体中文大整数位 ( 中文大整数位序数 --- 正体中文大整数位名词 ) (( 中文大整数位序数是指将某整数位以10的N次方表示,再将10的指数以2的N次方表示,如果该整数以10的N次方表示的指数同时也能以2的N次方的形式表达,那么2的指数就为大整数位,2的指数为其序数(2的指数小于2时,不适用此规则,而特规定个位为第一个大整数位,其序数为1) ))
是实数就转整数 ♂ 1 14 >=且<
就 字串" 點萬億兆京垓杼穰溝澗正載極" ∴ 1 - 2 * 2 剪串腹 双↑↓ 双♀
否则 ♀ 字串" 中文大整数位序数不正确" 印字串
然后 。
编 简体中文小整数位 ( 中文小整数位序数 --- 简体中文小整数位名词 ) \ 中文小整数位序数为: 1、2、3(十、百、千)
是实数就转整数 ♂ 1 4 >=且<
就 字串" 十百千" ∴ 1 - 2 * 2 剪串腹 双↑↓ 双♀
否则 ♀ 字串" 中文小整数位阿拉伯序数不正确" 印字串
然后 。
编 正体中文小整数位 ( 中文小整数位序数 --- 正体中文小整数位名词 ) \ 中文小整数位序数为: 1、2、3(十、百、千)
是实数就转整数 ♂ 1 4 >=且<
就 字串" 拾佰仟" ∴ 1 - 2 * 2 剪串腹 双↑↓ 双♀
否则 ♀ 字串" 中文小整数位阿拉伯序数不正确" 印字串
然后 。
(( 编 正体中文小整数位 ( 中文小整数位序数 --- 正体中文小整数位名词 ) \ 中文小整数位序数为某整数位以10的N次方表示的不被4整除的指数
字串" 拾佰仟"
∴ 是实数就转整数 ♂ 4 求余数 0= 非
就 4 求余数 1 - 2 * 2 剪串腹 双↑↓ 双♀
否则 双♀ ♀ 字串" 中文小整数位阿拉伯序数不正确" 印字串
然后 。 ))
0 给 大整位序基值
编 大整数位基变换 ( 大整数位序 --- 以该整数位序对应整数位为基值的计数 )
♂ 1 = 就 0 写入 大整位序基值 否则
♂ 2 14 >=且< 就 2 ↑↓ 整次方 写入 大整位序基值 否则
♀ 字串" 大整数位序数不正确" 印字串 然后 然后 。
编 简体中文整数位 ( 中文整数位序数 --- 简体中文整数位名词 ) \ 中文整数位序数为某整数位以10的N次方表示的指数
是实数就转整数
♂ 4 求余数 0= 非 就 4 求余数 简体中文小整数位 否则
♂ 4 / 0= 就 ♀ 1 简体中文大整数位 否则
14 2 循环 ♂ 2 内环数 1 + 整次方 求余数 2 内环数 整次方 =
就 内环数 简体中文大整数位 然后 回环 ∴ ♀ 然后 然后 。
编 正体中文整数位 ( 中文整数位序数 --- 正体中文整数位名词 ) \ 中文整数位序数为某整数位以10的N次方表示的指数
是实数就转整数
♂ 4 求余数 0= 非 就 4 求余数 正体中文小整数位 否则
♂ 4 / 0= 就 ♀ 1 正体中文大整数位 否则
14 2 循环 ♂ 2 内环数 1 + 整次方 求余数 2 内环数 整次方 =
就 内环数 正体中文大整数位 然后 回环 ∴ ♀ 然后 然后 。
(( 编 正体中文整数位 ( 中文整数位序数 --- 正体中文整数位名词 ) \ 中文整数位序数为某整数位以10的N次方表示的指数
是实数就转整数 ♂ 4 求余数 0= 就 简体中文大整数位 否则
简体中文小整数位 然后 。 ))
编 去串腹
{ \ 临时串 -- }
255 个字节空给 临时串
∽ + 双↑↓ 3 √ 0 ↑↓ 剪串腹 临时串 字串传送
∴ 双♂ - 剪串腹 临时串 字串+传送 临时串 计字节 。
编 零数位去位名
{ \ 临时去位串 -- }
255 个字节空给 临时去位串
♂ 4 / 大整位序基值 + 大整位序基值 ?循环 双♂ 字串" 零" 内环数 简体中文整数位 字串拼接
串搜寻 -1 = 内环数 4 求余数 0= 非 与 就 ↑↓ ♀ 双♂ 2 - - ♂ 2 + ∴ 4 - ∴
0 ↑↓ 双∴ 双↑↓ 剪串腹 临时去位串 字串传送
双↑↓ 剪串腹 双↑↓ 双♀ 临时去位串 字串+传送 临时去位串 计字节
否则 双♀ 然后 回环 。
编 连续零去零
{ \ 临时去零串 -- }
255 个字节空给 临时去零串
♂ 4 / 大整位序基值 + 大整位序基值 ?循环 双♂ 字串" 零零"
串搜寻 -1 = 就 ↑↓ ♀ 双♂ 2 - - ♂ 2 + ∴ 4 - ∴ 0 ↑↓ 双∴ 双↑↓ 剪串腹 临时去零串 字串传送
双↑↓ 剪串腹 双↑↓ 双♀ 临时去零串 字串+传送 临时去零串 计字节
否则 双♀ 然后 回环 。
编 去大整数位零值
{ \ 大整数位零值串 -- }
255 个字节空给 大整数位零值串
大整位序基值 ?循环 双♂ 字串" 零" 内环数 简体中文整数位 字串拼接
串搜寻 -1 = 内环数 4 求余数 0= 与 就 ↑↓ ♀ 双♂ - ♂ 2 +
∴ 2 - ∴ 0 ↑↓ 双∴ 双↑↓ 剪串腹 大整数位零值串 字串传送
双↑↓ 剪串腹 双↑↓ 双♀ 大整数位零值串 字串+传送 大整数位零值串 计字节
否则 双♀ 然后 回环 。
编 两大整数位相连取高位
{ \ 大整数位串 -- }
255 个字节空给 大整数位串
大整位序基值 ?循环 双♂ 内环数 0 8192 >=且< 就
内环数 2 * 简体中文整数位 内环数 2 * 4 - 简体中文整数位 字串拼接
串搜寻 -1 = 内环数 4 /余商 0= 非 ↑↓ 0= 与 与 就
↑↓ ♀ 双♂ 2 - - ♂ 2 + ∴ 4 - ∴ 0 ↑↓ 双∴ 双↑↓ 剪串腹 大整数位串 字串传送
双↑↓ 剪串腹 双↑↓ 双♀ 大整数位串 字串+传送 大整数位串 计字节
否则 双♀ 然后 然后 回环 。
编 简体中文计数 ( 阿拉伯整数 --- 简体中文整数 ) \ 在中文整数表示的个位数后加了一个“点”字,这是留作未来扩展的,可以改成其他,比如,元,只等等。
{ \ 简体中文计数串 简体中文整数位数 -- }
255 个字节空给 简体中文计数串
255 个字节空给 简体中文整数位数
是实数就转整数 单数显 ♂ 大整位序基值 + 写入 简体中文整数位数
♂ 0 ?循环 ♂ 内环数 - √
转简体中文数字 内环数 0= 就 简体中文计数串 字串传送
否则 简体中文计数串 字串+传送
然后
♂ 内环数 1 + - 大整位序基值 + 简体中文整数位 简体中文计数串 字串+传送
回环 ♀
简体中文计数串 计字节 零数位去位名 连续零去零
简体中文整数位数 去大整数位零值 简体中文整数位数 两大整数位相连取高位 。
编 正体中文计数 \ 在中文整数表示的个位数后加了一个“點”字,这是留作未来扩展的,可以改成其他,比如,元,只等等。
{ \ 正体中文计数串 正体中文整数位数 -- }
255 个字节空给 正体中文计数串
255 个字节空给 正体中文整数位数
是实数就转整数 单数显 ♂ 大整位序基值 + 写入 正体中文整数位数
♂ 0 ?循环 ♂ 内环数 - √
转正体中文数字 内环数 0= 就 正体中文计数串 字串传送
否则 正体中文计数串 字串+传送
然后
♂ 内环数 1 + - 大整位序基值 + 正体中文整数位 正体中文计数串 字串+传送
回环 ♀
正体中文计数串 计字节 零数位去位名 连续零去零
正体中文整数位数 去大整数位零值 正体中文整数位数 两大整数位相连取高位 。
编 简体夏历日序 ( 阿拉伯数字夏历日序 --- 简体中文数字夏历日序 )
{ \ 简体夏历日序串 -- }
255 个字节空给 简体夏历日序串
是实数就转整数
♂ 1 11 >=且<
就 字串" 初" 简体夏历日序串 字串传送 转简体中文数字 简体夏历日序串 字串+传送 否则
♂ 11 20 >=且<
就 字串" 十" 简体夏历日序串 字串传送 单数显 ∴ 双♀ 转简体中文数字 简体夏历日序串 字串+传送 否则
♂ 21 30 >=且<
就 字串" 廿" 简体夏历日序串 字串传送 单数显 ∴ 双♀ 转简体中文数字 简体夏历日序串 字串+传送 否则
♂ 20 = ∽ 30 = 或
就 单数显 双♀ 转简体中文数字 简体夏历日序串 字串传送 字串" 十" 简体夏历日序串 字串+传送 否则
字串" 夏历日序数不正确" 印字串
然后 然后 然后 然后
简体夏历日序串 计字节 。
编 正体夏历日序 ( 阿拉伯数字夏历日序 --- 正体中文数字夏历日序 )
{ \ 正体夏历日序串 -- }
255 个字节空给 正体夏历日序串
是实数就转整数
♂ 1 11 >=且<
就 字串" 初" 正体夏历日序串 字串传送 转正体中文数字 正体夏历日序串 字串+传送 否则
♂ 11 20 >=且<
就 字串" 拾" 正体夏历日序串 字串传送 单数显 ∴ 双♀ 转正体中文数字 正体夏历日序串 字串+传送 否则
♂ 21 30 >=且<
就 字串" 廿" 正体夏历日序串 字串传送 单数显 ∴ 双♀ 转正体中文数字 正体夏历日序串 字串+传送 否则
♂ 20 = ∽ 30 = 或
就 单数显 双♀ 转正体中文数字 正体夏历日序串 字串传送 字串" 拾" 正体夏历日序串 字串+传送 否则
字串" 夏历日序数不正确" 印字串
然后 然后 然后 然后
正体夏历日序串 计字节 。
编 简体夏历月序 ( 阿拉伯数字夏历月序 --- 简体中文数字夏历月序 )
{ \ 简体夏历月序串 -- }
255 个字节空给 简体夏历月序串
是实数就转整数
♂ 1 11 >=且<
就 转简体中文数字 简体夏历月序串 字串传送 否则
♂ 11 13 >=且<
就 字串" 十" 简体夏历月序串 字串传送 单数显
∴ 双♀ 转简体中文数字 简体夏历月序串 字串+传送 否则
字串" 夏历月序数不正确" 印字串
然后 然后 字串" 月" 简体夏历月序串 字串+传送
简体夏历月序串 计字节 。
编 正体夏历月序 ( 阿拉伯数字夏历月序 --- 正体中文数字夏历月序 )
{ \ 正体夏历月序串 -- }
255 个字节空给 正体夏历月序串
是实数就转整数
♂ 1 11 >=且<
就 转正体中文数字 正体夏历月序串 字串传送 否则
♂ 11 13 >=且<
就 字串" 拾" 正体夏历月序串 字串传送 单数显
∴ 双♀ 转正体中文数字 正体夏历月序串 字串+传送 否则
字串" 夏历月序数不正确" 印字串
然后 然后 字串" 月" 正体夏历月序串 字串+传送
正体夏历月序串 计字节 。
\ /////////////★秦汉昌★2009.元.17★上海★