打印三角形 — 编程爱好者社区

您所在位置：社区首页 — QBasic讨论区 — 打印三角形

主题：打印三角形

qbasic爱好者 [专家分：10] 发布于 2009-08-11 17:06:00

怎样打一个三角形：
        A
       BAB
      CBABC
     DCBABCD
    EDCBABCDE
高分奖赏！

沙发

gewenbo [专家分：450] 发布于 2009-08-11 17:09:00

INPUT "N = ", n
a$ = "A"
FOR i = 1 TO n
PRINT TAB(n + 1 - i); a$
a$ = CHR$(65 + i) + a$ + CHR$(65 + i)
NEXT i
END

板凳

mickey980522 [专家分：150] 发布于 2009-08-11 17:11:00

for i=-25 to 25
a$=a$+chr$(65+abs(i)):
next i
input n
for i=1 to n
print tab(n+1-i);mid$(a$,27-i,i*2-1)
next i
end

3 楼

gewenbo [专家分：450] 发布于 2009-08-11 17:12:00

二楼的，你的思路也太麻烦了吧

您尚未登录，请登录后再回复。点此登录或注册