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

कंप्यूटर प्रोग्रामिंग/सबरुटिनेन्स/विजुअल बेसिक .नेट

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

Public Module Main
    Sub Main
        Dim F As Double
        Dim C As Double
        
        F = GetF()
        C = CalculateC(F)
        DisplayResult(F, C)
    End Sub

    Function GetF() As Double
        Dim Input As String
        Dim F As Double
        
        Console.WriteLine("Enter Fahrenheit temperature:")
        Input = Console.ReadLine()
        F = Convert.ToDouble(Input)

        Return F
    End Function

    Function CalculateC(F As Double) As Double
        Dim C As Double
        
        C = (F - 32) * 5 / 9
        
        Return C
    End Function

    Sub DisplayResult(F As Double, C As Double)
        Console.WriteLine(F.ToString() + "° Fahrenheit is " + C.ToString() + "° Celsius")
    End Sub
End Module

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