作业帮 > 综合 > 作业

pascal输入一个整数,输出每个数字对应的拼音.当整数为负数时,先输出“fu”字 .比如输入1234 输出yi er

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/21 12:18:33
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.