सामग्री पर जाएँ

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

विकिविश्वविद्यालय से
' This program asks the user for a Fahrenheit temperature,
' converts the given temperature to Celsius,
' and displays the results.

DECLARE SUB Main
DECLARE FUNCTION GetF
DECLARE FUNCTION CalculateC(F)
DECLARE SUB DisplayResult(F, C)

Main

SUB Main
    DIM F
    DIM C

  F = GetF
  C = CalculateC(F)
  DisplayResult F, C
END SUB

FUNCTION GetF()
    DIM F
    
    PRINT "Enter Fahrenheit temperature:"
    INPUT F
        
    GetF = F
END FUNCTION

FUNCTION CalculateC(F)
    DIM C

    C = (F - 32) * 5 / 9

    CalculateC = C
END FUNCTION

SUB DisplayResult(F, C)
    PRINT STR$(F) + "° Fahrenheit is " + STR$(C) + "° Celsius"
END SUB

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