主题：求助用INPUT N=5 几个直角三角形的数字图形
zgk
[专家分：50] 发布于 2006-06-23 14:54:00
求助用INPUT N=5 几个直角三角形的数字图形
1 6 10 13 15 1 1 1 2 4 7 1
2 7 11 14 2 6 6 2 3 5 8 2
3 8 12 3 7 10 10 7 3 6 9 3
4 9 4 8 11 13 13 11 8 4 0 4
5 5 9 12 14 15 15 14 12 9 5 5
回复列表 （共11个回复）
沙发
qb爱好人 [专家分：50] 发布于 2006-06-23 21:10:00
for i=1 to 5
k=i
u=5
for j=1 to 6-i
print k;
k=k+u
u=u-1
next j
print
next i
板凳
qb爱好人 [专家分：50] 发布于 2006-06-23 21:11:00
for i=1 to 5
k=i
u=4
for j=1 to i
print k;
k=k+u
u=u-1
next j
print
next i
3 楼
qb爱好人 [专家分：50] 发布于 2006-06-23 21:15:00
for i=1 to 5
u=5
k=k+1
for j=1 to 6-k
if len(str$(j))<2 then locate j,i+1:print s+u else locate j,i:print s+u
u=u+1
next j
next i
4 楼
qb爱好人 [专家分：50] 发布于 2006-06-23 21:19:00
for i=1 to 5
u=1
k=k+1
for j=1 to u
locate j,i:print k mod 10;
next j
print
next i
5 楼
JRX [专家分：180] 发布于 2006-06-24 17:18:00
1 6 10 13 15 1 1 1 2 4 7 1
2 7 11 14 2 6 6 2 3 5 8 2
3 8 12 3 7 10 10 7 3 6 9 3
4 9 4 8 11 13 13 11 8 4 0 4
5 5 9 12 14 15 15 14 12 9 5 51.
1.
INPUT N
DIM A(N,N):I=1:J=1
FOR K=1 TO (1+N)*N/2
A(I,J)=K
IF J=I THEN I=1:J=J+1 ELSE I=I+1
NEXT K
FOR I=1 TO N
FOR J=1 TO N+1-I
? USING"###";A(I,J);
NEXT J
?
NEXT I
END
6 楼
JRX [专家分：180] 发布于 2006-06-24 17:20:00
1 6 10 13 15 1 1 1 2 4 7 1
2 7 11 14 2 6 6 2 3 5 8 2
3 8 12 3 7 10 10 7 3 6 9 3
4 9 4 8 11 13 13 11 8 4 0 4
5 5 9 12 14 15 15 14 12 9 5 5
2.
INPUT N
DIM A(N,N):I=1:J=1
FOR K=1 TO (1+N)*N\2
A(I,J)=K
IF IF I=N THEN I=J+1:J=1 ELSE I=I+1
NEXT K
FOR I=1 TO N
FOR J=1 TO I
? USING"###";A(I,J);
NEXT J
NEXT I
7 楼
JRX [专家分：180] 发布于 2006-06-24 17:23:00
1 6 10 13 15 1 1 1 2 4 7 1
2 7 11 14 2 6 6 2 3 5 8 2
3 8 12 3 7 10 10 7 3 6 9 3
4 9 4 8 11 13 13 11 8 4 0 4
5 5 9 12 14 15 15 14 12 9 5 5
3.
INPUT N
DIM A(N,N)
I=1:J=1
FOR K=1 TO (1+N)*N/2
A(I,J)=K
IF I=N THEN I=J+1:J=1 ELSE I=I+1:J=J+1
NEXT K
FOR I=1 TO N
FOR J=1 TO I
? USING"###";A(I,J);
NEXT J
?
NEXT I
END
8 楼
JRX [专家分：180] 发布于 2006-06-24 17:26:00
1 6 10 13 15 1 1 1 2 4 7 1
2 7 11 14 2 6 6 2 3 5 8 2
3 8 12 3 7 10 10 7 3 6 9 3
4 9 4 8 11 13 13 11 8 4 0 4
5 5 9 12 14 15 15 14 12 9 5 5
4.
INPUT N
DIM A(N,N)
FOR I=1 TO N
A(I,I)=(1+I)*I+1
FOR J=I+1 TO N
A(I,J)=A(I,J-1)+J-1
NEXT J
NEXT I
FOR I=1 TO N
FOR J=1 TO N+1-I
? USING"###";A(I,J);
NEXT J
?
NEXT I
END
9 楼
zgk [专家分：50] 发布于 2006-07-05 16:15:00
非常感谢你们的热心帮助！
10 楼
JRX [专家分：180] 发布于 2006-07-05 18:27:00
没关系啦~
不知zgk可否给我加个分?
我来回复
您所在位置：