主题：念数字
游戏之王
[专家分：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
回复列表 （共13个回复）
沙发
蓝莎菲莹 [专家分：370] 发布于 2007-04-08 16:25:00
CLS
DIM A$(9)
FOR I = 0 TO 9: N = 0
READ A$(I)
NEXT I
DATA Ling,Yi,Er,San,Si,Wu,Liu,Qi,Ba,Jiu
10 INPUT "X="; X: IF X < 0 OR X > 999 OR X <> X \ 1 THEN 10
WHILE X > 0
N = N + 1: A(N) = X MOD 10
X = X \ 10
WEND
FOR I = N TO 1 STEP -1
PRINT A$(A(I)); ; " ";
NEXT I
END
板凳
爱丽斯LING [专家分：560] 发布于 2007-04-08 16:26:00
CLS
DIM A$(9)
FOR I = 0 TO 9: N = 0
READ A$(I)
NEXT I
DATA Ling,Yi,Er,San,Si,Wu,Liu,Qi,Ba,Jiu
10 INPUT "X="; X: IF X < 0 OR X > 999 OR X <> X \ 1 THEN 10
WHILE X > 0
N = N + 1: A(N) = X MOD 10
X = X \ 10
WEND
FOR I = N TO 1 STEP -1
PRINT A$(A(I)); ; " ";
NEXT I
END
3 楼
Lovely哆啦 [专家分：1360] 发布于 2007-04-08 16:28:00
cls
input n$
dim a$(10)
for i=0 to 9:read a$(i):next i
data ling,yi,er,san,si,wu,liu,qi,ba,jiu
for i=1 to len(n$)
n=val(mid(n$,i,1))
? a$(n)
next i
end
4 楼
007bond [专家分：540] 发布于 2007-04-08 16:50:00
cls
input n
do
q=q+1:a(q)=n mod 10:n=n\10
loop until n=0
for i=0 to 9:read b$(i):next i
data LING,YI,ER,SAN,SI,WU,LIU,QI,BA,JIU
for i=1 to q:?b$(a(i));" ";next i
end
5 楼
黑白猪-- [专家分：420] 发布于 2007-04-08 16:50:00
CLS
DIM A$(9)
FOR I = 0 TO 9: N = 0
READ A$(I)
NEXT I
DATA Ling,Yi,Er,San,Si,Wu,Liu,Qi,Ba,Jiu
10 INPUT "X="; X: IF X < 0 OR X > 999 OR X <> X \ 1 THEN 10
WHILE X > 0
N = N + 1: A(N) = X MOD 10
X = X \ 10
WEND
FOR I = N TO 1 STEP -1
PRINT A$(A(I)); ; " ";
NEXT I
END
[em9]
6 楼
chyx [专家分：450] 发布于 2007-04-08 17:07:00
cls
input n$
dim a$(10)
for i=0 to 9
read a$(i)
next i
data ling,yi,er,san,si,wu,liu,qi,ba,jiu
for i=1 to len(n$)
s=val(mid$(n$,i,1))
? a$(s);" ";
next i
7 楼
天尝地酒 [专家分：870] 发布于 2007-04-08 17:21:00
CLS
DIM A$(9)
FOR I = 0 TO 9: N = 0
READ A$(I)
NEXT I
DATA Ling,Yi,Er,San,Si,Wu,Liu,Qi,Ba,Jiu
10 INPUT "X="; X: IF X < 0 OR X > 999 OR X <> X \ 1 THEN 10
WHILE X > 0
N = N + 1: A(N) = X MOD 10
X = X \ 10
WEND
FOR I = N TO 1 STEP -1
PRINT A$(A(I)); ; " ";
NEXT I
END
8 楼
hhhchy [专家分：300] 发布于 2007-04-10 16:44:00
CLS
DIM A$(9)
FOR I = 0 TO 9: N = 0
READ A$(I)
NEXT I
DATA Ling,Yi,Er,San,Si,Wu,Liu,Qi,Ba,Jiu
10 INPUT "X="; X: IF X < 0 OR X > 999 OR X <> X \ 1 THEN 10
WHILE X > 0
N = N + 1: A(N) = X MOD 10
X = X \ 10
WEND
FOR I = N TO 1 STEP -1
PRINT A$(A(I)); ; " ";
NEXT I
END
9 楼
＆佑慧妹妹＆ [专家分：660] 发布于 2007-04-11 21:02:00
INPUT n
a(1) = n MOD 10
a(2) = n \ 10 MOD 10
a(3) = n \ 100
FOR i = 3 TO 1 STEP -1
SELECT CASE a(i)
CASE 1
PRINT "yi"; SPC(1);
CASE 2
PRINT "er"; SPC(1);
CASE 3
PRINT "san"; SPC(1);
CASE 4
PRINT "si"; SPC(1);
CASE 5
PRINT "wu"; SPC(1);
CASE 6
PRINT "liu"; SPC(1);
CASE 7
PRINT "qi"; SPC(1);
CASE 8
PRINT "ba"; SPC(1);
CASE 9
PRINT "jiu"; SPC(1);
CASE ELSE
PRINT "";
END SELECT
NEXT i
=================
但是有点麻烦
10 楼
moz [专家分：37620] 发布于 2007-04-23 02:03:00
ltrim$(mid$("Ling Yi Er San Si Wu Liu Qi Ba Jiu ",i*5+1,5)
我来回复
您所在位置：