REM PROGRAM TO CONVERT TEMPERATURE IN FARENHEIT TO CELCIUS
CLS
INPUT “ENTER TEMPERATURE IN FARENHEIT”; F
C = (F – 32) * (5 / 9)
PRINT “TEMPERATURE IN CELCIUS=”; C
END
USING SUB PROCEDURE
DECLARE SUB CONVERT (F)
CLS
INPUT “ENTER TEMPERATURE IN FARENHEIT”; F
CALL CONVERT (F)
END
SUB CONVERT (F)
C = (F – 32) * (5 / 9)
PRINT “TEMPERATURE IN CELCIUS=”; C
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CONVERT (F)
CLS
INPUT “ENTER TEMPERATURE IN FARENHEIT”; F
PRINT “TEMPERATURE IN CELCIUS=”; CONVERT (F)
END
FUNCTION CONVERT (F)
C = (F – 32) * (5 / 9)
CONVERT = C
END FUNCTION
No Comments