主题：请输出下列程序
wangxiujuan
[专家分：0] 发布于 2005-06-02 11:30:00
请输出下列程序：
1 3 6 10 15
2 5 9 14
4 8 13
7 12
11
回复列表 （共6个回复）
沙发
吴志鹏 [专家分：0] 发布于 2005-12-15 13:43:00
[em70]
I=1:J=1
FOR K=1 TO 15
A(I,J)=K
IF I = 1 THEN I=J+1:J=1 ELSE I = I-1:J=J+1
NEXT K
FOR I = 1 TO 5
FOR J = 1 TO 6-I
PRINT USING"###";A(I,J);
NEXT J:PRINT
NEXT I:END
快给我加分！！
板凳
zouwenkai [专家分：30] 发布于 2005-12-15 13:56:00
[em4]I=1:J=1
FOR K=1 TO 15
A(I,J)=K
IF I = 1 THEN I=J+1:J=1 ELSE I = I-1:J=J+1
NEXT K
FOR I = 1 TO 5
FOR J = 1 TO 6-I
PRINT USING"###";A(I,J);
NEXT J:PRINT
NEXT I:END
为什么前一个人和我一样？
3 楼
jinjie0412 [专家分：0] 发布于 2005-12-22 20:18:00
I=1:J=1
FOR K=1 TO 15
A(I,J)=K
IF I = 1 THEN I=J+1:J=1 ELSE I = I-1:J=J+1
NEXT K
FOR I = 1 TO 5
FOR J = 1 TO 6-I
PRINT USING"###";A(I,J);
NEXT J:PRINT
NEXT I:END
我日!!!!!!!!
为什么前两个人和我一样？
真没办法,我老婆都说:"真不要脸!"
4 楼
wj3951809wj [专家分：0] 发布于 2005-12-30 15:40:00
I=1:J=1
FOR K=1 TO 15
A(I,J)=K
IF I = 1 THEN I=J+1:J=1 ELSE I = I-1:J=J+1
NEXT K
FOR I = 1 TO 5
FOR J = 1 TO 6-I
PRINT USING"###";A(I,J);
NEXT J:PRINT
NEXT I:END
我日!!!!!!!!
为什么前两个人和我一样？
真不要脸
5 楼
zhangyang9007 [专家分：80] 发布于 2006-01-20 11:02:00
input n
if n mod 2=0 then k=n\2 else k=n\2+1
for i=1 to k
h=i+1
for j=1 to h
s=s+1
a(j,h-j)=s
next j
next i
for i=1 to n
for j=1 to i
6 楼
zhangyang9007 [专家分：80] 发布于 2006-01-20 11:04:00
input n
dim a(1 to n,1 to n) as integer
if n mod 2=0 then k=n\2 else k=n\2+1
for i=1 to k
h=i+1
for j=1 to h
s=s+1
a(j,h-j)=s
next j
next i
for i=1 to n
for j=1 to i
print a(i,j);
next j
print
next i
end
我来回复
您所在位置：