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

OUTPUT

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

     NEXT j
     PRINT
NEXT i
END

Patterns Using SUB Procedure

DECLARE SUB pattern()
CLS
CALL pattern
END

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

               PRINT i;

          NEXT j
          PRINT

     NEXT i
END SUB

Patterns Using FUNCTION Procedure

DECLARE FUNCTION pattern()
CLS
p = pattern
END

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

               PRINT i;

          NEXT j

     PRINT
     NEXT i
END FUNCTION