Home QBASIC C Java HTML
  • More Courses
  • MCQs
  • Blog Download
  • Tools
  • Contact

    QBASIC Program to print 54321, 5432, 543, 54, 5

    Posted on 2021-01-28

    QBASIC Program to print the pattern 54321, 5432, 543, 54, 5. This pattern can be print by using nexted for loop. In outer loop will be looped 5 times in ascending order (1 to 5) and inner loop will be loop from 5 to number of outer loop item in decending order. Then value of inner loop will be printed in the console one after another. 

    CLS
    FOR i = 1 TO 5 STEP 1
        FOR j = 5 TO i STEP -1
            PRINT j;
        NEXT j
        PRINT
    NEXT i
    END
    

    OUTPUT

    5 4 3 2 1
    5 4 3 2
    5 4 3
    5 4
    5

    Using SUB ... END SUB

    DECLARE SUB Pattern()
    CLS
    CALL Pattern
    END
    
    SUB Pattern ()
        FOR i = 1 TO 5 STEP 1
            FOR j = 5 TO i STEP -1
                PRINT j;
            NEXT j
            PRINT
        NEXT i
    END SUB
    

    Using FUNCTION ... END

    DECLARE FUNCTION Pattern()
    CLS
    r = Pattern
    END
    
    FUNCTION Pattern ()
        FOR i = 1 TO 5 STEP 1
            FOR j = 5 TO i STEP -1
                PRINT j;
            NEXT j
            PRINT
        NEXT i
    END FUNCTION
    

    393