Pascal 语言中二维数组:矩阵问题

时间:2022-01-18 03:58:12

【题目】方阵填数:在一个 N*N的方阵中,填入 1,2..... N*N个数,并要求构成如下格式:

图例:10 11 12  1
           9  16 13  2
           8  15 14  3
           7   6   5   4
【上手】观察图例,不难看出这是一个螺旋矩阵,下面是色彩渐变版大图,纯手工制作(有木有2048的赶脚):
Pascal 语言中二维数组:矩阵问题
【核心代码】
 //变量赋初值
x:=;//横坐标
y:=;//纵坐标
i:=;//要填入的数字
k:=n;//每一轮需要填的方格数
j:=;//填数的方向,时为从上到下↓或从左到右→,-时相反
//开始填数
while i<n*n do
begin
for i:=i+ to i+k do//纵向↑ ↓填数
x:x+j;
a[x,y]:=i;
end;//结束 for 循环
dec(k);//即 k:=k-,每完成一个纵行填数后执行,下一行需要填的方格数-
if j= then j:=-1else j:=;//控制方向,这一次是从上到下或从左到右下一次就是从下到上或从右到左
for i:=i+ to i+k do//横向← →填数
begin
y:=y+j;
a[x,y]:=i;
end;
end;//结束 while 循环