Friday
April 18, 2014

Homework Help: QBASIC, Computers

Posted by Jason on Thursday, November 29, 2012 at 11:39am.

The following is a list of salaries of the six employees in a certain company:

Name Salary
T. Angel $43,000
F. Smith $31,000
K. Johnston $22,000
P. Miner $18,000
C. Altman $27,000
A. Lu $19,000

Read a single dimension array for name and another array for Salary. Calculate and output the average salary for the company as well as the names of all people whose salaries exceed the average.

How would I write this program?

Maybe something like this?

DIM EmployeeNam(1 TO 16), Salary(1 TO 6)

GOSUB InitializeVariables
GOSUB LoadTables
CLS
GOSUB PrintDetail
GOSUB PrintSubtotals
GOSUB PrintTotals
END

InitializeVariables:
LET PageCt = 0
LET Salary = 0
LET T1$ = " Salary for employees ##"
LET H1$ = ""
LET H2$ = " Name Salary "
LET D1$ = " \ / $###.## "
LET ST$ = " \ \ SUBTOTAL #"
LET TL$ = " TOTAL #"
LET MaxLines = 30
RETURN

'******************************
' Read numbers into the array
' *****************************


LoadTables:
FOR N = 1 TO 6
READ EmployeeNam(N), Salary(N)
LET AvgSalary = Salary + Salary(N)
NEXT N


DATA T. Angel, 43,000
DATA F. Smith, 31,000
DATA K. Johnston,22,000
DATA P. Miner, 18,000
DATA C. Altman, 27,000
DATA A. Lu, 19,000
DATA 0,0,0
DATA END
RETURN


PrintDetail:
PRINT H2$
FOR N = 1 TO 6
PRINT USING D1$; EmployeeNam(N); Salary(N); 'Print details
NEXT N
RETURN

PrintSubtotals:
LET AvgIncome = Salary / 6 'Calc average income
RETURN

PrintTotals:
PRINT USING "$##,###.## \ \"; AvgSalary; "is the average Salary"
GOSUB PrintAboveAverage
RETURN

PrintAboveAverage:
PRINT H2$
FOR N = 1 TO 6
IF Salary(N) > AvgSalary THEN
PRINT USING D1$; EmployeeNam(N); Salary(N)
END IF
NEXT N
RETURN

Can someone please help me

Answer this Question

First Name:
School Subject:
Answer:

Related Questions

computer science - Pseudo code: Input a list of employee names and salaries, and...
Math - You are required to design a QBASIC program that recieves a student test ...
programming - John: 50,000 Joe: 30,000 Jane: 60,000 Jill: 25,000 Total: 165,000 ...
XACC 280 - At October 31, Nathan Company made an accrued expense adjusting entry...
xacc 280 - At October 31, Nathan Company made an accrued expense adjusting entry...
xacc 280 - At October 31, Nathan Company made an accrued expense adjusting entry...
math help - Universal instruments found that the monthly demand for its new line...
Calculus - Universal instruments found that the monthly demand for its new line ...
computer tech - you are starting up a new business and have just rented an ...
computers - what computers can do?what computers cannot do?what are the ...

Search
Members