主题：魔方阵(答对30分)
LSQ
[专家分：220] 发布于 2006-01-27 20:15:00
题目:
1 12 11 10 9
2 13 15 8
3 14 7
4 6
5
回复列表 （共8个回复）
沙发
moz [专家分：37620] 发布于 2006-01-28 01:01:00
cls
n=5 '改这个数值看看
x=0
y=-2
for i=n to 1 step -1
xx=(n-i+2)mod 3-1
yy=-3*((n-i)mod 3-1)
for j=1 to i
x=x+xx
y=y+yy
k=k+1
locate x,y
print k;
next j,i
板凳
mingzhentanq [专家分：60] 发布于 2006-04-01 20:52:00
moz ni shi gao shou!!
3 楼
2630023 [专家分：100] 发布于 2006-05-03 03:02:00
input 1
print 牛
inrut 2
print 真牛
input 3
print 真是牛
4 楼
moz [专家分：37620] 发布于 2006-05-03 11:29:00
牛 不是有效的变量名.
5 楼
meizi177 [专家分：70] 发布于 2006-05-04 07:01:00
moz的程序很好,我觉得并不适合于初学者.
6 楼
LSQ [专家分：220] 发布于 2006-06-10 13:12:00
笨蛋,我不是初学者.
7 楼
JRX [专家分：180] 发布于 2006-06-12 22:46:00
我的:
CLS
INPUT N:Y=N-1+(N+1)\2
DIM A(N,N)
FOR I=1 TO (N-1)\2
Y=Y-(N+1)\2
FOR J=I TO I+Y-1
K=K+1:A(I,J)=K
NEXT J
FOR J=Y+I TO I+1 STEP -1
K=K+1:A(J,N+1-I)=K
NEXT J
FOR J=N+1-I TO I*2 STEP -1
K=K+1:A(I,J)=K
NEXT J
NEXT I
FOR I=1 TO N
FOR J=1 TO N
IF A(I,J)=0 THEN
? " ";
ELSE
? USING"###";A(I,J);
ENDIF
NEXT J
?
NEXT I
8 楼
hantaowang [专家分：30] 发布于 2006-07-07 21:44:00
我的：
input n
dim a(n,n)
for i=1 to n step -1
for j=1 to n+1-i
t=t+1
a(j,i)=t
next j
next i
for i=1 to n
? tab(20+i);
for j=1 to n+1-i
? a(i,j);
next j:?
next i
我还没上机，不知程序对错，但自认为是对的。
我来回复
您所在位置：