主题：[讨论]考考高手们，这样的图形题目你会编程吗？
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个回复）
21 楼
huangyb731 [专家分：630] 发布于 2010-10-27 22:28:00
哎~~~
等一下！
没注意9楼已经有方法了
Sorry，
一下子又成了剽窃者了
22 楼
huangyb731 [专家分：630] 发布于 2010-10-27 22:36:00
[fly]试试这个程序——————[em1][em1][em1][em1][em1][/fly]
cls
input “A$=";A$
N=len(A$)
for I=1 to N/2
C$=right$(A$,I)
B$=left$(A$,I)
print B$;tab(N+1-I);C$
next
end
输入：ABCDEF
输出：
A F
AB EF
ABCDEF
23 楼
幽灵密码 [专家分：3510] 发布于 2010-11-03 16:57:00
简单 简单 简单
多么希望今年的竞赛题像这样简单啊
对了15楼的，我也是1999的
24 楼
幽灵密码 [专家分：3510] 发布于 2010-11-03 17:17:00
1.
CLS
INPUT N
FOR I = 1 TO N
PRINT TAB((N + 1 - I) * 2);
FOR J = 1 TO I * 2 - 1
PRINT USING "##"; N + 1 - I;
NEXT J
PRINT
NEXT I
END
2.
CLS
A$ = "1234567890"
INPUT N
FOR I = 1 TO N
PRINT TAB(N + 1 - I);
FOR J = 1 TO I
PRINT MID$(A$, J, 1);
NEXT J
FOR J = I - 1 TO 1 STEP -1
PRINT MID$(A$, J, 1);
NEXT J
PRINT
NEXT I
END
25 楼
幽灵密码 [专家分：3510] 发布于 2010-11-03 17:29:00
22楼：
CLS
INPUT a$
la = LEN(a$)
FOR i = 1 TO la \ 2
b$ = LEFT$(a$, i)
c$ = RIGHT$(a$, i)
PRINT b$; SPC(la - i * 2); c$
NEXT i
END
对吧！
26 楼
幽灵密码 [专家分：3510] 发布于 2010-11-03 17:40:00
CLS
INPUT a$
la = LEN(a$)
FOR i = la \ 2 TO 1 STEP -1
b$ = LEFT$(a$, i)
c$ = RIGHT$(a$, i)
PRINT b$; SPC(la - i * 2); c$
NEXT i
FOR i = 1 TO la \ 2
b$ = LEFT$(a$, i)
c$ = RIGHT$(a$, i)
PRINT b$; SPC(la - i * 2); c$
NEXT i
END
“相框”，呵呵
27 楼
verysmartboy [专家分：1260] 发布于 2010-11-17 21:54:00
22楼的：
CLS
INPUT n$
l = LEN(n$)
a = 1
FOR i = 1 TO l \ 2
w$ = LEFT$(n$, a)
PRINT TAB(1); w$;
m$ = RIGHT$(n$, a)
PRINT TAB(l); m$
a = a + 1: l = l - 1
PRINT
NEXT i
END
原创方法，和你的方法不一样吧！
28 楼
verysmartboy [专家分：1260] 发布于 2010-11-17 21:55:00
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
29 楼
verysmartboy [专家分：1260] 发布于 2010-11-17 21:56:00
第二题！！！
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
给我分
30 楼
jackyace [专家分：0] 发布于 2011-04-29 12:07:00
用国外的教程提到的,下面就最直观的写法了
cls
? "5"
? "444"
? "3333"
? "22222"
? "111111"
end
cls
? "121"
? "12321"
? "1234321"
? "123454321"
end
我来回复
您所在位置：