Program 6

PROGRAM ASSIGNMENT #6

DUE: 1:00 pm, Tuesday, April 10, 2001 VALUE: 100 pts.

(Note the change in due date - We will need to adjust a few other things as well. We'll straighten all these out after Spring Break.)

In this program you will exercise some of the string handling routines of Pascal. You will be extending the logic and processing of Program 3. Your program will receive input from a text file called LAWYER.DAT (available on or before April 14th). Each non-blank line of this file will be the work record of a single lawyer for a single day working at Biddle, Riddle and Twit, S.C and will be in the following format: the lawyer's name will appear in columns 1-15, the date will appear in columns 16-25 in the format YYYY-MM-DD and then following the date, separated by one or more spaces, will be the work record for the lawyer on the given day in the format: job code, start time in military hh:mm format and ending time in military hh:mm format. For example:

Smith John    2000-10-03  4  08:15  11:45  2  12:35  14:45  3 15:00  17:40

You may assume that each line occupies no more than 255 characters and that the last character in each line is a single space. Your code must take into account that each line will contain a variable number of job code and start/stop times. The military time format will utilize an embedded colon (:) to separate hours from minutes. The file lawyer.DAT contains multiple lines belonging to a single lawyer working at Biddle, Riddle and Twit, S.C; your program must be able to process this file regardless of the number of lines it contains; however, each non-blank line of the file will pertain to only one day's work by this lawyer in the shop. As in Program 3, assume that Biddle, Riddle and Twit has had their fee plan in place for many years. The hourly fees rates for each kind of service vary with the difficulty and/or skill level required to perform that service. The services and their hourly fees rates are (these are the actual rates of fees charged to the client for each service):

   Service Code  Service Description     Hourly Rate
        0          Personal Time             0.00
        1          Wills                    50.00          
        2          Divorce                  75.00
        3          Bankruptcy              100.00
        4          Trust Mgt.               60.00
        5          Civil Suit              150.00

As in program 3, your program will note in the output whenever an illegal job code is encountered; however, the lawyer will be given no credit for the hours worked in such a case (nor will there be any fee accrued, of course).

Also as before, lawyers charge back to the firm daily time-and-a-half for overtime for all work over 8 hours based on their average hourly rate for the day. For example, if John Smith worked 9 hours on a given day, charging $540.00 for all 9 hours worked (without regard to overtime), his average hourly rate would be $60.00 ($540.00 / 9), and so he would be charge back to the firm one hour of overtime fees, or an extra charge of $30.00 for the day.

To give an example of how your output in this program is to appear, consider the following possible input file

{ Input test file for Program 6, Spring, 2001
  Smith, John  2000-10-21  3 08:00 11:15   2 11:20  12:40   0 12:45  13:50  1  14:00  16:00  5  16:10  17:30 

     John Smith2001-03-02  2  08:10  09:45  1  10:00  12:30  0 12:30 13:00  7  13:00 13:30  4  13:35  17:55 

JOHN    SMITH  2001-01-23  4  07:30  13:45  0  13:45  14:00 3  14:00  16:00 
  Smith,   J.  2000-11-30  4 11:00  21:00 


The output (sent to the output file PROG6.OUT) is to look like this:

                 Biddle, Riddle and Twit, S.C
=============================================================
  Lawyer        Start   End   Job            Job       Job
    Name         Time  Time Hours    Description       Fee
=============================================================
J. SMITH        08:00 11:15  3.25     Bankruptcy     325.00
J. SMITH        11:20 12:40  1.33        Divorce     100.00
J. SMITH        12:45 13:50  1.08  Personal time       0.00
J. SMITH        14:00 16:00  2.00          Wills     100.00
J. SMITH        16:10 17:30  1.33     Civil Suit     200.00
=============================================================
SUBTOTALS:                   7.92                   $725.00
=============================================================
OVERTIME BONUS:              0.00 hrs @ 91.58 / hr    $0.00
=============================================================
TOTAL FEE:  October 21, 2000                        $725.00
=============================================================

J. SMITH        08:10 09:45  1.58        Divorce     118.75
J. SMITH        10:00 12:30  2.50          Wills     125.00
J. SMITH        12:30 13:00  0.50  Personal time       0.00
J. SMITH        13:00 13:30  0.50  ** Job code not found **
J. SMITH        13:35 17:55  4.33     Trust Mgt.     260.00
=============================================================
SUBTOTALS:                   8.42                   $503.75
=============================================================
OVERTIME BONUS:              0.42 hrs @ 59.85 / hr   $12.57
=============================================================
TOTAL FEE:  March 2, 2001                           $516.32
=============================================================

J. SMITH        07:30 13:45  6.25     Trust Mgt.     375.00
J. SMITH        13:45 14:00  0.25  Personal time       0.00
J. SMITH        14:00 16:00  2.00     Bankruptcy     200.00
=============================================================
SUBTOTALS:                   8.25                   $575.00
=============================================================
OVERTIME BONUS:              0.25 hrs @ 69.70 / hr    $8.71
=============================================================
TOTAL FEE:  January 23, 2001                        $583.71
=============================================================

J. SMITH        11:00 21:00 10.00     Trust Mgt.     600.00
=============================================================
SUBTOTALS:                  10.00                   $600.00
=============================================================
OVERTIME BONUS:              2.00 hrs @ 60.00 / hr   $60.00
=============================================================
TOTAL FEE:  November 30, 2000                       $660.00
=============================================================

=============================================================
GRAND TOTALS

         Total hours worked:      34.58
Total overtime hours worked:       2.67
   Total regular fee earned:  $2,403.75
Total overtime bonus earned:     $81.28
           Total fee earned:  $2,485.03
=============================================================
Program #6, Spring 2001
Programmed by <??>, Section <??>
Due: April 10 2001Value = 100 pts
=============================================================

Features of this program in common with Program 3:

the report will include an appropriate header followed by (for each day) a detail line for each job logged by the lawyer that day
the report will show the start and stop times in military format using the embedded colon (:) separating hours and minutes; the elapsed time in decimal hours; the job description as determined by the job code; and the fee earned by the lawyer for each job as determined by the job code and the number of hours worked on that job
the report will show the number of overtime hours earned each day and will report the overtime bonus paid based on the average hourly fee earned that day by the lawyer
a statement at the bottom of the output file giving pertinent programmer information, due date of program, etc.

Unique features of this program:

full text file I/O (output is sent to PROG6.OUT)
blank lines in the input file will not be processed, but will be reported to the user screen with the message "Blank line ignored in input file LAWYER.DAT."
the date stamp is to be shown on the summary line in the format month name day number, year number; for example 2000-10-03 as read from a record in the input file would be printed as October 3, 2000 on the summary line (NOT October 03, 2000).
a summary total section at the end of the output file, giving total hours worked, total overtime hours worked, total regular fee earned, total overtime fee earned, and total fee earned for this lawyer for the period of time covered by the data in the input file lawyer.DAT
as in Program 3, you may assume the hours of operation of the garage are 06:00 to 21:00
Over time, several different methods have been employed in recording the lawyer name:
Last name, First Name Ex: Smith, John First Name Last Name Ex: John Smith or JOHN SMITH or JOHN smith Last name, First initial. Ex: Smith, J. Your output is to show the lawyer name in a consistent format:
```
       First Initial. Last Name    Ex: J. SMITH
       (in all caps)
```
All subtotal money amounts are to be formatted with lead $ signs and commas separating clusters of three digits to the left of the decimal point (as shown in the Grand Total Earned in the GRAND TOTAL section of the sample output above)

YOU ARE REQUIRED TO USE THE FOLLOWING PROGRAMMING ELEMENTS IN YOUR PROGRAM 6 CODE:

The elapsed decimal hours between the start and stop times must be calculated by a user-defined function whose input parameters will be the start and stop times (as strings) and will return the decimal hours elapsed between these times.
The analysis of the lawyer name must be carried out by a procedure which will receive the lawyer name (string) as read from each line of the input file and will return the string properly formatted as required by the program specification.
You must control money round-off errors in this program (unlike the case in Program 3). I have supplied you with a function which will help in this regard (see the Reference section below). Every time your program does a real number multiplication or division involving money, this function must be used to round the result of the calculation correctly to the nearest hundredth (cents in money amounts).
The Reference section also contains a function which can be used to format numeric money amounts to strings with lead dollar signs and commas separating clusters of three digits. Call this function whenever you need to display money amounts in this format.
Good modular design is expected in this program; keep the main code as simple as possible. Print screen messages to keep the user informed during program execution. You must use the above procedures or functions; otherwise, you may use procedures and functions as your program design seems to dictate.
To complement your modular design, your must construct a well- written prolog for the main code, describing the purpose of the program. A feature of the prolog must be a "procedure list" which tabulates all the procedures/functions used in your program together with a short description of their purpose. In the prolog of each procedure or function, more detail about how the procedure actually works can be given.

REFERENCE

A function which will accept a real valued parameter Amount and return the value in Amount properly rounded to the nearest hundredth:

Function Round_to_hundreths(Amount: Double): Double;

  Const
    Move_decimal_pt = 100;
    Small_round_up = 0.00500001;

  Var
    New_amount: Double;
    Round_up: LongInt;

  Begin
    New_amount := Amount * Move_decimal_pt;
    Round_up := ROUND(New_amount + Small_round_up);
    Round_to_hundreths := Round_up / Move_decimal_pt;
  End;

The next function uses the following TYPE and VAR definitions:

Type	Numeric_string: String[25];
Var	X: Longint;  Format_X: Numeric_string;

The following function named CONVERT_TO_STRING is designed to be passed the value of a long integer X and will return a string of type Numeric_String using the calling statement:

Format_X := CONVERT_TO_STRING(X);

The value returned by this function will be a string containing the digits in X separated into clusters of three digits separated by commas.

Function Convert_to_string(X: Longint): Numeric_String;

  Const
    Comma = ',';

  Var
    Count, Long, Location: Integer;
    Z: Numeric_string;

  Begin
    Str(X, Z);
    Long := Length(Z);
    Count := 0;

    For Location := Long downto 2 Do
      Begin
        Count := SUCC(Count);
        If Count MOD 3 = 0
          Then Insert(Comma, Z, Location)
      End;

    Convert_to_string := Z
  End;

So, for example, if X = 1234567890, then the statement

        Writeln(Convert_to_string(X));

will print 1,234,567,890 on the user's screen.

Return to
CS-171
Home Page

Return to
UW-W
Home Page

This page last updated
22 March 2001