数码问题 纪中 1433 优美的暴力

Description

　　Alice有一个N*N的格子，把1-N^2按照从上到下从左到右的顺序填进表格中，允许在表格上进行两种操作：
　　(1) 旋转行——这一行的数向右移动一个位置，而最后一列的数会移到第一列；
　　(2) 旋转列——这一列的数向下移动一个位置，最后一行的数会移到第一行。
　　Alice想把数X移到（R,C）处可以采用以下方法：
　　•如果X不在C这一列，通过旋转行操作把X移到C这一列；
　　•如果X不在R这一行，通过旋转列操作把X移到R这一行。
　　下面是一个把6移到（3，4）的例子：
　　
　　Alice现在想采用上述方法，依次把K个数移到各自的目标位置，编程计算每个数需要几次操作。

Input

　　第一行包含两个整数N(12<=N<=10000)和K(1<=K<=1000)。
　　接下来K行，每行包含三个整数X(1<=X<=N^2)、R和C(1<=R,C<=N)，描述需要移动的数以及目标位置。
　　Alice必须按照输入顺序依次移动。

Output

　　输出K行，每行输出一个整数，表示操作次数。

分析

因为n的范围很大，所以我们要考虑k。
我们用数组a[2*k]，a[2*k-1]表示第k次操作改变的行、列和移动的值。
然后，后面的移动要求就向前枚举以前的改变操作，和自己有关的就改变自己的坐标。
具体见程序

代码

var
  a:array[1..1010,1..3] of longint;
  n,m:longint;
  w,x,y:longint;
  x1,y1:longint;
  i,j,k:longint;
  ans:longint;
  nm:longint;

begin
  readln(n,m);
  nm:=0;
  for i:=1 to m do
    begin
      readln(w,x,y);
      x1:=(w div n)+1;
      y1:=w mod n;
      if y1=0 then
        begin
          x1:=x1-1;
          y1:=n;
        end;
      for j:=1 to nm do
        begin
          if x1=a[j,1]
            then begin
              y1:=y1+a[j,3];
              if y1>n then y1:=y1-n;
            end;
          if y1=a[j,2]
            then begin
              x1:=x1+a[j,3];
              if x1>n then x1:=x1-n;
            end;
        end;
      ans:=0;
      if y1>y
        then
          begin
            ans:=y+(n-y1);
            y1:=y;
            nm:=nm+1;
            a[nm,1]:=x1;
            a[nm,3]:=ans;
          end
        else
          begin
            ans:=y-y1;
            y1:=y;
            nm:=nm+1;
            a[nm,1]:=x1;
            a[nm,3]:=ans;
          end;

      if x1>x
        then
          begin
            k:=x+(n-x1);
            x1:=x;
            ans:=ans+k;
            nm:=nm+1;
            a[nm,2]:=y1;
            a[nm,3]:=k;
          end
        else
          begin
            k:=x-x1;
            x1:=x;
            ans:=ans+k;
            nm:=nm+1;
            a[nm,2]:=y1;
            a[nm,3]:=k;
          end;
      writeln(ans);
    end;
end.