主题：忒简单！
游戏之王
[专家分：540] 发布于 2007-11-05 19:03:00
编程打印下面N为奇数时的组合图形。
例如：⑴当N=5时的图形如下：
%%%%%%%%%
% $ %
%$$$%
% %
%
% %
%$$$%
% $ %
%%%%%%%%%
回复列表 （共4个回复）
沙发
小精灵1号 [专家分：1040] 发布于 2007-11-05 19:04:00
CLS
INPUT M, N
FOR I = M TO 1 STEP -1
FOR J = N TO 1 STEP -1: S = S + 1
PRINT TAB(S);
FOR K = 1 TO I
IF J = N THEN PRINT STRING$(N * 2 - 1, "#"); " "; : GOTO 1
FOR L = 1 TO J * 2 - 1
IF L = 1 OR L = J * 2 - 1 THEN PRINT "#"; ELSE PRINT " ";
NEXT L: PRINT SPC((N - J) * 2 + 1);
1 NEXT K: PRINT
NEXT J, I
END
板凳
游戏之王 [专家分：540] 发布于 2007-11-05 19:05:00
3 楼
我的电脑 [专家分：990] 发布于 2007-11-05 19:05:00
CLS
INPUT M, N
FOR I = M TO 1 STEP -1
FOR J = N TO 1 STEP -1: S = S + 1
PRINT TAB(S);
FOR K = 1 TO I
IF J = N THEN PRINT STRING$(N * 2 - 1, "#"); " "; : GOTO 1
FOR L = 1 TO J * 2 - 1
IF L = 1 OR L = J * 2 - 1 THEN PRINT "#"; ELSE PRINT " ";
NEXT L: PRINT SPC((N - J) * 2 + 1);
1 NEXT K: PRINT
NEXT J, I
END
4 楼
网虫一号 [专家分：1230] 发布于 2007-11-05 19:06:00
CLS
INPUT N
PRINT STRING$(N * 2 - 1, "%")
FOR I = 2 TO N
PRINT TAB(I); "%";
IF I <= (N + 1) \ 2 THEN PRINT TAB(N + 2 - I); STRING$(I * 2 - 3, "$");
IF I < N THEN PRINT TAB(N * 2 - I); "%";
NEXT I
FOR I = N - 1 TO 2 STEP -1
PRINT TAB(I); "%";
IF I <= (N + 1) \ 2 THEN PRINT TAB(N + 2 - I); STRING$(I * 2 - 3, "$");
IF I < N THEN PRINT TAB(N * 2 - I); "%";
NEXT I: PRINT
PRINT STRING$(N * 2 - 1, "%")
END
我来回复
您所在位置：