home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STEN / STEN10.MSA / PROGRAMS / PASCAL / MONEYMAN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  2010-04-21  |  951 b   |  42 lines
  1. PROGRAM A_Workers_Wage;
  2. {       Program to work out a wage with the tax rate and
  3.         pay rate set as constants but the HOURS are variable
  4.         By Roy McPartland ?/9/91     }
  5.  
  6. USES
  7.     CRT;
  8.  
  9. CONST
  10.      PAY_RATE = 3.50;
  11.      TAX_RATE = 0.25;
  12. VAR
  13.    HOURS     : Real;
  14.    TOTAL_PAY : Real;
  15.    REAL_PAY  : Real;
  16.    TAXED_PAY : Real;
  17.  
  18. PROCEDURE Display_Text;
  19.      BEGIN
  20.          WRITELN ('Please enter the number of hours worked');
  21.          WRITELN ('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  22.          READLN (HOURS);
  23.      END;
  24.  
  25. PROCEDURE Calculating_the_Pay;
  26.      BEGIN
  27.          TOTAL_PAY:= HOURS * PAY_RATE;
  28.          TAXED_PAY:= TOTAL_PAY * TAX_RATE;
  29.          REAL_PAY:= TOTAL_PAY - TAXED_PAY;
  30.      END;
  31.  
  32. PROCEDURE Displaying_the_Results;
  33.      BEGIN
  34.          WRITELN ('The wage received is £',REAL_PAY:5:2);
  35.      END;
  36.  
  37. BEGIN
  38.      Display_Text;
  39.      Calculating_the_Pay;
  40.      Displaying_the_Results;
  41. END.
  42. .ə