QBasic Programming

WAP to display first 5 Armstrong numbers

CLS
N = 1
CNT = 1
TOP:
A = N
S = 0
WHILE A < > 0
R = A MOD 10
S = S + R ^ 3
A = A \ 10
WEND
IF N = S THEN
PRINT N,
CNT = CNT + 1
END IF
N = N + 1
IF CNT <= 5 THEN GOTO TOP
END
USING SUB PROCEDURE
DECLARE SUB ARM ( )
CLS
CALL ARM
END
SUB ARM
N = 1 : CNT = 1
TOP:
A = N
S = 0
WHILE A < > 0
R = A MOD 10
S = S + R ^ 3
A = A \ 10
WEND
IF N = S THEN
PRINT N,
CNT = CNT + 1
END IF
N = N + 1
IF CNT <= 5 THEN GOTO TOP
END SUB

WAP to input any number and check whether the given no. is Armstrong or not (Prev Lesson)
(Next Lesson) WAP to display all Armstrong numbers from 1 to 500
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!