1樓：鐘闊
（1）var
a:array[0..101,0..101]of integer;
x,y,k,i,j,l,n:longint;
begin
readln(n);
fillchar(a,sizeof(a),255);
for i:=1 to n do
for j:=1 to n do a[i,j]:=0;
x:=0; y:=n;
k:=0; l:=0;
while true do
begin
case k of
0:begin if a[x+1,y]=0 then begin inc(x); inc(l); a[x,y]:=l; end
else k:=(k+1) mod 4; end;
1:begin if a[x,y-1]=0 then begin dec(y); inc(l); a[x,y]:=l; end
else k:=(k+1) mod 4; end;
2:begin if a[x-1,y]=0 then begin dec(x); inc(l); a[x,y]:=l; end
else k:=(k+1) mod 4; end;
3:begin if a[x,y+1]=0 then begin inc(y); inc(l); a[x,y]:=l; end
else k:=(k+1) mod 4; end;
end;
if l=sqr(n) then break;
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:6);
writeln;
end;
end.
（2）var
a:array[0..101,0..101]of integer;
l,n,k,x,y,i,j:longint;
begin
readln(n);
if n=0 then exit;
fillchar(a,sizeof(a),255);
for i:=1 to n do
for j:=1 to n do a[i,j]:=0;
x:=1; y:=1; k:=0; a[1,1]:=1; l:=1;
while true do
begin
case k of
0:if a[x-1,y+1]=0 then begin inc(l); dec(x); inc(y); a[x,y]:=l; end
else begin k:=(k+1) mod 2; inc(y); inc(l); a[x,y]:=l; end;
1:if a[x+1,y-1]=0 then begin inc(l); dec(y); inc(x); a[x,y]:=l; end
else begin k:=(k+1) mod 2; inc(x); inc(l); a[x,y]:=l; end;
end;
if l=(sqr(n)-n)div 2+n then break;
end;
if odd(n) then begin inc(x); k:=1; end else begin inc(y); k:=0; end; inc(l); a[x,y]:=l;
while true do
begin
if l=sqr(n) then break;
case k of
0:if a[x-1,y+1]=0 then begin inc(l); dec(x); inc(y); a[x,y]:=l; end
else begin k:=(k+1) mod 2; inc(x); inc(l); a[x,y]:=l; end;
1:if a[x+1,y-1]=0 then begin inc(l); dec(y); inc(x); a[x,y]:=l; end
else begin k:=(k+1) mod 2; inc(y); inc(l); a[x,y]:=l; end;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:6);
writeln;
end;
end.
2樓：匿名使用者
暈 星期6幫你去問老師
要多少分都行！智齒一定要拔嗎
智齒到底該不該拔？智齒似乎曾經給很多人帶來煩惱。那麼，它究竟是不是有用的牙齒呢？先說什麼是智齒吧 我們常說的智慧型齒，實際上是第三大臼齒 一般人都有第一和第二大臼齒 俗稱智慧型齒。四隻智慧型齒形成始於上下鶚骨中，正如其他牙齒一樣，但卻是最後長出於口腔中的臼齒。智慧型齒形成於9歲，而齒冠則於大約14歲...
高考要多少分呀
高考分不是乙個固定的值，而是隨著每一年所規定的高考滿分總分 考試科目 考題的難易程度 當年參加考試的考生人數 報考志願以及高校的錄取名額共同決定的。比如把單科滿分由120分改成100分 把大綜合改成文理分科考，當年考題比較難，這些都會使當年的高考分數降低，另外報考某專業的人數變少，院校的招生人數變多...
考二中要多少分,小學考二中要多少分
2014年廣 抄州市第二中學中考襲錄取分數線 721分 另外,2014年廣州市第二中學市外借讀生錄取分數線為725分廣州市第二中學 guangzhou no.2 middle school 是廣州市重點中學,廣東省省一級學校,廣東省國家級示範性普通高中和廣州市區局屬a類中學。二中是每個城市第二最好的...