不知道问得对不对，二维数组旋转(50分)

dyxhy2003 · 2004-03-22

定义
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

我觉得和图形旋转是一样，但是不知道怎么实现，谢谢各位高手

XWHope · 2004-03-22

你还是用多一点不同的数字表示出来
要不然很难总结出规律来
就像你这个
我会认为只要A[2,1],A[3,2]调换一下就可以了

dyxhy2003 · 2004-03-22

击一下就变成
1 2 1 1
1 2 2 1
1 2 1 1
1 1 1 1
在点一次就是，90度的选择，然后180，然后270，最后恢复
1 1 1 1
2 2 2 1
1 2 1 1
1 1 1 1

t1122 · 2004-03-22

是不是原来的行变成了列?
这个简单呀,只要在有一个数组交换就可以了.
//首先设置数组A和B:a[1..4][1..b],b[1..4][b..4]
for i:=1 to 4 do
begin
for j:=1 to 4 do
b[j]:=a[j];
end;

guxizhw · 2004-03-22

没有耐心看，不过楼上应该是对的啊

dyxhy2003 · 2004-03-24

多人接受答案了。