作业帮 > 综合 > 作业

急求free pascal高手编程:蛇形填数,在n*n的格子中,按如下方式填数.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/02 18:10:11
急求free pascal高手编程:蛇形填数,在n*n的格子中,按如下方式填数.
1 3 4 10 11……
2 5 9 12 19……
6 8 13 18 20……
7 14 17 21 24……
15 16 22 23 25……
……
小儿科题目.把格子顺时针旋转45度,就是个菱形,利用矩阵横竖坐标的规律就行了.
program PrintMatrix;
const
N = 5; { 阶数 }
SPACE = 4; { 数字占位 }
var
matrix:array[1..N,1..N] of Integer;
num,step,upper,lower,i,j:Integer;
begin
num := 0;
step := 1;
for i := 1 to N * 2 - 1 do
begin
if i