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

题目描述 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.