2017.5.14测试 第2题: 魔法阵

第2题: 魔法阵

【题目描述】 

昔有人，名斯凯利恩夫·卢克。其英文名乃SkyLYnf·Luke。汝知之何名？曰实，吾亦不知。其有别号曰ylm。何？吾亦不知。汝宜喻之。其乃吾。

他有一个Servant，叫做阿尔托莉雅·潘德拉贡，英文名是Arturia Pendragon，别名是Saber。她的 誓约胜利之剑（Excalibur）比红A的无限剑制厉害多了！（上一题的红A没有Saber厉害）

【题目描述·真】 

有一天，skylynf正在画召唤阵。这时候saber走到了召唤阵中间，告诉skylynf说：“你个菜鸟master，连召唤阵都画错了，赶快重画！”

于是saber拿出了一张写满了召唤阵画法的纸。

请你写一个程序来帮skylynf修改魔法阵，以防他被saber拿剑砍死。

魔法阵是一个n行n列的数列阵。每一个数都小于2147483647。

魔法阵被粗心的skylynf给画歪了，现在saber要让他把整个魔法阵移一下位。

saber给了一个例子：

图1是一个错误的魔法阵。现在我们要像图2这样移位。图3是正确的魔法阵。

图1的第4列，每个数字向下移4位，刚好回到原位，如图3所示。

 

这个模式是这样的：对于第i列的魔法阵来说，把每一个数字向下移i位。对于超过n的，就当做一个环，比如矩阵第四行第一列的数字21，我们就将它行数加一，发现他超过了4，于是就换到了第一行。

现在给你一个n*n的魔法阵，请按照这个规则来输出正确的魔法阵。

Skylynf已经超级口渴了。现在他特别想喝水。请你赶快写完这题好让skylynf去让DTZ倒水给他喝。

【输入描述】 

第一行一个数n（n小于100）

接下来n行，每行n个数。表示skylynf魔法阵。

【输出描述】 

N行，每行n个数，表示正确的魔法阵。

【样例输入】 

4

13 11 33 31

44 4 5 16

40 15 26 29

21 43 13 13

【样例输出】 

21 15 5 31

13 43 26 16

44 11 13 29

40 4 33 13

【数据范围】 

N<=100

Aij

 

var
 a,b:array[0..100,0..100]of longint;
 n,i,j,t:longint;
begin
 readln(n);
 for i:=1 to n do
  for j:=1 to n do
   read(a[i,j]);
 for i:=1 to n do//还是模拟~
  for j:=1 to n do
   begin
    t:=i+j;//由题可得，移动的位置与所在行和列有关
    while t>n do t:=t-n;//超过边界就从头开始走~
    b[t,i]:=a[j,i];//为了不影响后面的替换，开了个数组
   end;
 for i:=1 to n do
  begin
   for j:=1 to n-1 do
    write(b[i,j],' ');
   write(b[i,n]);
   writeln;
  end;
end.