QBasic Programming

WAP to input number and find product of even digits

REM
CLS
INPUT "ENTER ANY NUMBER"; N
P = 1
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN P = P * R
N = N \ 10
WEND
PRINT "PRODUCT OF EVEN DIGITS"; P
END

USING SUB PROCEDURE

DECLARE SUB PROD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL PROD (N)
END

SUB PROD (N)
P = 1
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN P = P * R
N = N \ 10
WEND
PRINT "PRODUCT OF EVEN DIGITS"; P
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PROD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
PR = PROD (N)
PRINT "PRODUCT OF EVEN DIGITS"; PR
END

FUNCTION PROD (N)
P = 1
WHILE N < > 0
 R = N MOD 10
IF R MOD 2 = 0 THEN P = P * R
N = N \ 10
WEND
PROD = P
END FUNCTION

WAP to input number and find product of odd digits (Prev Lesson)
(Next Lesson) WAP to enter any 5 numbers and display its product
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!