tyvj 衡水中学60周年赛 解题报告

 

刷漆运动开始……
莘元馆有m+1行，n+1列的座椅，编号分别为0~m,0~n，第0行的座椅已经刷成了红色，第0列的座椅（除位置为（0，0）的刷成了红色）已经刷成了绿色，其他座椅均为白色，现在，OI小组需要粉刷所有那些白色的座椅。
校长的要求是，对于每一个座椅（i，j），它必须与（i-1，j）座椅或（i，j-1）座椅同色。
魂之挽歌想知道，将每一个座椅全都粉刷，一共有多少种方案？

输入

一行，两个正整数m，n（0 < m,n<=2000)

输出

仅一个正整数，表示方案数（由于答案较大，只需输出它mod 20110926的值即可）

样例输入

1 1

样例输出

2

提示

就一个座椅，不是红的就是绿的（红配绿……）

 

思路：略。

得分：100

ac程序：

 

var a:array[0..2000,0..2000] of longint;
n,m,i,j,k,sum:longint;
begin
 {assign(input,'chair.in'); assign(output,'chair.out');
 reset(input); rewrite(output);}
 readln(n,m);
 for i:=1 to n do
  a[i,0]:=1;
 for i:=1 to m do
  a[0,i]:=1;
 a[0,0]:=1;
 for i:=1 to n do
  for j:=1 to m do
   a[i,j]:=(a[i-1,j]+a[i,j-1]) mod 20110926;
 writeln(a[n,m]);
 {close(input); close(output);}
end.

提交地址：http://hzoi.openjudge.cn/codewaysky/1006/

 

衡水中学马上就要60周年校庆了，衡中的OI小组都很高兴
于是，他们想出一道水题给大家送分
衡中OI小组想让你计算一下，从y年m月d日到衡水中学的k周年校庆有多少天？
注：衡水中学建校于1951-9-26，1周年校庆是在1952-9-26 输入 第一行三个整数y,m,d(1951<=y<=2011,1<=m<=12,1<=d<=31,保证日期合法)
第二行一个整数k(0输出 一个正整数，表示还有多少天。（如果k周年校庆在y年m月d日已经过了，那么就输出impossible）

样例输入 2011 6 18 60

样例输出 100

 

思路：直接模拟

得分：100分

ac程序：

const dx:array[1..12] of longint=((31),(28),(31),(30),(31),(30),
(31),(31),(30),(31),(30),(31));
var y,m,d,i,j,k,l,now,sum,day:longint;
fuck:int64;
function run(x:longint):boolean;
begin
 if ((x mod 4=0) and (x mod 100<>0)) or (x mod 400=0) then
  exit(true)
 else exit(false);
end;
procedure print(i,j,l:longint);
begin
 if (i=(1951+k)) and (j=9) and (l=26) then
  begin writeln(sum);
   close(input); close(output); halt;
  end;
end;
begin
 {assign(input,'day.in'); assign(output,'day.out');
 reset(input); rewrite(output);}
 readln(y,m,d); readln(k);
 {for i:=1 to k do
  if run(y+i) then inc(now,366)
  else inc(now,365);}
 {fuck:=(1951+k)*10000+9*100+26;}
 for i:=y to 1951+k do
  begin
  for j:=m to 12 do
   begin
   day:=dx[j];
   if run(i) and (j=2) then day:=day+1;
    for l:=d to day do
     begin
      print(i,j,l); inc(sum);
     end;
    d:=1;
   end;
   m:=1;
  end;
 writeln('impossible');
 {close(input); close(output);}
end.

提交地址：

http://hzoi.openjudge.cn/codewaysky/1004/

为了校庆的新面貌，校长大人决定把学校的大甬路铺上沥青（原来是石板的……）。
这条路被分为N个区域，每次，校长会对工人们发出命令：
（1）把l区域到r区域的路铺好（如果中间某区域已经铺好，就不再铺了）
（2）由于可能有猪仙那样的同学把鞋粘在上面，校长老远一看也不知道是哪个区域，于是就会让工人把l区域到r区域的路全部拆掉（如果中间某区域还没铺好，就不拆了）
在一开始，整条路都还没铺上沥青。
校长在发出了M条命令之后，想知道有多少个区域的路是铺好了的。 输入 第一行，两个数N，M
接下来M行，每行三个数k，l，r，k=1或2，k=1表示把l区域到r区域的路铺上，k=2则表示把l区域到r区域的路拆掉 输出 一个数，即有多少个区域的路是铺好了的

样例输入 5 3 1 1 31 3 52 2 4

样例输出 2

 

思路：线段树(表示不会)

得分：模拟得30分

ac程序：无

提交地址：http://hzoi.openjudge.cn/codewaysky/1007/

 

maxingc是不会让魂之挽歌赴汤蹈火的……
衡中和滏阳同在一个平面坐标系上，所有的路都是与坐标轴平行的。
在这个坐标系上，有N个路口，在这些路口上（且仅在这些路口上）可以拐弯，即由平行于一个坐标轴走到平行于另一个坐标轴走。
现在maxingc想让魂之挽歌算一下，从衡中到滏阳，至少要拐几个弯？ 输入 第一行，一个数N（N<=100000)
接下来有N+2行，每行有一对坐标，第一行是衡中的坐标，最后一行是滏阳的坐标，中间N行是各个路口的坐标
保证所有坐标绝对值<=2*10^9 输出 一个数，即至少拐多少个弯（如果不能到达，就输出NO）

样例输入 2 0 01 01 1-1 1

样例输出 2

 

思路：bfs

得分：70分（修改后90分，最后一点tle）

90分程序：

var x,y,dx,dy,ans:array[0..100000] of longint;
v:array[0..100000] of boolean;
n,i,j,k,nowx,nowy,ex,ey,sum:longint;
procedure f;
var t,w,i,tx,ty:longint;
begin
 t:=0; w:=1;
 dx[1]:=nowx; dy[1]:=nowy;
 {v[1]:=true;}
 while t<w do
  begin
   inc(t);
   tx:=dx[t]; ty:=dy[t];
   for i:=1 to n do
    if not v[i] then
     if (x[i]<>tx) or (y[i]<>ty) then
      if (x[i]=tx) or (y[i]=ty) then
       begin
        inc(w); dx[w]:=x[i]; dy[w]:=y[i];
        ans[w]:=ans[t]+1;
        v[i]:=true;
        if (dx[w]=ex) or (dy[w]=ey) then
         begin sum:=ans[w]; exit; end;
       end;
  end;
end;
begin
 {assign(input,'way.in'); assign(output,'way.out');
 reset(input); rewrite(output);}
 readln(n);
 readln(nowx,nowy);
 for i:=1 to n do
  readln(x[i],y[i]);
 readln(ex,ey);
 if (nowx=ex) or (nowy=ey) then writeln(0)
 else
 begin
 f;
 if sum=0 then writeln('NO') else writeln(sum);
 end;
 {close(input); close(output);}
end.

提交地址：http://hzoi.openjudge.cn/codewaysky/1005/