洛谷-数字反转（升级版）-简单字符串

题目描述 Description

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

输入输出格式 Input/output

输入格式：
一个数s
输出格式：
一个数，即s的反转数

输入输出样例 Sample input/output

样例测试点#1

输入样例：

①
5087462
②
600.084
③
700/27
④
8670%

输出样例：

①
2647805
②
6.48
③
7/72
④
768%

说明 description

所有数据：25%s是整数，不大于20位
25%s是小数，整数部分和小数部分均不大于10位
25%s是分数，分子和分母均不大于10位
25%s是百分数，分子不大于19位
（20个数据）

思路:这题有点难度，要分类别进行运算，判断是否是百分数，小数，整数，分数进行运算。
代码如下（本代码来源于九度OJ，代码是PASCAL的，看不懂的算了）：

var i,j,k,m,n,q,p:longint;
s:string;
procedure fz1(s:string);{这里是对于普通的整数进行处理的过程}
begin
if s[1]='0' then begin write('0');exit;end;{对于答案是0的情况的处理}
j:=length(s);
while s[j]='0' do dec(j);{去0}
for i:=j downto 1 do{倒向输出即为答案}
begin
write(s[i]);
end;
end;
procedure fz2(s:string);{对于小数的小数部分的特殊处理}
var i:longint;
begin
j:=length(s);
if s[j]='0' then begin write('0');exit;end;
while s[j]='0' do dec(j);{去掉开头的0}
k:=1;
while s[k]='0' do inc(k);{去掉末尾的0}
for i:=j downto k do
begin
write(s[i]);
end;
end;
begin
read(s);
n:=length(s);
m:=pos('.',s);
if m>0 then begin{如果该数据是小数，那么处理}
fz1(copy(s,1,m-1));{对该小数的整数部分处理}
write('.');{在数据中间打出小数点}
fz2(copy(s,m+1,n));{对于该小数的小数部分的处理}
exit;{处理完后就退出}
end;
p:=pos('/',s);{以下处理大致与上同}
if p>0 then begin
fz1(copy(s,1,p-1));
write('/');
fz1(copy(s,p+1,n));
exit;
end;
q:=pos('%',s);
if q>0 then begin
fz1(copy(s,1,q-1));{对于百分号的数据只需要处理一个数据}
write('%');
exit;
end;
fz1(s);{如果数据既不是小数、分数也不是百分数那么就直接进行整数的处理}
end.