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

विकिविश्वविद्यालय से
Jump to navigation Jump to search

loops.vb[सम्पादन | स्रोत सम्पादित करें]

' This program displays a temperature conversion table showing Fahrenheit
' temperatures from 0 to 100, in increments of 10, and the corresponding
' Celsius temperatures using While, For, and Do loops.

Imports System

Public Module MyProgram
    Sub Main
        WhileLoop()
        ForLoop()
        DoLoop()
    End Sub

    Private Sub WhileLoop()
        Dim F As Double
        Dim C As Double
        
        Console.WriteLine("F°    C°")
        F = 0
        While F <= 100
            C = (F - 32) * 5 / 9
            Console.WriteLine(F & " = " & C)
            F += 10
        End While
    End Sub

    Private Sub ForLoop()
        Dim F As Double
        Dim C As Double
        
        Console.WriteLine("F°    C°")
        For F = 0 To 100 Step 10
            C = (F - 32) * 5 / 9
            Console.WriteLine(F & " = " & C)
        Next
    End Sub

    Private Sub DoLoop()
        Dim F As Double
        Dim C As Double
        
        Console.WriteLine("F°    C°")
        F = 0
        Do
            C = (F - 32) * 5 / 9
            Console.WriteLine(F & " = " & C)
            F += 10
        Loop While F <= 100
    End Sub
End Module

कोशिश करो[सम्पादन | स्रोत सम्पादित करें]

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

यह भी देखें[सम्पादन | स्रोत सम्पादित करें]