作业帮 > 综合 > 作业

如下为规模为4的螺旋矩阵 1 12 11 10 2 13 16 9 3 14 15 8 4 5 6 7 求规模为n(n

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 19:27:33
如下为规模为4的螺旋矩阵 1 12 11 10 2 13 16 9 3 14 15 8 4 5 6 7 求规模为n(n
var i,j,k,sum,kk,n,y,x:longint;
a:array[1..21,1..21]of integer;
procedure work;
begin
k:=k+1;
inc(sum);
case kk mod 4 of
1:begin
y:=y+1;
a[y,x]:=sum;
end;
2:begin
x:=x+1;
a[y,x]:=sum;
end;
3:begin
y:=y-1;
a[y,x]:=sum;
end;
0:begin
x:=x-1;
a[y,x]:=sum;
end;
end;
end;
begin
assign(input,'backspin.in');
reset(input);
assign(output,'backspin.out');
rewrite(output);
kk:=0;
x:=1;
y:=0;
read(n);
i:=n+1;
while sumn*n do
begin
while i1 do
begin
j:=0;
i:=i-1;
if in then
while j2 do
begin
j:=j+1;
kk:=kk+1;
k:=0;
while ki do work;
end
else
begin
kk:=kk+1;
k:=0;
while ki do work;
end;
end;
end;
for i:=1 to n do
for j:=1 to n do
begin
if jn then write(a[i,j],' ')
else writeln(a[i,j]);
end;
close(input);
close(output);
end.
{我定的数据规模是n≤20}