home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / TPEX.ZIP / C7REVEX4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-04  |  921 b   |  35 lines
  1. {
  2. Programming in Turbo Pascal 6.0.
  3. Turbo Pascal By Example By Greg Perry.
  4. Chapter 7 Review exercise #4.
  5. Robert E. Wade      9-4-93
  6. }
  7.  
  8. PROGRAM C7RevEx4;
  9.  
  10. USES Crt;
  11.  
  12. CONST    Spc           = ' ';
  13.          RegPay        = 4.50;
  14.          TimeAndHalf   = RegPay * 1.5;
  15.          DoubleTime    = RegPay * 2;
  16.          TaxRate       = 0.28;
  17.          RegHours      = 40;
  18.          TaHHours      = 5;
  19.          DblTimeHrs    = 5;
  20.  
  21.                   { Define Constants that perform the calculations }
  22.  
  23.          GrossPay      = (RegPay * RegHours) + (TimeAndHalf * TaHHours) +(DoubleTime * DblTimeHrs);
  24.          Taxes         = GrossPay * TaxRate;
  25.          NetPay        = GrossPay - Taxes;
  26.  
  27. BEGIN
  28.    CLRSCR;
  29.  
  30.                   { Display data to screen }
  31.  
  32.    WRITELN( 'Gross Pay is: ', GrossPay:8:2 );
  33.    WRITELN( 'Taxes are: ', Spc:2, Taxes:8:2 );
  34.    WRITELN( 'Net Pay is: ', Spc:2, NetPay:8:2 );
  35. END.