QBasic Programming

WAP TO DISPLAY H.C.F OF A GIVEN ANY TWO NUMBERS

CLS
INPUT "ENTER ANY TWO NUMBERS"; A, B
WHILE A MOD B < > 0
T = A MOD B
A = B
B = T
WEND
PRINT "H.C.F="; B
END

USING SUB PROCEDURE

DECLARE SUB HCF(A, B)
CLS
INPUT "ENTER ANY TWO NUMBERS"; A, B
CALL HCF (A, B)
END

SUB HCF (A, B)
WHILE A MOD B < > 0
T = A MOD B
A = B
B = T
WEND
PRINT "H.C.F="; B
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION HCF(A, B)
CLS
INPUT "ENTER ANY TWO NUMBERS"; A, B
PRINT “H.C.F=”; HCF (A, B)
END

FUNCTION HCF (A, B)
WHILE A MOD B < > 0
T = A MOD B
A = B
B = T
WEND
HCF = B
END FUNCTION

WAP TO DISPLAY H.C.F AND L.C.M OF A GIVEN ANY TWO NUMBERS (Prev Lesson)
(Next Lesson) WAP TO DISPLAY L.C.M OF A GIVEN ANY TWO NUMBERS
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!