用pascal写一个将阿拉伯数字转换为中文大写数字的函数

来源：百度知道 编辑：UC知道 时间：2024/05/17 21:09:51
试编写一个将阿拉伯数字转换为中文大写数字的函数。(如中文状态不方便，可以替换为ABCDEFGHIJ)

注意 最后说明过程的大概思想 谢谢

program Change1;

var numb:byte;

begin
readln(numb);
case numb of
0:writeln('Ling');
1:writeln('Yi');
2:writeln('Er');
中间的自己补全吧。
9:writeln('Jiu');
end;
end.

用的是Case语句。这是一个可以分很多类别处理的框架结构，比单纯的一堆If语句好很多。