QBASIC Program to print the pattern 55555, 4444, 333, 22, 1 (SUB/FUNCTION Procedure)

OUTPUT

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

     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 i;

     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 i;

     NEXT j
     PRINT
NEXT i
END FUNCTION