主题：30分
游戏之王
[专家分：540] 发布于 2007-12-06 17:14:00
ABCDEDCBA
BCDEDCB
CDEDC
DED
E
DED
CDEDC
BCDEDCB
ABCDEDCBA
回复列表 （共11个回复）
沙发
网虫一号 [专家分：1230] 发布于 2007-12-06 17:16:00
CLS
INPUT N$: N = LEN(N$): M = N - 1
FOR I = M TO 1 STEP -1: N$ = N$ + MID$(N$, I, 1): NEXT I
X = 1: Y = N * 2 - 1
FOR I = -M TO M
PRINT TAB(N - ABS(I)); MID$(N$, X, Y)
IF I < 0 THEN X = X + 1: Y = Y - 2 ELSE X = X - 1: Y = Y + 2
NEXT I
END
板凳
网虫一号 [专家分：1230] 发布于 2007-12-06 17:17:00
太简单了，拜托以后别发这么简单的题！
3 楼
游戏之王 [专家分：540] 发布于 2007-12-06 17:20:00
偶是初学者啦，还情歌为大下咄咄指教！
4 楼
小精灵1号 [专家分：1040] 发布于 2007-12-06 17:22:00
CLS
INPUT N$: N = LEN(N$): M = N - 1
FOR I = M TO 1 STEP -1: N$ = N$ + MID$(N$, I, 1): NEXT I
X = 1: Y = N * 2 - 1
FOR I = -M TO M
PRINT TAB(N - ABS(I)); MID$(N$, X, Y)
IF I < 0 THEN X = X + 1: Y = Y - 2 ELSE X = X - 1: Y = Y + 2
NEXT I
END
5 楼
我的电脑 [专家分：990] 发布于 2007-12-06 17:46:00
CLS
INPUT N$: N = LEN(N$): M = N - 1
FOR I = M TO 1 STEP -1: N$ = N$ + MID$(N$, I, 1): NEXT I
X = 1: Y = N * 2 - 1
FOR I = -M TO M
PRINT TAB(N - ABS(I)); MID$(N$, X, Y)
IF I < 0 THEN X = X + 1: Y = Y - 2 ELSE X = X - 1: Y = Y + 2
NEXT I
END
6 楼
QB小猪 [专家分：1200] 发布于 2007-12-06 17:50:00
CLS
INPUT N$: M = LEN(N$) - 1
FOR I = M TO 1 STEP -1: N$ = N$ + CHR$(64 + I): NEXT I
FOR I = -M TO M
PRINT TAB(M + 1 - ABS(I)); MID$(N$, M + 1 - ABS(I), ABS(I) * 2 + 1)
NEXT I
END
7 楼
bb5415274 [专家分：0] 发布于 2007-12-15 14:51:00
CLS
a$=ABCDEDCBA
FOR I = -3 to 4
X=ABS(I)
PRINT TAB(50-X);
PRINT MID(a$,5-X,2*X+1)
NEXT
END
8 楼
Lovely哆啦 [专家分：1360] 发布于 2007-12-16 10:31:00
怎么可以自己给自己加分呢?我可认识你呵!怪不得你的分猛涨!
9 楼
V2战警2 [专家分：390] 发布于 2008-01-19 19:48:00
CLS
INPUT N$: N = LEN(N$): M = N - 1
FOR I = M TO 1 STEP -1: N$ = N$ + MID$(N$, I, 1): NEXT I
X = 1: Y = N * 2 - 1
FOR I = -M TO M
PRINT TAB(N - ABS(I)); MID$(N$, X, Y)
IF I < 0 THEN X = X + 1: Y = Y - 2 ELSE X = X - 1: Y = Y + 2
NEXT I
END
10 楼
冷石_jasv [专家分：1570] 发布于 2008-01-26 12:00:00
我以前也是认为这种题目太简单..会也没什么用.
直到有一天.写45度角地图游戏时候..突然发现.里面的算法和这玩意是多么的相似啊..当然.里面不会傻傻的用到什么tab().
可惜.出这种题目的老师们自己或许也不知道.这种题目除了用来考试还能干什么.就好象为什么我以前一直不明白.我学计算机的干么要去学什么矩阵...
原来.那玩意可以用来写3d游戏.
我来回复
您所在位置：