念数字 — 编程爱好者社区

主题：念数字

游戏之王 [专家分：540] 发布于 2007-04-08 16:22:00

从键盘输入0--999中的任意一个整数,将其换成汉语拼音表示并打印输出。以X4为名存盘
例如: 输入:15 输入:238
输出:YI WU 输出:ER SAN BA
[em16][em15][em1][em2][em3][em4][em5][em6][em7][em8][em9][em10][em11][em12][em13][em14][em15][em16][em17][em18][em19][em20][em63][em51][em70][em69][em49][em40][em29][em19][em18][em17][em6][em25][em45][em33][em43][em41]

最后更新于：2007-05-09 10:13:00

本帖地址： http://bbs.pfan.cn/post/225330.html

回复列表（共13个回复）

11 楼

xgf0 [专家分：60] 发布于 2007-05-02 12:16:00

cls
    dim a$(9)
  for i = 0 to 9
      read a$(i)
  next
data ling,yi,er,san,si,wu,liu,qi,ba,jiu
input x
c$=ltrim$(rtrim$(str$(x))):d=len(c$)
for i = 1 to d
print b$(val(mid$(c$,i,1))),
next i

12 楼

游戏之王 [专家分：540] 发布于 2007-05-09 10:15:00

太麻烦了!我才不给你加分

13 楼

美味的汽水 [专家分：70] 发布于 2007-05-10 21:58:00

我的最简单！
cls
data ling,yi,er,san,si,wu,liu,qi,ba,jiu
input n$
la=len(n$)
for i=1 to la
x$=mid$(n$,i,1)
for j=1 to val(x$)
read z$
next j
print z$;
next i

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：念数字

回复列表（共13个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：念数字

回复列表 （共13个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共13个回复）