本文主要是介绍NOIP2016普及组复赛第二题60分程序加题解pascal大神求帮忙！！！———回文日期，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
NOIP2016普及组复赛第二题60分程序加题解pascal我是渣渣求帮忙！！！
题目描述
牛牛习惯用8位数字表示一个日期，其中，前4位代表年份，接下来2位代表月 份，最后2位代表日期。显然：一个日期只有一种表示方法，而两个不同的日期的表示方法不会相同。
牛牛认为，一个日期是回文的，当且仅当表示这个日期的8位数字是回文的。现 在，牛牛想知道：在他指定的两个日期之间包含这两个日期本身），有多少个真实存在的日期是回文的。
一个8位数字是回文的，当且仅当对于所有的i（ 1 <=i<= 8 )从左向右数的第i个数字和第9-i个数字（即从右向左数的第i个数字）是相同的。
例如：
•对于2016年11月19日，用8位数字20161119表示，它不是回文的。
•对于2010年1月2日，用8位数字20100102表示，它是回文的。
•对于2010年10月2日，用8位数字20101002表示，它不是回文的。
每一年中都有12个月份：
其中，1、3、5、7、8、10、12月每个月有31天；4、6、9、11月每个月有30天；而对于2月，闰年时有29天，平年时有28天。
一个年份是闰年当且仅当它满足下列两种情况其中的一种：
1.这个年份是4的整数倍，但不是100的整数倍；
2.这个年份是400的整数倍。
例如：
•以下几个年份都是闰年：2000、2012、2016。
•以下几个年份是平年：1900、2011、2014。
输入输出格式
输入格式：
输入包括两行，每行包括一个8位数字。
第一行表示牛牛指定的起始日期。
第二行表示牛牛指定的终止日期。
保证date_i和都是真实存在的日期，且年份部分一定为4位数字，且首位数字不为0。
保证date1 —定不晚于date2。
输出格式：
输出一行，包含一个整数，表示在date1和date2之间，有多少个日期是回文的。
说明
【样例说明】
对于样例1，符合条件的日期是20111102。
对于样例2，符合条件的日期是20011002和20100102。
【子任务】
对于60%的数据，满足date1 =date2。
这题我是用暴力直接搜，所以只对了六个点，拿了60分，还有四个点超时。
此题我的思路是直接一个 for 过去，再判断是否符合回文素数的要求。
代码如下：
Ps:只有60分。
· var
· i,j,k,n,m,x,y,ans,x1:longint;
· s,s1:ansistring;
· f:boolean;
·
· procedure aa;//判断是否回文。
· var
· j,k:longint;
· begin
· f:=true;
· for j:=1 to length(s) div 2 do
· //两边往中间搜索
· begin
· if s[j]<>s[length(s)-j+1]
· //如果有一个不同就退出。
· then begin
· f:=false;
· EXIT；
· end
· end;
· if f=true then begin inc(ans);
· //如果是回文就统计个数
· end;
· end;
·
· begin
· readln(n,m);
· i:=n-1;
· repeat
· inc(i);
· str(i,s);
· s1:=s[5]+s[6];//剪出月份。
· val(s1,x);//转成数字
· s1:=s[7]+s[8];//剪出日期。
· val(s1,y);//转成数字
· s1:=s[1]+s[2]+s[3]+s[4];//年份
· val(s1,x1);//转成数字
· if (x=1) and (y<=31) then aa;
· //是否是一月。
· if ((x=2) and (y<=28)) or ((x=2) and (y<=29) and (((x1 mod 4=0) and (x1 mod 100<>0))) or (x1 mod 400=0))
· then aa;
· //是否是2月。
· if (x=3) and (y<=31) then begin aa; end;
· //是否是3月。
·
· if (x=4) and (y<=30) then begin aa; end;
· //是否是4月。
·
· if (x=5) and (y<=31) then begin aa; end;
· //是否是5月。
·
· if (x=6) and (y<=30) then begin aa; end;
· //是否是6月。
·
· if (x=7) and (y<=31) then begin aa; end;
· //是否是7月。
·
· if (x=8) and (y<=31) then begin aa; end;
· //是否是8月。
·
· if (x=9) and (y<=30) then begin aa; end;
· //是否是9月。
·
· if (x=10) and (y<=31) then begin aa; end;
· //是否是10月。
·
· if (x=11) and (y<=30) then begin aa; end;
· //是否是11月。
·
· if (x=12) and (y<=31) then begin aa; end;
· //是否是12月。
·
· if y>31 then i:=i-31+100;
· str(i,s);//日期到了31就下一个月。
· s1:=s[5]+s[6];
· val(s1,x);
· if x>12 then i:=i-1200+10000;
· //到了13月就下一年。
· until i=m;//到达目标天数
· writeln(ans);//输出有几个回文月！！！
· end.
这篇关于NOIP2016普及组复赛第二题60分程序加题解pascal大神求帮忙！！！———回文日期的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
