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

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

कोशिश करो

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

• repl.it

यह भी देखें

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