PROGRAM 10


'  FILENAME:  PROG10.BAS
'  THIS PROGRAM INPUTS THE TEMPERATURES FOR JANUARY, CALCULATES THE TOTAL
'  OF ALL TEMPERATURES AND THE AVERAGE, AND THEN PRINTS EACH TEMPERATURE
'  AND THE TOTAL AND AVERAGE TO THE SCREEN.
CLS
PRINT "                 THE TEMPERATURES FOR JANUARY"
PRINT
DO
        GOSUB READDATA
        GOSUB PRINTDATA
        GOSUB PROCESSDATA
        GOSUB INPUTDATA
        IF CT = 20 THEN INPUT "PRESS ENTER TO CONTINUE "; ENTER
LOOP UNTIL CT = 31
GOSUB PRINT1DATA
END
READDATA:
        READ DATES$, TEMPERATURES
RETURN
PRINTDATA:
        PRINT DATES$, TEMPERATURES
RETURN
PROCESSDATA:
        LET TOTAL = TOTAL + TEMPERATURES
        LET CT = CT + 1
        LET AVERAGE = TOTAL / CT
        LET AVERAGE = INT(AVERAGE * 100 + .5) / 100
RETURN
INPUTDATA:
        DATA JAN 1,35,JAN 2,38,JAN 3,42,JAN 4,38,JAN 5,42,JAN 6,44,JAN 7,43,JAN 8,38,JAN 9,37,JAN 10,34,JAN 11,35,JAN 12,38,JAN 13,42,JAN 14,45,JAN 15,46,JAN 16,47
        DATA JAN 17,48,JAN 18,40,JAN 19,38,JAN 20,39,JAN 21,42,JAN 22,46,JAN 23,44,JAN 24,46,JAN 25,45,JAN 26,43,JAN 27,38,JAN 28,36,JAN 29,33,JAN 30,32,JAN 31,33
RETURN
PRINT1DATA:
        PRINT
        PRINT "THE TOTAL TEMPERATURE FOR THE MONTH OF JANUARY IS   "; TOTAL
        PRINT
        PRINT "THE AVERAGE TEMPERATURE FOR THE MONTH OF JANUARY IS "; AVERAGE
RETURN

'  OUTFILE:  PROG10.OUT

                 THE TEMPERATURES FOR JANUARY

JAN 1          35
JAN 2          38
JAN 3          42
JAN 4          38
JAN 5          42
JAN 6          44
JAN 7          43
JAN 8          38
JAN 9          37
JAN 10         34
JAN 11         35
JAN 12         38
JAN 13         42
JAN 14         45
JAN 15         46
JAN 16         47
JAN 17         48
JAN 18         40
JAN 19         38
JAN 20         39
PRESS ENTER TO CONTINUE ?
JAN 21         42
JAN 22         46
JAN 23         44
JAN 24         46
JAN 25         45
JAN 26         43
JAN 27         38
JAN 28         36
JAN 29         33
JAN 30         32
JAN 31         33

THE TOTAL TEMPERATURE FOR THE MONTH OF JANUARY IS    1247

THE AVERAGE TEMPERATURE FOR THE MONTH OF JANUARY IS  40.23




BACK TO CIS133 PAGE.