QBASIC SERIES : 1/2, 2/3, 3/4...... 15/16 OR 15TH TERM

WAP TO GENERATE THE SERIES : 1/2, 2/3, 3/4...... 15/16 OR 15TH TERM

WAP TO GENERATE FRACTION SERIES

CLS
 A = 1
 B = 2
 FOR I = 1 TO 15
 PRINT A; /; B
 A = A + 1
 B = B + 1
 NEXT I
 END

USING SUB

DECLARE SUB FRACTION()
 CLS
 CALL FRACTION
 END
 
 SUB FRACTION
 A = 1
 B = 2
 FOR I = 1 TO 15
 PRINT A; /; B
 A = A + 1
 B = B + 1
 NEXT I
 END SUB