解题报告 报数
1. 题目
报数(Read.pas/c/cpp)
题目描述
新兵到了队伍以后,首先要学习报数,数的朗读成为新兵的一个难题,朗读绝对值小于10亿的数。
新兵们知道汉语中有如下的读数规则:
(1)首先读符号位,然后读整数部分,整数部分之后可能出现小数点,如果有小数部分则小数点一定出现、并且读出小数点之后读小数部分;
(2)符号位的读法是:
(2.1)正数,不论正号"+"是否出现,都不必读出符号位;
(2.2)负数的最左边的符号是"-",读成"负"(以"F"来表示"负");
(3)整数部分的读法是:
(3.1)如果整数部分不存在或者整数部分全是零则直接读成"零"(以"0"来表示"零")
(3.2)否则从整数部分中最左边的非零数字开始读起,然后以十、百、千、万、亿(分别以"S"、"B"、"Q"、"W"、"Y"来表示)等数量单位来拼读整数部分;
(4)整数部分中:
(4.1)每一个非零数字都必须结合各个相应的数量单位读出来;
(4.2)每一段连续的"零"只能读成一个"零",但是某一段连续的"零"的左侧或者右侧不存在非零数字(这里只考虑整数部分)则这一段"零"不应该读出来;
(5)如果有小数部分,则首先读"点"(以"D"来表示"点"),然后从左至右顺序地读出各个小数位。在读小数部分的时候不可以使用十、百、千、万、亿等数量单位;但是小数部分的每一个数字都需要读出来,连续的零不可以读成一个"零",而应该分别读出;
(6)如果数中有小数点而没有小数部分,则不应该把小数点读出来。
例如,-0020030004.567应该读成"F2Q03W04D567",000.89应该读成"0D89"
请你编写程序帮助新兵把给定的数正确的读出来。
输入数据
输入文件仅一行,存放了一个数(不超过50个字符),其绝对值小于10亿。
输出数据
输出文件仅一行,输出这个数的正确读法。
样例输入
-0020030004.567
样例输出
F2Q03W04D567
2. 题目实质
模拟,没有最变态,只有更变态,XD。
将一个数按指定形式输出。
3. 算法
模拟。
4. 注意事项
首先,每个数前面的 0 可以直接用 double 处理:读入一个 double ,或是读入一个字符串,再转换为 double 。
注意小数部分的处理:浮点误差很可恶,最可靠的方法是,读入一个串,再转换成一个 double ,然后处理完整数部分后,将这个串小数点以前的部分删除,直接将这个串输出。
5. 程序代码
SueMiller (pascal)
var nn:double;
flag:boolean;
n:longint;
s:string;
code,p,l,i:integer;
t:string;
begin
assign(input,'Read.in');reset(input);
assign(output,'Read.out');rewrite(output);
readln(t);
val(t,nn);
if nn<0 then write('F');
nn:=abs(nn);
if nn<1 then write('0');
flag:=false;
n:=trunc(nn);
if n>=100000000 then begin write(n div 100000000,'Y');n:=n-n div 100000000*100000000;flag:=true;end;
if n>=10000000 then begin write(n div 10000000,'Q');n:=n-n div 10000000*10000000;flag:=true;end
else if flag then begin write('0');flag:=false;end;
if n>=1000000 then begin write(n div 1000000,'B');n:=n-n div 1000000*1000000;flag:=true;end
else if flag then begin write('0');flag:=false;end;
if n>=100000 then begin write(n div 100000,'S');n:=n-n div 100000*100000;flag:=true;end
else if flag then begin write('0');flag:=false;end;
if n>=10000 then begin write(n div 10000,'W');n:=n-n div 10000*10000;flag:=true;end
else if flag then begin write('0');flag:=false;end;
if n>=1000 then begin write(n div 1000,'Q');n:=n-n div 1000*1000;flag:=true;end
else if flag then begin write('0');flag:=false;end;
if n>=100 then begin write(n div 100,'B');n:=n-n div 100*100;flag:=true;end
else if flag then begin write('0');flag:=false;end;
if n>=10 then begin write(n div 10,'S');n:=n-n div 10*10;end
else if flag then begin write('0');flag:=false;end;
if n>=1 then begin write(n);end;
nn:=nn-trunc(nn);
if nn>0 then
begin
write('D');
l:=length(t);
for i:=1 to l do
if (t[i]='.') then break;
delete(t,1,i);
write(t);
end;
writeln;
close(input);close(output);
end.