कंप्यूटर प्रोग्रामिंग/कंडीशन/बेसिक

conditions.bas

' This program asks the user to select Fahrenheit or Celsius conversion
' and input a given temperature. Then the program converts the given
' temperature and displays the result.

DECLARE SUB Main
DECLARE SUB IfElse
DECLARE SUB SelectCase
DECLARE SUB ToCelsius
DECLARE SUB ToFahrenheit

Main

SUB Main
    IfElse
    SelectCase
END SUB

SUB IfElse
    DIM Choice$
    
    PRINT "Enter F to convert to Fahrenheit or C to convert to Celsius:"
    INPUT Choice$
    IF Choice$ = "C" OR Choice$ = "c" THEN
        ToCelsius 
    ELSEIF Choice$ = "F" OR Choice$ = "f" THEN
            ToFahrenheit 
    ELSE
        PRINT "You must enter C to convert to Celsius or F to convert to Fahrenheit!"
    END IF
END SUB

SUB SelectCase
    DIM Choice$
    
    PRINT "Enter F to convert to Fahrenheit or C to convert to Celsius:"
    INPUT Choice$
    SELECT CASE Choice$
        CASE "C"
            ToCelsius
        CASE "c"
            ToCelsius
        CASE "F"
            ToFahrenheit
        CASE "f"
            ToFahrenheit
        CASE ELSE
            PRINT "You must enter C to convert to Celsius or F to convert to Fahrenheit!"
    END SELECT
END SUB

SUB ToCelsius
    DIM F
    DIM C
    
    PRINT "Enter Fahrenheit temperature:"
    INPUT F
    C = (F - 32) * 5 / 9
    PRINT STR$(F) + "° Fahrenheit is " + STR$(C) + "° Celsius"
END SUB

SUB ToFahrenheit
    DIM C
    DIM F
    
    PRINT "Enter Celsius temperature:"
    INPUT C
    F = C * 9 / 5 + 32
    PRINT STR$(C) + "° Celsius is " + STR$(F) + "° Fahrenheit"
END SUB

कोशिश करो

निम्न कोड मुफ्त ऑनलाइन विकास के वातावरण में से एक में ऊपर कॉपी और पेस्ट करो या अपने खुद के कम्पाइलर/इंटरप्रेटर/आईडीई का उपयोग करें।

• repl.it

यह भी देखें

• कंप्यूटर प्रोग्रामिंग
• बेसिक प्रोग्रामिंग पुस्तक