主题：[讨论]考考高手们，这样的图形题目你会编程吗？
wh030109035
[专家分：0] 发布于 2010-03-30 08:56:00
5
444
33333
2222222
111111111
1
121
12321
1234321
123454321
上面这两个图形怎么编程呢？是两道题目哦。
最后更新于：2010-03-30 10:07:00
回复列表 （共30个回复）
11 楼
幽灵密码 [专家分：3510] 发布于 2010-06-08 12:55:00
1.
CLS
INPUT n
FOR i=1 TO n
PRINT TAB(n+1-i);
FOR j=1 TO 2*i-1
PRINT n+1-i;
NEXT j
PRINT
NEXT i
END
2.
CLS
a$ = "123456789"
b$ = "987654321"
INPUT n
DIM x$((n - 1) * 2 + 1)
FOR i = 1 TO n
p = (i - 1) * 2 + 1
PRINT TAB(((n - 1) * 2 + 1) \ 2 + 1 - ((i - 1) * 2 + 1) \ 2);
FOR j = 1 TO p
IF j <= (p \ 2) THEN
x$(j) = MID$(b$, 9 - j, 1)
ELSE
x$(j) = MID$(a$, j - p \ 2, 1)
END IF
NEXT j
FOR k = p \ 2 TO 1 STEP -1
PRINT x$(k);
NEXT k
FOR k = p \ 2 + 1 TO p
PRINT x$(k);
NEXT k
PRINT
NEXT i
END
12 楼
幽灵密码 [专家分：3510] 发布于 2010-06-08 12:55:00
似乎有些麻烦……
13 楼
houfujin [专家分：0] 发布于 2010-06-08 13:35:00
5
444
33333
2222222
111111111
FOR N=1 TO 5
PRINT TAB(6-N);STRING$(2*N-1,LTRIM$(RTRIM$(STR$(6-N))))
NEXT N
END
14 楼
phile [专家分：2310] 发布于 2010-06-23 15:13:00
太小case
15 楼
huangyb731 [专家分：630] 发布于 2010-10-25 20:15:00
1：
cls
A$="54321"
for I=1 to 5
print tab(40-I);
for J=1 to 2*I-1
print mid$(A$,I,1);
next
next
end
超简单！
本人是全国青少年编程大赛的参加者
1999年的
16 楼
huangyb731 [专家分：630] 发布于 2010-10-25 20:23:00
2：
CLS
FOR I = 1 TO 5
PRINT TAB(40 - I);
FOR J = 1 TO 2 * I - 1
IF I > J THEN PRINT USING "#"; J; ELSE PRINT USING "#"; 2 * I - J;
NEXT
PRINT
NEXT
END
嘿嘿嘿嘿~~~~[em1][em1]
18 楼
verysmartboy [专家分：1260] 发布于 2010-10-25 20:50:00
1
CLS
N=1
F=6
FOR I=1 TO 5
PRINT TAB(F);
F=F-1
FOR J=1 TO N
PRINT LTRIM$(STR$(F));
NEXT J
N=N+2
NEXT I
END
2.
CLS
n = 4: C = 2
A$ = "4321"
B$ = "12345"
PRINT TAB(5); "1"
FOR I = 2 TO 5
PRINT TAB(n); MID$(B$, 1, C) + RIGHT$(A$, C - 1)
C = C + 1
n = n - 1
NEXT I
END
20 楼
verysmartboy [专家分：1260] 发布于 2010-10-27 22:24:00
第二题是重合的对称图形，简单，一个正的一个反的，随便输.
我来回复
您所在位置：