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

 1 var i,j,k,m,n,q,p:longint;    
 2     s:string;    
 3 procedure fz1(s:string);{这里是对于普通的整数进行处理的过程}    
 4 begin    
 5   if s[1]=‘0‘ then begin write(‘0‘);exit;end;{对于答案是0的情况的处理}    
 6   j:=length(s);    
 7   while s[j]=‘0‘ do dec(j);{去0}    
 8   for i:=j downto 1 do{倒向输出即为答案}    
 9     begin    
10       write(s[i]);    
11     end;    
12 end;    
13 procedure fz2(s:string);{对于小数的小数部分的特殊处理}    
14 var i:longint;    
15 begin    
16   j:=length(s);    
17   if s[j]=‘0‘ then begin write(‘0‘);exit;end;    
18   while s[j]=‘0‘ do dec(j);{去掉开头的0}    
19   k:=1;    
20   while s[k]=‘0‘ do inc(k);{去掉末尾的0}    
21   for i:=j downto k do    
22     begin    
23       write(s[i]);    
24     end;    
25 end;    
26 begin    
27   read(s);    
28   n:=length(s);    
29   m:=pos(‘.‘,s);    
30   if m>0 then begin{如果该数据是小数，那么处理}    
31     fz1(copy(s,1,m-1));{对该小数的整数部分处理}    
32     write(‘.‘);{在数据中间打出小数点}    
33     fz2(copy(s,m+1,n));{对于该小数的小数部分的处理}    
34     exit;{处理完后就退出}    
35   end;    
36   p:=pos(‘/‘,s);{以下处理大致与上同}    
37   if p>0 then begin    
38     fz1(copy(s,1,p-1));    
39     write(‘/‘);    
40     fz1(copy(s,p+1,n));    
41     exit;    
42   end;    
43   q:=pos(‘%‘,s);    
44   if q>0 then begin    
45     fz1(copy(s,1,q-1));{对于百分号的数据只需要处理一个数据}    
46     write(‘%‘);    
47     exit;    
48   end;    
49   fz1(s);{如果数据既不是小数、分数也不是百分数那么就直接进行整数的处理}    
50 end.