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.