To display the pattern. * * * * * * * * * * * * (Qbasic Code)

To display the pattern.
*   *   *   *  *
 *              *
   *          *
     *      *
         *

• CLS
  a$ = "*"
  LOCATE 10, 40
  PRINT TAB(20); "* * * * *"
  FOR i = 1 TO 3
      PRINT TAB(20 + i); a$; TAB(29 - i); a$
  NEXT i
  PRINT TAB(25); a$
  END

Share :

Twitter