回 帖 发 新 帖 刷新版面

主题:图形题

打印出以下图形:
1、N=5时             N=6时
                      
    A                  A  
   ABA                BAB
  ABCBA              CBABC
 ABCDCBA            DCBABCD
ABCDEDCBA          EDCBABCDE
 ABCDCBA          FEDCBABCDEF          
  CBABC            EDCBABCDE
   ABA              DCBABCD  
    A                CBABC  
                      BAB
N=7                    A
      A
     ABA
    ABCBA
   ABCDCBA
  ABCDEDCBA
 ABCDEFEDCBA
ABCDEFGFEDCBA
 ABCDEFEDCBA
  ABCDEBCDA
   ABCDCBA
    ABCBA
     ABA
      A

2、N=7
          1           1
         212         212
        32123       32123
       4321234     4321234
      543212345   543212345
     65432123456 65432123456
    7654321234567654321234567
     65432123456 65432123456
      543212345   543212345
       4321234     4321234
        32123       32123
         212         212
          1           1

回复列表 (共2个回复)

沙发

1
CLS
A$="ABCDEFJHIJKLMNOPQRSTUVWXYZ"
INPUT N
FOR I=1 TO N
 PRINT TAB(  );LIGHT$(A$,I);
 FOR J=I-1 TO 1
  PRINT MID$(A$,J,1)
NEXT J,I
FOR I=N-1 TO 1
 PRINT TAB(  );LIGHT$(A$,I);
 FOR J=I-1 TO 1
  PRINT MID$(A$,J,1)
 MEXT J
NEXT I
END

板凳

请你答完整好吗...

我来回复

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