Qbasic Program: Convert Fahrenheit into Celcisus

60. to accept temperature in Fahrenheit  from user and convert into the Celsius.

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

61. to accept temperature in Celcius from user and convert into the Farenheit.

REM PROGRAM TO CONVERT TEMPERATURE IN CELCIUS TO FARENHEIT

CLS

INPUT “ENTER TEMPERATURE IN CELCIUS”; C

F = C * (9 / 5) + 32

PRINT “TEMPERATURE IN FARENHEIT=”; F

END

USING SUB PROCEDURE

DECLARE SUB CONVERT (C)

CLS

INPUT “ENTER TEMPERATURE IN CELCIUS”; C

CALL CONVERT (C)

END

SUB CONVERT (C)

F = C * (9 / 5) + 32

PRINT “TEMPERATURE IN FARENHEIT=”; F

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CONVERT (C)

CLS

INPUT “ENTER TEMPERATURE IN CELCIUS”; C

PRINT “TEMPERATURE IN FARENHEIT=”; CONVERT (C)

END

FUNCTION CONVERT (C)

F = C * (9 / 5) + 32

CONVERT = F

END FUNCTION

62. to accept currency value in Nepalese Rupees and convert into Indian Currency

REM PROGRAM TO CONVERT NC VALUE INTO IC VALUE

CLS

INPUT “ENTER VALUE IN NEPALESE RUPEES”; NC

IC = NC / 1.6

PRINT “INDIAN CURRENCY VALUE=”; IC

END

USING SUB PROCEDURE

DECLARE SUB CONVERT (NC)

CLS

INPUT “ENTER VALUE IN NEPALESE RUPEES”; NC

CALL CONVERT (NC)

END

SUB CONVERT (NC)

IC = NC / 1.6

PRINT “INDIAN CURRENCY VALUE=”; IC

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CONVERT (NC)

CLS

INPUT “ENTER VALUE IN NEPALESE RUPEES”; NC

PRINT “INDIAN CURRENCY VALUE=”; CONVERT (NC)

END

FUNCTION CONVERT (NC)

IC = NC / 1.6

CONVERT = IC

END FUNCTION

63. to accept currency value in Indian Currency and convert into Nepalese Rupees

REM PROGRAM TO CONVERT IC VALUE INTO NC VALUE

CLS

INPUT “ENTER VALUE IN INDIAN VALUE”; IC

NC = IC * 1.6

PRINT “NEPALESE CURRENCY VALUE=”; NC

END

USING SUB PROCEDURE

DECLARE SUB CONVERT (IC)

CLS

INPUT “ENTER VALUE IN INDIAN VALUE”; IC

CALL CONVERT (IC)

END

SUB CONVERT (IC)

NC = IC * 1.6

PRINT “NEPALESE CURRENCY VALUE=”; NC

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CONVERT (IC)

CLS

INPUT “ENTER VALUE IN INDIAN VALUE”; IC

PRINT “NEPALESE CURRENCY VALUE=”; CONVERT (IC)

END

FUNCTION CONVERT (IC)

NC = IC * 1.6

CONVERT = NC

END FUNCTION

64. to accept currency value in dollar and convert into Nepalese Rupees

REM PROGRAM TO CONVERT DOLLAR INTO NC VALUE

CLS

INPUT “ENTER CURRENCY VALUE IN DOLLAR”; D

NC = D * 90

PRINT “NEPALESE CURRENCY VALUE=”; NC

END

USING SUB PROCEDURE

DECLARE SUB CONVERT (D)

CLS

INPUT “ENTER CURRENCY VALUE IN DOLLAR”; D

CALL CONVERT (D)

END

SUB CONVERT (D)

NC = D * 90

PRINT “NEPALESE CURRENCY VALUE=”; NC

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CONVERT (D)

CLS

INPUT “ENTER CURRENCY VALUE IN DOLLAR”; D

PRINT “NEPALESE CURRENCY VALUE=”; CONVERT (D)

END

FUNCTION CONVERT (D)

NC = D * 90

CONVERT = NC

END FUNCTION

65. to accept currency value in Nepalese Rupees and convert into dollar.

REM PROGRAM TO CONVERT NC VALUE INTO DOLLAR

CLS

INPUT “ENTER VALUE IN NEPALESE RUPEES”; NC

D = NC / 90

PRINT “DOLLAR CURRENCY VALUE=”; D

END

USING SUB PROCEDURE

DECLARE SUB CONVERT (NC)

CLS

INPUT “ENTER VALUE IN NEPALESE RUPEES”; NC

CALL CONVERT (NC)

END

SUB CONVERT (NC)

D = NC / 90

PRINT “DOLLAR CURRENCY VALUE=”; D

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CONVERT (NC)

CLS

INPUT “ENTER VALUE IN NEPALESE RUPEES”; NC

PRINT “DOLLAR CURRENCY VALUE=”;  CONVERT (NC)

END

FUNCTION CONVERT (NC)

D = NC / 90

CONVERT = D

END FUNCTION

66. Input number as paise and convert into rupees only.

REM PROGRAM TO CONVERT PAISE INTO RUPEES

CLS

INPUT “ENTER VALUE IN PAISE”; P

R = P / 100

PRINT P; “PAISE =”; “RS.”; R

END

USING SUB PROCEDURE

DECLARE SUB CONVERT (P)

CLS

INPUT “ENTER VALUE IN PAISE”; P

CALL CONVERT (P)

END

SUB CONVERT (P)

R = P / 100

PRINT P; “PAISE =”; “RS.”; R

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CONVERT (P)

CLS

INPUT “ENTER VALUE IN PAISE”; P

PRINT P; “PAISE =”; “RS.”; CONVERT(P)

END

FUNCTION CONVERT (IC)

R = P / 100

CONVERT = R

END FUNCTION