QBasic Programming

WAP to display all palindrome numbers from 1 to 200

CLS
N = 1
FOR I = 1 TO 200
A = N
S = 0
WHILE A < > 0
R = A MOD 10
S = S * 10 + R
A = A \ 10
WEND
IF N = S THEN PRINT N,
N = N + 1
NEXT I
END

USING SUB PROCEDURE

DECLARE SUB PALIN ( )
CLS
CALL PALIN
END

SUB PALIN
N = 1
FOR I = 1 TO 200
A = N
S = 0
WHILE A < > 0
R = A MOD 10
S = S * 10 + R
A = A \ 10
WEND
IF N = S THEN PRINT N,
N = N + 1
NEXT I
END SUB

WAP to display first 20 palindrome numbers (Prev Lesson)
(Next Lesson) WAP to input any number and check whether the given no. is Armstrong or not
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!