PROGRAM 20


'  FILENAME:  PROG20.BAS
'  THIS PROGRAM INPUTS A EMPLOYEE'S NAME, PAYRATE, AND HOURS WORKED IN A
'  WEEK, CALCULATES EACH EMPLOYEE'S TOTAL PAY AND THE TOTAL PAY FOR ALL
'  EMPLOYEES, AND THEN PRINTS EACH EMPLOYEE'S NAME, PAYRATE, HOURS WORKED,
'  AND TOTAL PAY.  AFTER ALL EMPLOYEES' INFORMATION HAS BEEN PRINTED,
'  IT PRINTS THE TOTAL PAYROLL OF THE COMPANY.  ALL THIS INFORMATION WILL
'  APPEAR ON THE SCREEN AS WELL.
DIM NAME$(20)
DIM RATE(20)
DIM HOURS(20)
DIM PAY(20)
FOR R = 1 TO 20
        CLS
        INPUT "PLEASE KEY-IN EMPLOYEE NAME    : ", NAM$
        INPUT "PLEASE KEY-IN EMPLOYEE PAY RATE: ", RAT
        INPUT "PLEASE KEY-IN HOURS WORKED     : ", HOUR
        NAME$(R) = NAM$
        RATE(R) = RAT
        HOURS(R) = HOUR
        PAY(R) = RAT * HOUR
NEXT R
CLS
PRINT "NAME                   RATE/HOUR         HOURS WORKED           TOTAL PAY"
PRINT "-------------------------------------------------------------------------"
LPRINT "NAME                   RATE/HOUR         HOURS WORKED           TOTAL PAY"
LPRINT "-------------------------------------------------------------------------"
FOR R = 1 TO 20
        PAY = RAT * HOUR
        PRINT USING "\                    \$$##.##            ##.##               $$#,###.##"; NAME$(R); RATE(R); HOURS(R); PAY(R)
        LPRINT USING "\                    \$$##.##            ##.##               $$#,###.##"; NAME$(R); RATE(R); HOURS(R); PAY(R)
        TOTAL.HOURS = TOTAL.HOURS + HOURS(R)
        TOTAL.PAY = TOTAL.PAY + PAY(R)
NEXT R
PRINT
PRINT USING "TOTALS                                 ###.##               $$#,###.##"; TOTAL.HOURS; TOTAL.PAY
LPRINT
LPRINT USING "TOTALS                                 ###.##               $$#,###.##"; TOTAL.HOURS; TOTAL.PAY
LPRINT CHR$(12)
END

'  OUTFILE:  PROG20.OUT

PLEASE KEY-IN EMPLOYEE NAME    : anthony f. ortiz
PLEASE KEY-IN EMPLOYEE PAY RATE: 100.00
PLEASE KEY-IN HOURS WORKED     : 100


NAME                   RATE/HOUR         HOURS WORKED           TOTAL PAY
-------------------------------------------------------------------------
anthony f. ortiz       $100.00           100.00               $10,000.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00
                         $0.00             0.00                    $0.00

TOTALS                                   100.00               $10,000.00




BACK TO CIS133 PAGE.