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

विकिविश्वविद्यालय से

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

' 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.

DECLARE SUB Main
DECLARE SUB WhileLoop
DECLARE SUB ForLoop
DECLARE SUB DoLoop

Main

SUB Main
    WhileLoop 
    ForLoop 
    DoLoop 
END SUB

SUB WhileLoop
    DIM F
    DIM C
    
    PRINT "F°    C°"
    LET F = 0
    DO WHILE F <= 100
        LET C = (F - 32) * 5 / 9
        PRINT STR$(F) + " = " + STR$(C)
        LET F = F + 10
    LOOP
END SUB

SUB ForLoop
    DIM F
    DIM C
    
    PRINT "F°    C°"
    FOR F = 0 TO 100 STEP 10
        LET C = (F - 32) * 5 / 9
        PRINT STR$(F) + " = " + STR$(C)
    NEXT F
END SUB

SUB DoLoop
    DIM F
    DIM C
    
    PRINT "F°    C°"
    LET F = 0
    DO
        LET C = (F - 32) * 5 / 9
        PRINT STR$(F) + " = " + STR$(C)
        LET F = F + 10
    LOOP WHILE F <= 100
END SUB

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

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

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