qb45advr.hlp (Topic list)
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.
INPUT 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