螺旋矩阵的三种算法 Pascal

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/05 17:31:37
螺旋矩阵的三种算法 Pascal
xS[oQ+SCVJwRlV{RDk]ЛդFE /_pl}7|3s6+ĭ.+Y^1o͓uo)U\,)C {zzjXnvW# _XOUSkRGF׿s@!zl/OB!d% K*x㧝 кق76:'Xi@2^QS8UE*E٫#%JeB0HA/̤J^,TN hcht 5kVPLh.Dp Tm8^g9RRg|

螺旋矩阵的三种算法 Pascal
螺旋矩阵的三种算法 Pascal

螺旋矩阵的三种算法 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