主题：简单题
傲视人间
[专家分：60] 发布于 2007-11-02 16:54:00
请你设计一个程序打印下图，最多允许使用三重循环。
***** ***** *****
*** *** ***
* * *
*** *** ***
***** ***** *****
***** ***** *****
*** *** ***
* * *
*** *** ***
***** ***** *****
回复列表 （共7个回复）
沙发
08HQM [专家分：60] 发布于 2007-11-03 12:48:00
CLS
INPUT N, M
L = N \ 2 + 1
FOR I = 1 TO 2
FOR J = -L TO L
PRINT TAB(L + 1 - ABS(J));
FOR K = 1 TO M
PRINT STRING$(ABS(J) * 2 + 1, "*"); SPC((N - ABS(J)) * 2-3);
NEXT K
PRINT
NEXT J
NEXT I
END
板凳
傲视人间 [专家分：60] 发布于 2007-11-05 20:36:00
[quote]CLS
INPUT N, M
L = N \ 2 + 1
FOR I = 1 TO 2
FOR J = -L TO L
PRINT TAB(L + 1 - ABS(J));
FOR K = 1 TO M
PRINT STRING$(ABS(J) * 2 + 1, "*"); SPC((N - ABS(J)) * 2-3);
NEXT K
PRINT
NEXT J
NEXT I
END
我说是简单题吧！
3 楼
失落的快乐 [专家分：100] 发布于 2007-11-12 18:59:00
cls
input m,n,b
v=n\2
for i=1 to m
FOR j = -v TO v
PRINT TAB(ABS(v + 1 - ABS(j)));
FOR h = 1 TO b
PRINT STRING$(ABS(j) * 2 + 1, "*");
PRINT SPC(n - ABS(j) * 2);
NEXT h
NEXT j
print
next i
end
4 楼
天尝地酒 [专家分：870] 发布于 2007-11-21 17:24:00
CLS
INPUT n, m, hchy
k = n \ 2
FOR x = 1 TO hchy
FOR i = -k TO k
PRINT TAB(k + 1 - ABS(i));
FOR j = 1 TO m
PRINT STRING$(ABS(i) * 2 + 1, "*"); SPC(n - ABS(i) * 2);
NEXT j: PRINT
NEXT i
NEXT x
END
一定要加分哦!!!![em2][em2][em2][em2]
5 楼
hqm1 [专家分：570] 发布于 2007-11-23 17:22:00
CLS
INPUT N, M
L = N \ 2 + 1
FOR I = 1 TO 2
FOR J = -L TO L
PRINT TAB(L + 1 - ABS(J));
FOR K = 1 TO M
PRINT STRING$(ABS(J) * 2 + 1, "*"); SPC((N - ABS(J)) * 2-3);
NEXT K
PRINT
NEXT J
NEXT I
END
6 楼
失落的快乐 [专家分：100] 发布于 2007-11-23 17:49:00
cls
input m,n,b
v=n\2
for i=1 to m
FOR j = -v TO v
PRINT TAB(ABS(v + 1 - ABS(j)));
FOR h = 1 TO b
PRINT STRING$(ABS(j) * 2 + 1, "*");
PRINT SPC(n - ABS(j) * 2);
NEXT h
NEXT j
print
next i
end
7 楼
QB小猪 [专家分：1200] 发布于 2007-12-06 17:45:00
cls
input m,n,b
v=n\2
for i=1 to m
FOR j = -v TO v
PRINT TAB(ABS(v + 1 - ABS(j)));
FOR h = 1 TO b
PRINT STRING$(ABS(j) * 2 + 1, "*");
PRINT SPC(n - ABS(j) * 2);
NEXT h
NEXT j
print
next i
end
我来回复
您所在位置：