二维数组旋转

Question

1 2 1 1
  2 2 2 1
  1 1 1 1
  1 1 1 1
  点击一下就变成
  1 2 1 1
  1 2 2 1
  1 2 1 1
  1 1 1 1想拉几天都没想出来啊，在给点思路

Answer 1

定义
   A：ARRAY[1..4,1..4] Of integer;  
  1 2 1 1
  2 2 2 1
  1 1 1 1
  1 1 1 1
  点击一下就变成
  1 2 1 1
  1 2 2 1
  1 2 1 1
  1 1 1 1

Answer 2

var
  A: array[1..4, 1..4] of Integer;
  B: array[1..4, 1..4] of Integer;  I, J: Integer;
begin
  for I := 1 to 4 do
    for J := 1 to 4 do
      B[4 - J + 1, I] := A[I, J];end;//结果是这样吧～～
 1 1 2 1 
 1 1 2 2 
 1 1 2 1 
 1 1 1 1

Answer 3

我晕，，你自己拿笔在纸上画一下，90度旋转很好搞啊。手头没DELPHI。NND，刚装的DELPHI7，没玩几天，，就被维护的全给覆盖了。倒啊！！！！！！

Answer 4

var
  A: array[1..4, 1..4] of Integer;画了一个4*4的距阵，点一次90度旋转 点第二变成180，三次270