pascal:螺旋方阵 SOS!Description输出n圈的螺旋方阵.Input只有一行且只有一个正整数:n ( 1 < n < 10 )Output从左上角开始,每个数据占用4个字符位置,按顺时针方向输出Sample Input3Sample Output1 2 3 4 5 620 21 22
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/01 23:23:33
![pascal:螺旋方阵 SOS!Description输出n圈的螺旋方阵.Input只有一行且只有一个正整数:n ( 1 < n < 10 )Output从左上角开始,每个数据占用4个字符位置,按顺时针方向输出Sample Input3Sample Output1 2 3 4 5 620 21 22](/uploads/image/z/10282746-66-6.jpg?t=pascal%3A%E8%9E%BA%E6%97%8B%E6%96%B9%E9%98%B5+SOS%21Description%E8%BE%93%E5%87%BAn%E5%9C%88%E7%9A%84%E8%9E%BA%E6%97%8B%E6%96%B9%E9%98%B5.Input%E5%8F%AA%E6%9C%89%E4%B8%80%E8%A1%8C%E4%B8%94%E5%8F%AA%E6%9C%89%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%EF%BC%9An+%28+1+%3C+n+%3C+10+%29Output%E4%BB%8E%E5%B7%A6%E4%B8%8A%E8%A7%92%E5%BC%80%E5%A7%8B%2C%E6%AF%8F%E4%B8%AA%E6%95%B0%E6%8D%AE%E5%8D%A0%E7%94%A84%E4%B8%AA%E5%AD%97%E7%AC%A6%E4%BD%8D%E7%BD%AE%2C%E6%8C%89%E9%A1%BA%E6%97%B6%E9%92%88%E6%96%B9%E5%90%91%E8%BE%93%E5%87%BASample+Input3Sample+Output1+2+3+4+5+620+21+22)
pascal:螺旋方阵 SOS!Description输出n圈的螺旋方阵.Input只有一行且只有一个正整数:n ( 1 < n < 10 )Output从左上角开始,每个数据占用4个字符位置,按顺时针方向输出Sample Input3Sample Output1 2 3 4 5 620 21 22
pascal:螺旋方阵 SOS!
Description
输出n圈的螺旋方阵.
Input
只有一行且只有一个正整数:n ( 1 < n < 10 )
Output
从左上角开始,每个数据占用4个字符位置,按顺时针方向输出
Sample Input
3
Sample Output
1 2 3 4 5 6
20 21 22 23 24 7
19 32 33 34 25 8
18 31 36 35 26 9
17 30 29 28 27 10
16 15 14 13 12 11
Source
基础题
pascal:螺旋方阵 SOS!Description输出n圈的螺旋方阵.Input只有一行且只有一个正整数:n ( 1 < n < 10 )Output从左上角开始,每个数据占用4个字符位置,按顺时针方向输出Sample Input3Sample Output1 2 3 4 5 620 21 22
var
n:longint;
d:array [1..20,1..20] of longint;
i,j,k,t:longint;
begin
readln(n);
t:=0;
for i:=1 to n do
begin
for j:=i to 2*n-i do
begin
inc(t);
d[i,j]:=t;
end;
for j:=i to 2*n-i do
begin
inc(t);
d[j,2*n-i+1]:=t;
end;
for j:=2*n-i+1 downto i+1 do
begin
inc(t);
d[2*n-i+1,j]:=t;
end;
for j:=2*n-i+1 downto i+1 do
begin
inc(t);
d[j,i]:=t;
end;
end;
for i:=1 to 2*n do
begin
for j:=1 to 2*n do
begin
write(d[i,j]);
if j2*n then write(' ');
end;
writeln;
end;
end.