mechanics - If mech1charge > mech2charge then...

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

View Full Document Right Arrow Icon
Sheet1 Page 1 program Mechanics vars hrs, quaterhrs, mechanic1charge, mechanic2charge : real Procedure GetData(var hrs:real) begin writeln('Please enter the number of hours you expect the job to take, then press return:') readln(hrs) end Procedure CalcQuarterHrs(hrs,:real begin quarter:= round(hrs/0.25) end Procedure CalcMechanic1(quarter: real begin mech1charge:= 20 + (5*quarter) end Procedure CalcMechanic2(quarter:real begin mech2charge:= 18 + 5.75*(quarter-1) end Procedure OutputDecision(mech1charge, mech2charge:real) begin writeln('The first mechanic charges $',mech1charge) writeln('The second mechanic charges $',mech2charge)
Background image of page 1

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

View Full DocumentRight Arrow Icon
Background image of page 2
Background image of page 3

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

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

Unformatted text preview: If mech1charge > mech2charge then writeln('The cheaper mechanic is the second mechanic.') Sheet1 Page 2 else {mech1charge < mech2charge} writeln('The cheaper mechanic is the first mechanic.') end begin {program} GetData(hrs) CalcQuarterHrs(hrs,quarterhrs) CalcMechanic1(quarterhrs,mechanic1charge) CalcMechanic2(quarterhrs,mechanic2charge) OutputDecision(mechanic1charge,mechanic2charge) end. Sheet1 Page 3 var quarter:real) var mech1charge: real) var mech2charge: real) Sheet1 Page 4...
View Full Document

This note was uploaded on 03/27/2008 for the course CPSC 110 taught by Professor Logan during the Spring '07 term at Texas A&M.

Page1 / 4

mechanics - If mech1charge > mech2charge then...

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

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