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
No Comments