主题：[原创]j=z
zhiaini
[专家分：10] 发布于 2009-08-26 22:23:00
1234567
89012
345
6
789
01234
5678901
n=4
回复列表 （共5个回复）
沙发
zhiaini [专家分：10] 发布于 2009-08-26 22:29:00
CLS
INPUT N
M=N-1:K=1
FOR I=-M TO M
PRINT TAB(M-ABS(I)+1);
FOR J=1 TO ABS(I)*2+1
PRINT USING"#";K MOD 10;
K=K+1
NEXT J:PRINT
NEXT I
END
没有调试，如果错了，请谅解~
板凳
天天和和 [专家分：1420] 发布于 2009-08-26 22:31:00
对的，而且程序很好~
3 楼
phile [专家分：2310] 发布于 2009-08-27 09:03:00
很好，主要是将菱形上下颠倒此题就没问题了
4 楼
天天和和 [专家分：1420] 发布于 2009-09-04 22:53:00
嗯嗯 这楼主太有才了
5 楼
phile [专家分：2310] 发布于 2009-09-05 11:53:00
这几句就给这么多分？
我来回复
您所在位置：