REM PROGRAM TO CONVERT KILOMETER TO METER
CLS
INPUT”ENTER DISTANCE IN KILOMETER”; K
M = K * 1000
PRINT “DISTANCE IN METER=”; M
END
USING SUB PROCEDURE
DECLARE SUB CONVERT(K)
CLS
INPUT”ENTER DISTANCE IN KILOMETER”; K
CALL CONVERT(K)
END
SUB CONVERT (K)
M = K * 1000
PRINT “DISTANCE IN METER=”; M
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CONVERT(K)
CLS
INPUT”ENTER DISTANCE IN KILOMETER”; K
PRINT “DISTANCE IN METER=”; CONVERT(K)
END
FUNCTION CONVERT (K)
M = K * 1000
CONVERT = M
END FUNCTION
No Comments