QBasic Programming

WAP TO ENTER ANY DIGIT AND DISPLAY SQUARE OF ODD DIGITS

CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "SQUARE OF ODD DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 1 THEN PRINT R;
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 " SQUARE OF ODD DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 1 THEN PRINT R;
N = N \ 10
WEND
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION ODD (N)
REM
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "SQUARE 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 ^ 2;
N = N \ 10
WEND
END FUNCTION

WAP TO ENTER ANY DIGIT AND DISPLAY SQUARE OF EVEN DIGITS (Prev Lesson)
(Next Lesson) WAP TO ENTER ANY DIGIT AND DISPLAY CUBE OF EVEN DIGITS
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!