神马作文网螺旋矩阵的三种算法 Pascal
来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/11/11 04:33:39
螺旋矩阵的三种算法 Pascal
①：设圆心为x1、y1,求得圆心与坐标点x、y之间的距离L=sqrt((x-x1)*(x-x1)+(y-y1)*(y-y1)),然后再判断L是否大于1并且小于2,若判断结果为真,则输入的坐标点x,y在圆环内部.
②：问题：输入一个数n,输出n^2数阵,数阵为数字漩涡排列.
例：输入1,输出 1
输入2,
输出
1 2
3 4
输入3
输出
1 2 3
8 9 4
7 6 5
输入4
输出
1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7
是这个题么?
program hhs;
var
a,b,t,x:integer;
s:array[0..1000,0..1000]of integer;
begin
readln(x);
for a:=1 to 6 do begin
s[0,a]:=1;
s[x+1,a]:=1;
s[a,0]:=1;
s[a,x+1]:=1;
end;
t:=1;a:=1;b:=1;
while t
②：问题：输入一个数n,输出n^2数阵,数阵为数字漩涡排列.
例：输入1,输出 1
输入2,
输出
1 2
3 4
输入3
输出
1 2 3
8 9 4
7 6 5
输入4
输出
1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7
是这个题么?
program hhs;
var
a,b,t,x:integer;
s:array[0..1000,0..1000]of integer;
begin
readln(x);
for a:=1 to 6 do begin
s[0,a]:=1;
s[x+1,a]:=1;
s[a,0]:=1;
s[a,x+1]:=1;
end;
t:=1;a:=1;b:=1;
while t