一道Pascal题

11 |

2 | 2011-4-27 18:45:52 | 显示全部楼层 |阅读模式

给一维数组输入任意6个整数，假设为：7 4 8 9 1 5
请用循环语句建立具有以下内容的方阵：
7 4 8 9 1 5
4 8 9 1 5 7
8 9 1 5 7 4
9 1 5 7 4 8
1 5 7 4 8 9
5 7 4 8 9 1

使用道具举报

千问 | 2011-4-27 18:45:52 | 显示全部楼层

不难啊, 用嵌套循环就可以完成了, Pascal语法我早忘光了, 以下语句是用VB写的, 自己看看转成Pascal语法吧, 那个mod 是取余, 两个Next中间的Print是用来换行的
Dim i As Integer, j As Integer, a()
a = Array(7, 4, 8, 9, 1, 5)
For i = 0 To 5
For j = 0 To 5
Print a((j + i) Mod 6);
Next j
Print
Next i

使用道具举报