QBasic Programming

WAP TO DISPLAY L.C.M OF A GIVEN ANY TWO NUMBERS

CLS
INPUT "ENTER ANY TWO NUMBERS"; A, B
C = A
D = B
WHILE A MOD B < > 0
T = A MOD B
A = B
B = T
WEND
L = C * D / B
PRINT "L.C.M="; L
END
USING SUB PROCEDURE
DECLARE SUB LCM(A, B)
CLS
INPUT "ENTER ANY TWO NUMBERS"; A, B
CALL LCM (A, B)
END
SUB LCM (A, B)
C = A
D = B
WHILE A MOD B < > 0
T = A MOD B
A = B
B = T
WEND
L = C * D / B
PRINT "L.C.M="; L
END SUB
USING FUNCTION PROCEDURE

DECLARE FUNCTION LCM(A, B)
CLS
INPUT "ENTER ANY TWO NUMBERS"; A, B
PRINT “L.C.M=”; LCM (A, B)
END

FUNCTION LCM (A, B)
C = A
D = B
WHILE A MOD B < > 0
T = A MOD B
A = B
B = T
WEND
L = C * D / B
LCM = L
END FUNCTION

WAP TO DISPLAY H.C.F OF A GIVEN ANY TWO NUMBERS (Prev Lesson)
(Next Lesson) WAP to input number and find product of digits
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!