home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / TPEX.ZIP / C8REVEX4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-04  |  2.2 KB  |  62 lines
  1. {
  2. Programming in Turbo Pascal 6.0.
  3. Turbo Pascal By example By Greg Perry.
  4. Chapter 8 Review Exercise #4.
  5. Robert E. Wade        9-4-93
  6. }
  7.  
  8. PROGRAM PayCheck;
  9.  
  10. USES Crt, Printer;
  11.  
  12. CONST  Spc           = ' ';
  13.        EmpName       = 'Robert Wade';
  14.        PayDate       = '01/09/92';
  15.        HoursWorked   = 40;
  16.        Rate          = 40.50;
  17.        TaxRate       = 0.40;
  18.  
  19.        GrossPay = HoursWorked * Rate;
  20.        Taxes    = TaxRate * GrossPay;
  21.        NetPay   = GrossPay - Taxes;
  22.  
  23. BEGIN
  24. CLRSCR;
  25.  
  26.        { Send output to screen. (* This was not part of the exercise
  27.          however, I am sending it to screen because I do not have a
  28.          printer *) Output to printer is after screen output }
  29.  
  30.  
  31. WRITELN( '*****************************************************************' );
  32. WRITELN( '*', Spc:63, '*' );
  33. WRITELN( '*', Spc:40, 'Date: ', Paydate, Spc:9, '*' );
  34. WRITELN( '*', Spc:63, '*' );
  35. WRITELN( '* Pay to the Order of: ', EmpName, Spc:30, '*' );
  36. WRITELN( '*', Spc:63, '*' );
  37. WRITELN( '* Pay the full amount of: $', GrossPay:10:2, Spc:27, '*' );
  38. WRITELN( '*', Spc:26, '----------', Spc:27, '*' );
  39. WRITELN( '*', Spc:63, '*' );
  40. WRITELN( '*', Spc:39, '----------------------- *' );
  41. WRITELN( '*', Spc:39, 'Dan Chambers, Treasurer *' );
  42. WRITELN( '*', Spc:63, '*' );
  43. WRITELN( '*****************************************************************' );
  44.  
  45.        { Send output to printer. Uncomment the following code
  46.          to send output to the printer. }
  47. {
  48. WRITELN(LST, '*****************************************************************' );
  49. WRITELN(LST, '*', Spc:63, '*' );
  50. WRITELN(LST, '*', Spc:40, 'Date: ', Paydate, Spc:9, '*' );
  51. WRITELN(LST, '*', Spc:63, '*' );
  52. WRITELN(LST, '* Pay to the Order of: ', EmpName, Spc:30, '*' );
  53. WRITELN(LST, '*', Spc:63, '*' );
  54. WRITELN(LST, '* Pay the full amount of: $', GrossPay:10:2, Spc:27, '*' );
  55. WRITELN(LST, '*', Spc:26, '----------', Spc:27, '*' );
  56. WRITELN(LST, '*', Spc:63, '*' );
  57. WRITELN(LST, '*', Spc:39, '----------------------- *' );
  58. WRITELN(LST, '*', Spc:39, 'Dan Chambers, Treasurer *' );
  59. WRITELN(LST, '*', Spc:63, '*' );
  60. WRITELN(LST, '*****************************************************************' );
  61. }
  62. END.