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
*
***
*****
*******
*********
***********
*********
*******
*****
***
*
*
***
*****
*******
*********
***********
*************
***********
*********
*******
*****
***
*
*
***
*****
*******
*********
***********
*************
***************
*************
***********
*********
*******
*****
***
*