Monday

November 24, 2014

November 24, 2014

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

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

- QBASIC, Computers -
**Anonymous**, Thursday, November 29, 2012 at 11:47amLooks like you have a good start. Have you tried actually running it?

- QBASIC, Computers -
**Jason**, Thursday, November 29, 2012 at 12:32pmYes, It doesnt print anything to the output screen and I get a syntax error on the READ line....

READ EmployeeNam(N), Salary(N)

**Answer this Question**

**Related Questions**

statistic - Which "average" would be best to use in the following situation? ...

Accounting - A business pays weekly salaries of $20,000 on Friday for a five-day...

programming - John: 50,000 Joe: 30,000 Jane: 60,000 Jill: 25,000 Total: 165,000 ...

math - A company published its list of employees and their salaries (rounded off...

statistics - According to Advertising Age, the average base salary for women ...

Algebra - As CEO of a company, you notice that your five executives have the ...

calculus - The salaries at a corporation are normally distributed with an ...

healthcare fiancare - HINT: 6% X $1,000,000 – {20% X ($1,000,000 – (6% X $1,000,...

statistics - the mean annual salary for employees at a company is 36,000. at the...

Math - What is the percent increase in the population for all six inhabited ...