• 周五. 7月 1st, 2022

5G编程聚合网

5G时代下一个聚合的编程学习网

热门标签

洛谷-数字反转(升级版)-简单字符串

admin

11月 28, 2021
题目描述 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.    

发表评论

您的电子邮箱地址不会被公开。