WorkersPay[1]

WorkersPay[1] - Sheet1 Page 1 {

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: Sheet1 Page 1 { ---------------------------------------------------------- Program Description: This program will use procedures to evaluate gross and gross pay of the worker by inputing the number of hours worked and calculating withholdings. pg.104------------------------------------------------------------} program WorkersPay const payrate= 9.63 sstax= 0.06 fitax= 0.14 sitax= 0.05 uniondues= 6 dependdues= 10 overtimerate= 1.5 var hrs,{the number of hours worked this week} grosspay,{the gross pay} netpay,{the net pay} dependents,{the number of dependents} withholdings,{the total withholdings} socialdeduc,{the social security deduction} federaldeduc,{the federal income deduction} statededuc,{the state income deduction} uniondeduc,{the union deduction} dependdeduc{the dependents deduction} : real {----------------------------------------------------------- PromptForInput: This procedure prompts the user to enter the number of hours they worked this week.------------------------------------------------------------} Procedure GetData(var hrs, depend: real) begin writeln('Please enter how many hours you worked this week, then press return:') readln(hrs) writeln('Please enter your number of dependents, then press return:') readln(dependents)...
View Full Document

Page1 / 6

WorkersPay[1] - Sheet1 Page 1 {

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online