控制台进制转换程序

标准输出 (, “输入1为10进制转x进制，输入2为x进制转10进制”)
.判断开始 (到整数 (标准输入 ()) ＝ 2)
标准输出 (, “” ＋ #换行符 ＋ “输入原数字的值a=”)
a1 ＝ 到文本 (到整数 (标准输入 ()))
n ＝ 取文本长度 (a1)
标准输出 (, “” ＋ #换行符 ＋ “输入进制的值k=”)
k ＝ 到整数 (标准输入 ())
b1 ＝ 0
i ＝ 1
.判断循环首 (i ＞ n ＝ 假)
b1 ＝ b1 ＋ 求次方 (k, i － 1) × 到整数 (取文本中间 (a1, n － i ＋ 1, 1))
i ＝ i ＋ 1
.判断循环尾 ()
标准输出 (, b1)
标准输入 ()
.默认
标准输出 (, “” ＋ #换行符 ＋ “输入原数字的值a=”)
a2 ＝ 到整数 (标准输入 ())
标准输出 (, “” ＋ #换行符 ＋ “输入进制的值k=”)
k ＝ 到整数 (标准输入 ())
b2 ＝ “”
.判断循环首 (a2 ≠ 0)
b2 ＝ 到文本 (到文本 (a2 ％ k) ＋ b2)
a2 ＝ a2 ＼ k
.判断循环尾 ()
标准输出 (, b2)
标准输入 ()
.判断结束
标准输出 (, “再算其他数？(Y/N)”)
.判断开始 (到大写 (标准输入 ()) ＝ “Y”)
m ＝ 1
.默认
结束 ()