灌水 - [Basic]還記得嗎~~~那個L(來)W(玩)

[魔術王子]

https://drive.google.com/file/d/1F17...ew?usp=sharing
修改好了

10 CLS
20 INPUT "輸入菱形數量: ",C
30 DIM N(C)
40 FOR I=1 TO C
50 PRINT "輸入第";I;"個菱形"
60 INPUT "層數: ",N(I)
70 NEXT I
80 PRINT
90 FOR I=1 TO C
100 A=1:L=N(I)/2:L=L+1
110 FOR J=1 TO N(I)
120 IF J>N(I)/2 THEN PRINT SPACE(J-L); ELSE PRINT SPACE(L-J);
130 FOR K=1 TO A
140 PRINT "*";
150 NEXT K
160 PRINT
170 IF J>N(I)/2 THEN A=A-2 ELSE A=A+2
180 NEXT J
190 PRINT
200 NEXT I

輸入菱形數量: 3
輸入第1個菱形
層數: 11
輸入第2個菱形
層數: 13
輸入第3個菱形
層數: 15

     *
    ***
   *****
  *******
 *********
***********
 *********
  *******
   *****
    ***
     *

      *
     ***
    *****
   *******
  *********
 ***********
*************
 ***********
  *********
   *******
    *****
     ***
      *

       *
      ***
     *****
    *******
   *********
  ***********
 *************
***************
 *************
  ***********
   *********
    *******
     *****
      ***
       *