UC知道二维数组pascal
来源：百度知道 编辑：UC知道 时间：2024/09/22 07:38:57
输出
（1）
1 1 1
2 2 2
3 3 3
4 4 4
（2）
1 2 3
1 2 3
1 2 3
1 2 3
（3）
1 2 3
4 5 6
7 8 9
10 11 12
（4）
1 2 3 4 5
2 3 4 5 1
3 4 5 1 2
4 5 1 2 3
5 1 2 3 4
（5）
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
（6）
1 2 3 4 5
6 7 8 9
10 11 12
13 14
15
（7）
1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7
（8）
1 3 4 10
2 5 9 11
6 8 12 15
7 13 14 16
（1）
1 1 1
2 2 2
3 3 3
4 4 4
（2）
1 2 3
1 2 3
1 2 3
1 2 3
（3）
1 2 3
4 5 6
7 8 9
10 11 12
（4）
1 2 3 4 5
2 3 4 5 1
3 4 5 1 2
4 5 1 2 3
5 1 2 3 4
（5）
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
（6）
1 2 3 4 5
6 7 8 9
10 11 12
13 14
15
（7）
1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7
（8）
1 3 4 10
2 5 9 11
6 8 12 15
7 13 14 16
var a:array[1..7,1..7]of integer;
i,j,k,s:integer;
程序分别是：
1:
Begin
For i:=1 to 4 Do
a[i,1]:=i;
For i:=1 to 4 Do
Begin
For j:=1 to 4 Do
Write(a[i,j]，' ');
Writeln；
End；
End.
2:
Begin
For i:=1 to 4 Do
For j：=1 to 3 Do
a[i,j]:=j;
For i:=1 to 4 Do
Begin
For j:=1 to 3 Do
Write(a[i,j]);
Writeln;
End;
End.
3:
Begin
For i:=1 to 3 Do
a[1,i]:=i;
For i:=2 to 4 Do
For j:=1 to 3 Do
a[i,j]:=a[i-1,j]+3;
For i:=1 to 4 Do
Begin
For j:=1 to 4 Do
Write(a[i,j]);
Writeln;
End;
End.
4:
Begin
For i:=1 to 5 Do
a[1,i]:=i;
For i:=2 to 5 Do
For j:=1 to 5 Do
If a[i-1,j]<5 then
a[i,j]:=a[i-1,j]+1