早教吧作业答案频道 -->其他-->
关于螺旋填数,HELPME!源程序在这里,帮我看看啊:vara:array[1..10,1..10]ofinteger;shu,i,j,n,k:integer;beginread(n);i:=1;j:=i;repeatifk=1thenk:=-1elsek:=1;repeatif(i=0)thenbeginif(a[i,j]=0)thenbeginshu:=shu+1;a[i,j]:=shu;i:=i
题目详情
关于螺旋填数,HELP ME!
源程序在这里,帮我看看啊 :
var
a:array [1..10,1..10] of integer;
shu,i,j,n,k:integer;
begin
read(n);
i:=1;
j:=i;
repeat
if k=1
then k:=-1
else k:=1;
repeat
if (i=0)
then begin
if (a[i,j]=0)
then begin
shu:=shu+1;
a[i,j]:=shu;
i:=i+k;
end
else begin
i:=i-k;
break;
end;
end
else begin
i:=i-k;
break;
end;
until i>100;
repeat
if (j=0)
then begin
if (a[i,j]=0)
then begin
shu:=shu+1;
a[i,j]:=shu;
j:=j+k;
end
else begin
j:=j-k;
break;
end;
end
else begin
j:=j-k;
break;
end;
until j>100;
until shu=n*n;
for i:=1 to n do
for j:=1 to n do
write(a[i,j]:3);
writeln;
end.
源程序在这里,帮我看看啊 :
var
a:array [1..10,1..10] of integer;
shu,i,j,n,k:integer;
begin
read(n);
i:=1;
j:=i;
repeat
if k=1
then k:=-1
else k:=1;
repeat
if (i=0)
then begin
if (a[i,j]=0)
then begin
shu:=shu+1;
a[i,j]:=shu;
i:=i+k;
end
else begin
i:=i-k;
break;
end;
end
else begin
i:=i-k;
break;
end;
until i>100;
repeat
if (j=0)
then begin
if (a[i,j]=0)
then begin
shu:=shu+1;
a[i,j]:=shu;
j:=j+k;
end
else begin
j:=j-k;
break;
end;
end
else begin
j:=j-k;
break;
end;
until j>100;
until shu=n*n;
for i:=1 to n do
for j:=1 to n do
write(a[i,j]:3);
writeln;
end.
▼优质解答
答案和解析
var n:integer;a:array[1..100,1..100] of integer;x,y,ax,ay,i,t:integer;beginfillchar(a,sizeof(a),0);ax:=0;ay:=1;x:=1;y:=1;readln(n);for i:=1 to n*n do begina[x,y]:=i;if not(((x+ax) in [1..n])and((y+ay)...
看了关于螺旋填数,HELPME!源...的网友还看了以下:
求满足下列条件的最小正整数n,对于n存在正整数k,使得8/15 2020-05-17 …
已知an=(1+根号下2)的n次方(n属于N*)求证对于任意n属于N*,存在整数k,使得an=根号 2020-05-17 …
1、平行四边形ABCD中∠ABC的平分线交AD于E,且点E把AD分成5CM,6CM两部分,则四边形 2020-06-05 …
设an=1+1/2+1/3+.1/n,是否存在关于n的正式g(n),使得等式a1+a2+a3+.a 2020-06-12 …
1.f(x)=acos(2x+π/3)+a/2+b(a>0),定义域[-π/3,π/6],值域[- 2020-06-18 …
关于数列{xn}的极限是a的定义的理解1、对于任意给定的ε>0,存在N属于N+,当n>N时,有无穷 2020-07-11 …
已知an=n-根号下101/n-根号下102(n属于n*)则在数列an中最大项是第几项请将最后答案 2020-07-18 …
某学生在观察正整数的前n项平方和公式即12+22+32+…+n2=n(n+1)(2n+1)6,n∈ 2020-07-22 …
设M、N为非空集,定义M-N={x/x属于M,x不属于N},现在集合A={x/-3 2020-07-30 …
(2009•遵义)矩形ABCD中,AB=2,BC=5,MN∥AB交AD于M,交BC于N,在MN上任取 2020-11-13 …