主题:我不会,请哥哥姐姐们,帮个忙
pan81595488
[专家分:0] 发布于 2005-06-04 09:47:00
7
575
35753
1357531
35753
575
7
回复列表 (共9个回复)
沙发
飞鸟12 [专家分:2830] 发布于 2005-06-04 10:07:00
输出这个图形吗?
INPUT "n=(n<6)"; n
PRINT
num$ = "135797531"
FOR i = 1 TO n
PRINT SPC(n - i); MID$(num$, n - i + 1, i); CHR$(29); MID$(num$, 10 - n, i)
NEXT i
FOR i = n - 1 TO 1 STEP -1
PRINT SPC(n - i); MID$(num$, n - i + 1, i); CHR$(29); MID$(num$, 10 - n, i)
NEXT i
PRINT
板凳
88324837 [专家分:490] 发布于 2005-06-04 17:22:00
a$="1357531"
for b=-3 to 3
print tab(10+abs(b));mid$(a$,abs(b)+1,7-2*abs(b))
next b
end
记得给我打个高分
3 楼
lcy947 [专家分:30] 发布于 2005-06-10 08:47:00
我想请教一下一楼(飞鸟12):PRINT CHR$(29)是什么意思,输出内容是什么?
4 楼
cleverboy [专家分:80] 发布于 2005-06-19 08:52:00
我的也不差
INPUT "n=(n<6)"; n
PRINT
num$ = "135797531"
FOR i = 1 TO n
PRINT SPC(n - i); MID$(num$, n - i + 1, i); CHR$(29); MID$(num$, 10 - n, i)
NEXT i
FOR i = n - 1 TO 1 STEP -1
PRINT SPC(n - i); MID$(num$, n - i + 1, i); CHR$(29); MID$(num$, 10 - n, i)
NEXT i
PRINT 记得给我打分哟?
5 楼
88324837 [专家分:490] 发布于 2005-06-21 11:47:00
晕,有简单的方法不用硬要怎么麻烦干什么啊,而且初学者又看不懂
6 楼
prairiewolf [专家分:290] 发布于 2005-06-24 19:52:00
这个在书上就有,只是稍加修改就可以用了
7 楼
555ai [专家分:0] 发布于 2005-06-25 20:44:00
PRINT CHR$(29)的意思就是输出ASII码29的字符
PS:ASII码是美国信息标准码!!![em15]
8 楼
def [专家分:3380] 发布于 2005-06-25 23:08:00
[em11]DEFINT A-Z
CONST a$ = "1357531"
k = 1
FOR i = 4 TO 1 STEP -1
PRINT SPACE$(i - 1); MID$(a$, i, k)
k = k + 2
NEXT i
k = 5
FOR i = 2 TO 4
PRINT SPACE$(i - 1); MID$(a$, i, k)
k = k - 2
NEXT i
END
9 楼
xiaozhenwyf [专家分:0] 发布于 2005-06-28 16:36:00
不好意思
大姐
我不会
我是新手!
我来回复