主题：一道简单的图形题``大大们帮我下
wanshibo121
[专家分：30] 发布于 2008-02-29 22:10:00
1
121
12321
1234321
123454321
大大们帮我下 3Q~
回复列表 （共12个回复）
沙发
matthew9671 [专家分：50] 发布于 2008-03-02 14:43:00
CLS
INPUT N
FOR I = 1 TO N
S$=""
FOR J = 1 TO I:S$=S$+"1":NEXT J
PRINT TAB(N-I);VAL(S$)^2
NEXT I
END
板凳
wanshibo121 [专家分：30] 发布于 2008-03-02 19:44:00
楼上的大大 程序好像有些问题丫``
不管怎么样 还是要谢谢大大了
3 楼
matthew9671 [专家分：50] 发布于 2008-03-02 20:18:00
CLS
INPUT N
FOR I = 1 TO N
S$=""
FOR J = 1 TO I:S$=S$+"1":NEXT J
PRINT TAB(N-I+1);VAL(S$)^2
NEXT I
END
4 楼
我爱QB [专家分：200] 发布于 2008-03-03 17:54:00
[em2]
5 楼
我爱QB [专家分：200] 发布于 2008-03-03 18:00:00
[em2]
FOR I = 1 TO 5
PRINT TAB(10-I);
FOR J = 1 TO (2*I-1)
IF J<=I THEN
PRINT CHR$(48+J);
ELSE
PRINT CHR$(48+(2*I-J));
END IF
NEXT J
PRINT
NEXT I
END
6 楼
wanshibo121 [专家分：30] 发布于 2008-03-04 21:39:00
LS 的大大的程序好像有问题呢``
7 楼
我爱QB [专家分：200] 发布于 2008-03-05 18:17:00
我试过了，没有问题呀！我还不到18岁，请不要叫我“大大”！呵呵。。。
8 楼
wanshibo121 [专家分：30] 发布于 2008-03-05 21:22:00
[em12]3Q了
9 楼
wzc1996 [专家分：1680] 发布于 2008-03-10 21:43:00
CLS FOR i = 1 TO 5
PRINT TAB(10 - i);
FOR j = 1 TO 2 * i - 1
IF j <= i THEN PRINT USING "#"; j; ELSE PRINT USING "#"; 2 * i - j;
NEXT PRINT NEXT
10 楼
wzc1996 [专家分：1680] 发布于 2008-03-10 21:49:00
CLS
FOR i = 1 TO 5
PRINT TAB(10 - i);
FOR j = 1 TO 2 * i - 1
IF j <= i THEN PRINT USING "#"; j; ELSE PRINT USING "#"; 2 * i - j;
NEXT PRINT
NEXT
我来回复
您所在位置：