QBasic Programming

Input distance in meter and convert into kilometer and meter

REM PROGRAM TO CONVERT METER TO KILOMETER
CLS
INPUT”ENTER DISTANCE IN METER”; M
K = M \ 1000
MM = M MOD 1000
PRINT K; “KILOMETER”; MM; “METER”
END

USING SUB PROCEDURE
DECLARE SUB CONVERT(M)
CLS
INPUT”ENTER DISTANCE IN METER”; M
CALL CONVERT(M)
END

SUB CONVERT (M)
K = M \ 1000
MM = K MOD 1000
PRINT K; “KILOMETER”; MM; ”METER”
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION CONVERT(M)
COMMON SHARED K
CLS
INPUT”ENTER DISTANCE IN METER”; M
KK = CONVERT(M)
PRINT K; “KILOMETER”; KK; ”METER”
END

FUNCTION CONVERT (M)
K = M \ 1000
MM = K MOD 1000
CONVERT = MM
END FUNCTION

Input distance in kilometer and convert into meter (Prev Lesson)
(Next Lesson) Input distance in kilometer and convert into miles
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!