pascal输入一个整数,输出每个数字对应的拼音.当整数为负数时,先输出“fu”字 .比如输入1234 输出yi er san si 速求!
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/17 08:28:14
pascal输入一个整数,输出每个数字对应的拼音.当整数为负数时,先输出“fu”字 .比如输入1234 输出yi er san si 速求!
pascal输入一个整数,输出每个数字对应的拼音.当整数为负数时,先输出“fu”字 .比如输入1234 输出yi er san si 速求!
pascal输入一个整数,输出每个数字对应的拼音.当整数为负数时,先输出“fu”字 .比如输入1234 输出yi er san si 速求!
var
x,t,r:longint;
begin
readln(x);
t:=1;
while(t<x) do t:=10*t;
t:=t div 10;
if(x<0)then
begin
write('fu ');
x:=-x;
end;
while(x>0) do
begin
r:=x div t;
case r of
0:write('ling ');
1:write('yi ');
2:write('er ');
3:write('san ');
4:write('si ');
5:write('wu ');
6:write('liu ');
7:write('qi ');
8:write('ba ');
9:write('jiu ');
end;
x:=x mod t;
t:=t div 10;
end;
readln();
end.