用pascal写一个将阿拉伯数字转换为中文大写数字的函数
发布网友
发布时间：2022-04-22 07:39
共1个回答
热心网友
时间：2022-04-22 09:08
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语句好很多。
