QBASIC Program to print the pattern 54321, 5432, 543, 54, 5 (SUB/FUNCTION Procedure)

OUTPUT

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

     NEXT j
          PRINT

     NEXT i
END

Using SUB Procedure

DECLARE SUB ptrn()
CLS
CALL ptrn
END

SUB ptrn
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 Procedure

DECLARE FUNCTION ptrn()
CLS
d = ptrn
END

FUNCTION ptrn
FOR i = 1 TO 5 STEP 1
     FOR j = 5 TO i STEP -1
          PRINT j;

     NEXT j
          PRINT

     NEXT i
END FUNCTION