P1553 数字反转（升级版）

题目描述

给定一个数，请将该数各个位上数字反转得到一个新数。

这次与NOIp2011普及组第一题不同的是：这个数可以是小数，分数，百分数，整数。整数反转是将所有数位对调；小数反转是把整数部分的数反转，再将小数部分的数反转，不交换整数部分与小数部分；分数反转是把分母的数反转，再把分子的数反转，不交换分子与分母；百分数的分子一定是整数，百分数之改变数字部分。整数新数也应满足整数的常见形式，即除非给定的原数为零，否则反转后得到的新数的最高位数字不应为零；小数新数的末尾不为0（除非小数部分除了0没有别的数，那么只保留1个0）；分数不约分，分子和分母都不是小数（约分滴童鞋抱歉了，不能过哦。输入数据保证分母不为0），本次没有负数。

输入输出格式

输入格式：

一个数s

输出格式：

一个数，即s的反转数

输入输出样例

输入样例#1：

①5087462②600.084③700/27④8670%

输出样例#1：

①2647805②6.48③7/72④768%

说明

所有数据：25%s是整数，不大于20位

25%s是小数，整数部分和小数部分均不大于10位

25%s是分数，分子和分母均不大于10位

25%s是百分数，分子不大于19位

（20个数据）

var

s,ss,sss:string;

i,x,j,sj,len:longint;

begin

read(s);

len:=length(s);

ifpos('.',s)<>0 thenbeginj:=pos('.',s); sj:=1end//做小数记号

elseifpos('/',s)<>0 then j:=pos('/',s)//做分数记号

 elseifpos('%',s)<>0 then j:=pos('%',s);//做百分数记号

if s[1]='-'thenbegin//当数字为负数时先输负号

write('-');

delete(s,1,1);

end;

if j=0 then//如果数字是整数

for i:=length(s) downto 1do//反转

begin

if s[i]<>'0'theninc(x);//不是0时打记号

if x>0thenwrite(s[i]);//输出

if (i=1) and (x=0)thenwrite(0);//如果之前有数字或者没得输了就可以输0了

end;

if j<>0 then//如果不是整数

begin

ss:=copy(s,1,j-1);//符号前的数字

sss:=copy(s,j+1,len);//符号后的数字

for i:=length(ss) downto 1do//反转

begin

if ss[i]<>'0'theninc(x);

if x>0thenwrite(ss[i]);

if (i=1) and (x=0)thenwrite(0);

end;

x:=0;

write(s[j]);//输符号

if sj>0 then

for i:=1tolength(sss)do//删去多余的0

begin

if sss[1]<>'0' theninc(x);

if x=0thendelete(sss,1,1)

elsebreak;

end;

 for i:=length(sss) downto 1do//反转

begin

if sss[i]<>'0'theninc(x);

if x>0thenwrite(sss[i]);

if (i=1) and (x=0)thenwrite(0);

end;

if (i=0) and (sj>0)thenwrite(0);//都没有就输0吧┑(￣Д ￣)┍

end;

end.