For Liberty BASIC programming language. Using For..next loop, Write a program to
ID: 3681888 • Letter: F
Question
For Liberty BASIC programming language.
Using For..next loop, Write a program to fetch the name, salary and the state of the employee. Calculate the federal tax, state tax and the net salary for each employee. Use the following criteria:
To calculate the federal tax, use the following criteria:
If the salary is greater than 100,000 then calculate the federal tax at 20 percent.
Otherwise calculate the federal tax at 15%.
To calculate the state Tax, use the following criteria:
If the employee is from California, Nevada, Arizona, or Washington calculate the state tax at 10%
If the employee is from Texas, NewMexico, Or Alabama, then calculate the state tax at 9%
If the employee is from Newyork, Illinois, Wisconsin Or Delaware then calculate the state tax at 8%
Otherwise calculate the state tax at 12%
Calculate and display the netsalary.
Repeat the above instructions for 6 employees.
Hint1: You can use the For loop.
Hint2: Each time the computer goes through the loop, it calculates the salary of one employee.
Explanation / Answer
employeeCount = 6
dim names$(employeeCount)
dim salaries(employeeCount)
dim netSalaries(employeeCount)
dim states$(employeeCount)
for i = 1 to employeeCount
print "Employee #" + str$(i)
print "-----------"
input "Name: "; names$(i)
input "Salary: $"; salaries(i)
input "State: "; states$(i)
print ""
next i
for i = 0 to employeeCount
if (salaries(i) > 100000) then
federalTax = 0.20
else
federalTax = 0.15
end if
federalTax = federalTax * salaries(i)
if (states$(i) = "CA") or (states$(i) = "NV") or (states$(i) = "AZ") or (states$(i) = "WA") then
stateTax = 0.10
else
if (states$(i) = "TX") or (states$(i) = "NM") or (states$(i) = "AL") then
stateTax = 0.09
else
if (states$(i) = "NY") or (states$(i) = "IL") or (states$(i) = "WI") or (states$(i) = "DE") then
stateTax = 0.08
else
stateTax = 0.12
end if
end if
end if
stateTax = stateTax * salaries(i)
netSalaries(i) = salaries(i) - (federalTax + stateTax)
print "Employee #" + str$(i + 1)
print "-----------"
print "Net salary: $" + str$(netSalaries(i))
print ""
next i
end
Related Questions
drjack9650@gmail.com
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.