PROGRAM 8


'  FILENAME:  PROG8.BAS
'  THIS PROGRAM COMPUTES THE DISTANCE A CAR NEEDS TO STOP GIVEN THE SPEED
'  IT IS GOING.
CLS
GOSUB PRINT1DATA
GOSUB COUNTERDATA
GOSUB PROCESSDATA
GOSUB PRINT2DATA
END
PRINT1DATA:
        PRINT "         AUTOMOBILE STOPPING DISTANCE TABLE"
        PRINT
        PRINT "SPEED (MPH)", , "DISTANCE REQUIRED TO STOP (FEET)"
        PRINT
RETURN
COUNTERDATA:
        LET SPEED = 25
RETURN
PROCESSDATA:
        DO UNTIL SPEED = 80
                LET SPEED = SPEED + 5
                LET DISTANCE = (SPEED * 2.25) + (SPEED ^ 2 / 21)
                LET DISTANCE = INT(DISTANCE * 10 + .5) / 10
                PRINT USING "##                          ###.#"; SPEED; DISTANCE
        LOOP
RETURN
PRINT2DATA:
        PRINT
        PRINT "END OF REPORT"
RETURN

'  OUTFILE:  PROG8.OUT

         AUTOMOBILE STOPPING DISTANCE TABLE

SPEED (MPH)                 DISTANCE REQUIRED TO STOP (FEET)

30                          110.4
35                          137.1
40                          166.2
45                          197.7
50                          231.5
55                          267.8
60                          306.4
65                          347.4
70                          390.8
75                          436.6
80                          484.8

END OF REPORT




BACK TO CIS133 PAGE.