qbasic中怎样用循环打出一个菱形

来源：百度知道 编辑：UC知道 时间：2024/05/30 11:46:07

INPUT n '输出有2n-1行
PRINT TAB(n); "#"
FOR i = 2 TO n
PRINT TAB(n - i + 1); "#"; TAB(n + i - 1); "#"
NEXT i
FOR i = n - 1 TO 2 STEP -1
PRINT TAB(n - i + 1); "#"; TAB(n + i - 1); "#"
NEXT i
PRINT TAB(n); "#"

或者使用SPACE$：
INPUT n '输出有2n-1行
PRINT SPACE$(n - 1); "#"
FOR i = 2 TO n
PRINT SPACE$(n - i); "#"; SPACE$(2 * (i - 1) - 1); "#"
NEXT
FOR i = n - 1 TO 2 STEP -1
PRINT SPACE$(n - i); "#"; SPACE$(2 * (i - 1) - 1); "#"
NEXT
PRINT SPACE$(n - 1); "#"