This preview shows page 1. Sign up to view the full content.
Unformatted text preview: 1_425.0, Excess_Rate => 0.25)); Input_Salary : Float; Total_Tax : Float; begin Put("Enter the salary: "); Get(Item => Input_Salary); for I in Tax_Table'range loop if Input_Salary >= Tax_Table(I).Salary_Min and Input_Salary <= Tax_Table(I).Salary_Max then Total_Tax := Tax_Table(I).Base_Tax + ((Input_Salary - Tax_Table(I).Salary_Min) * Tax_Table(I).Excess_Rate); exit; end IF; end loop; Put("Tax for salary of "); Put(Item => Input_Salary, Aft => 2, Exp => 0); Put(" is "); Put(Item => Total_Tax, Aft => 2, Exp => 0)...
View Full Document
This note was uploaded on 08/28/2011 for the course INFORMATIO IT/210 taught by Professor N/a during the Spring '11 term at ITT Tech Tucson.
- Spring '11