Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

:nINPUT Statement Programming Example
  ◄QuickSCREEN►      ◄Details►     ◄Example►      ◄Contents►      ◄Index►
──────────────────────────────────────────────────────────────────────────────
INPUT Statement Programming Example
 
This example uses INPUT to calculate the area of a circle from a
radius you supply. It prompts you for a new radius until you enter 0.
 
CLS
PI = 3.141593 : R = -1
DO WHILE R
    PRINT "Enter radius (or 0 to quit)."
    INPUT ; "If radius = ", R
    IF R > 0 THEN
        A = PI * R ^ 2
        PRINT ", the area of the circle ="; A
    END IF
    PRINT
LOOP
 
Sample Output
 
Enter radius (or 0 to quit).
If radius = 3, the area of the circle = 28.27434
 
Enter radius (or 0 to quit).
If radius = 4, the area of the circle = 50.26549
 
Enter radius (or 0 to quit).
If radius = 0