螺旋矩阵 蛇形方阵 pascal大放血,快抢!随机数!最少输到 螺旋矩阵：1 2 3 4 8 7 6 59 10 11 1216 15 14 13蛇形方阵:1 2 6 73 5 8 144 9 13 1810 12 19 25
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/16 14:59:35
螺旋矩阵 蛇形方阵 pascal大放血,快抢!随机数!最少输到 螺旋矩阵：1 2 3 4 8 7 6 59 10 11 1216 15 14 13蛇形方阵:1 2 6 73 5 8 144 9 13 1810 12 19 25
螺旋矩阵 蛇形方阵 pascal
大放血,快抢!
随机数!最少输到
螺旋矩阵：1 2 3 4
8 7 6 5
9 10 11 12
16 15 14 13
蛇形方阵:1 2 6 7
3 5 8 14
4 9 13 18
10 12 19 25
螺旋矩阵 蛇形方阵 pascal大放血,快抢!随机数!最少输到 螺旋矩阵：1 2 3 4 8 7 6 59 10 11 1216 15 14 13蛇形方阵:1 2 6 73 5 8 144 9 13 1810 12 19 25
螺旋矩阵的代码：
program lx1;
var t,k,i,j,n:longint;
begin
readln(n);
for t:=0 to n-1 do
begin
if t mod 2=0 then
for k:=t*n+1 to (t+1)*n do
write(k,' ')
else
for k:=(t+1)*n downto t*n+1 do
write(k,' ');
writeln;
end;
end.
蛇形方阵的代码：
Program lx2;
const max=10;
var d,i,j,m,N:integer;
A:array [1..1000,1..1000] of integer;
begin
readln(N);
i:=1;j:=1;m:=1;d:=1;
repeat
A[i,j]:=m;
case d of
1: begin
i:=i+1;
if j=1 then d:=2
else d:=4;
end;
2: begin
i:=i-1;j:=j+1;
if j=N then d:=1
else if i=1 then d:=3
end;
3: begin
j:=j+1;
if i=N then d:=2
else d:=4;
end;
4: begin
i:=i+1;j:=j-1;
if i=N then d:=3
else if j=1 then d:=1;
end;
end;
m:=m+1;
until m>N*N;
for i:=1 to N do
begin
for j:=1 to N do write(A[i,j]:4);
writeln;
end;
end.
不知LZ说的随机数是要干嘛,是随机出n的值吗?是的话就自己加上吧,也不难加.蛇形矩阵分析起来较麻烦,如果LZ需要的话,给个邮箱,我可以把有关这个题课件发过去.