回 帖 发 新 帖 刷新版面

主题:[讨论]2001年市赛题

1、输入A-Z26个大写字母中队Z外的任一个大写字母,则输出 由大写字母组成的“字母塔如:输入C,则输出图1;输入E,则输出 图2。(直接打印不给分)
     A
    ABA
   ABCBA  
  ABCDCBA
图2:
     A
    ABA
   ABCBA
  ABCDCBA
 ABCDEDCBA
ABCDEFEDCBA
CLS
INPUT n
FOR i = 1 TO n  
 PRINT TAB( n + 1 - i);
  FOR j = 1 TO 2 * i - 1
   IF j > i THEN PRINT CHR$(64 + 2 * i - j);  ELSE PRINT CHR$(64 + j);
  NEXT
 PRINT
NEXT
问题是输出是字母怎么解决?
打印字母以解决!
[em9]
答对给分!

回复列表 (共2个回复)

沙发

你说好给分的。
CLS
INPUT a$
CLS
b$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
s = ASC(a$) - 64
PRINT TAB(s + 1); "A"
FOR i = 1 TO s
    PRINT TAB(s + 1 - i);
    FOR j = -i TO i
        PRINT MID$(b$, i + 1 - ABS(j), 1);
    NEXT j
    PRINT
NEXT i
END

板凳

TNANKS!
 

我来回复

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