QBasic Programming

WAP TO ENTER ANY DIGIT AND DISPLAY CUBE OF ODD DIGITS

REM
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "CUBE OF ODD DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 1 THEN PRINT R ^ 3;
N = N \ 10
WEND
END
USING SUB PROCEDURE
DECLARE SUB ODD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL ODD (N)
END
SUB ODD (N)
PRINT "CUBE OF ODD DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF  MOD 2 = 1 THEN PRINT R ^ 3;
N = N \ 10
WEND
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION ODD (N)
REM
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "CUBE OF ODD DIGITS";
D = ODD(N)
END
FUNCTION ODD (N)
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 1 THEN PRINT R ^ 3;
N = N \ 10
WEND
END FUNCTION

WAP TO ENTER ANY DIGIT AND DISPLAY CUBE OF EVEN DIGITS (Prev Lesson)
(Next Lesson) WAP to enter any 10 numbers and find the sum of numbers
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!