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

题目描述 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的，看不懂的算了）：

 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.    

 

 

转载于:https://www.cnblogs.com/geek-007/p/4319268.html