主题：求助一图形
TMGY119
[专家分：0] 发布于 2007-10-23 08:21:00
1
121
12321
1234321
123454321
12345654321
回复列表 （共5个回复）
沙发
TMGY119 [专家分：0] 发布于 2007-10-23 14:59:00
1
121
12321
1234321
123454321
12345654321
打错了
板凳
TMGY119 [专家分：0] 发布于 2007-10-23 15:00:00
1
121
12321
1234321
123454321
12345654321
3 楼
TMGY119 [专家分：0] 发布于 2007-10-23 15:01:00
第一层的1是在中间，操作有点失误。
4 楼
wgkg2003 [专家分：0] 发布于 2007-10-25 00:40:00
n=6
for i=1 to n
print tab(20-i);
for j=-(i-1) to i-1
a=abs(j)
pring ltrim$(str$(i-a));
next j
print
next i
end
[em8][em8][em8]
5 楼
神的思想 [专家分：80] 发布于 2008-02-06 18:45:00
CLS
INPUT n
FOR i = 1 TO n
k = 1: PRINT TAB(21 - i);
FOR j = 1 TO 2 * i - 1
PRINT USING "#"; k;
IF j < (2 * i - 1) \ 2 + 1 THEN k = k + 1 ELSE k = k - 1
NEXT j
PRINT
NEXT i
END
[em5]
我来回复
您所在位置：