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.