QBASIC Program to print the pattern 12345, 1234, 123, 12, 1 (SUB/FUNCTION Procedure)

OUTPUT

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

Using SUB Procedure

DECLARE SUB pattern()
CLS
CALL pattern
END

SUB pattern
     FOR i = 5 TO 1 STEP -1
          FOR j = 1 TO i STEP 1

               PRINT j;

          NEXT j
          PRINT

     NEXT i
END SUB

Using FUNCTION Procedure

DECLARE FUNCTION pattern()
CLS
p = pattern
END

FUNCTION pattern
     FOR i = 5 TO 1 STEP -1
          FOR j = 1 TO i STEP 1

          PRINT j;

          NEXT j

          PRINT

     NEXT i
END FUNCTION