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 :

Facebook Twitter Google+
Back To Top

facebook main

counter

Powered by Blogger.