QBasic Programming

REM PROGRAM TO DISPLAY SUM, DIFFERENCE, PRODUCT AND AVERAGE  OF TWO NUMBERS
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
S = A + B
D = A – B
P = A * B
AV = (A + B) / 2
PRINT “SUM OF TWO NUMBERS”; S
PRINT “DIFFERENCE OF TWO NUMBERS”; D
PRINT “PRODUCT OF TWO NUMBERS”; P
PRINT “AVERAGE OF TWO NUMBERS”; AV
END

USING SUB PROCEDURE

DECLARE SUB SUM (A, B)
DECLARE SUB DIFF (A, B)
DECLARE SUB PROD (A, B)
DECLARE SUB AVERAGE (A, B)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
CALL SUM(A, B)
CALL DIFF(A, B)
CALL PROD(A, B)
CALL AVERAGE(A, B)
END

SUB SUM (A, B)
S = A + B
PRINT “SUM OF TWO NUMBERS”; S
END SUB
SUB DIFF (A, B)
D = A - B
PRINT “DIFFERENCE OF TWO NUMBERS”; D
END SUB
SUB PROD (A, B)
P = A * B
PRINT “PRODUCT OF TWO NUMBERS”; P
END SUB

SUB AVERAGE (A, B)
AV = (A + B) / 2
PRINT “AVERAGE OF TWO NUMBERS”; AV
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SUM (A, B)
DECLARE FUNCTION DIFF (A, B)
DECLARE FUNCTION PROD (A, B)
DECLARE FUNCTION AVERAGE (A, B)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
S = SUM(A, B)
D = DIFF (A, B)
P = PROD(A, B)
AV = AVERAGE(A, B)
PRINT “SUM OF TWO NUMBERS”; S
PRINT “DIFFERENCE OF TWO NUMBERS”; D
PRINT “PRODUCT OF TWO NUMBERS”; P
PRINT “AVERAGE OF TWO NUMBERS”; AV
END

FUNCTION SUM (A, B)
SU = A + B
SUM = SU
END FUNCTION

FUNCTION DIFF (A, B)
D = A - B
DIFF = D
END FUNCTION

FUNCTION PROD (A, B)
P = A * B
PROD = P
END FUNCTION

FUNCTION AVERAGE (A, B)
AVGR = (A + B) / 2
AVERAGE = AVGR
END FUNCTION