Practical#07

SOURCE PROGRAM

10 REM TO CONVERT FAHRENHEIT INTO CENTIGRADE AND CENTIGRADE INTO FAHRENHEIT

20 CLS

30 PRINT "TO CONVERT FAHRENHEIT INTO CENTIGRADE"

40 INPUT "ENTER VALUE IN FAHRENHEIT";F

50 LET C = (5 / 9) * (F - 32)

60 PRINT F, "FAHRENHEIT", "===", C, "CENTIGRADE"

70 PRINT "***********************************************************"

80 PRINT "TO CONVERT CENTIGRADE INTO FAHRENHEIT"

90 INPUT "ENTER VALUE IN CENTIGRADE";C1

100 LET F1 = (9 / 5)*C1 + 32

110 PRINT C1, "CENTIGRADE","===", F1, "FAHRENHEIT"

120 END




OUTPUT

41 FAHRENHEIT === 5 CENTIGRADE
*****************************************************************
5 CENTIGRADE === 41 FAHRENHEIT

Return to Top