一道比较简单的PASCAL等着你

来源：百度知道 编辑：UC知道 时间：2024/05/29 16:01:01
编一个念数字的程序：当你输入0-999中的一个整数时，电脑就会用汉语拼音输出念法。如：input:135 则显示YI BAI SAN SHI WU
如果数不在0-999之间，就打印“CUO LE”（错了）
用PASCAL编程求，若能标明来龙去脉，追加积分。

楼上的，你们是来学习的还是拿积分的啊？？？
答案：
program NinShu;
var x,a,b:integer;
procedure ReadDigit(n:integer);
begin
case n 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;
end;
begin
repeat
readln(x);
if (x<0) or (>999) then write('Cuo le');
until (x>=0) and (x<=999);
if (x>=0) and (x<=9) then ReadDigit(b)
else begin a:=x div 10;b:=x mod 10;
if a<>1 then ReadDigit(b);
writeln('Shi');
if b<>0 then ReadDigit(b);
end;
writeln;
end.

一点诚意也没有，你以为你是谁？

多写几个if就可以了^

现在的人怎么都这么吝啬分哦
搞得一点写程序的欲望都没