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

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

QBASIC, Computers  Jason, Thursday, November 29, 2012 at 12:32pm
Yes, 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
 healthcare fiancare  HINT: 6% X $1,000,000 – {20% X ($1,000,000 – (6% X $1,000,...
 Math  Would 72,060,964,765 look like the following in it's expanded form? 7X 10...
 Math  What is the percent increase in the population for all six inhabited ...
 statistics  The data set represents the income levels of the members of a ...
 math  The data set represents the income levels of the members of a country ...
 math  vickie earns $20,000 a year as a bookkeeper.if she receive a raise of 2%,...
 math  vickie earns $20,000 a year as a bookkeeper. if she receives a raise of 2...
 programming concepts  Input a list of employee names and salaries stored in ...
 Accounting  O' Hara Company began operations on December 1, 2011. Presented ...
 Economics  Given the following information calculate the Marginal Revenues. I ...
More Related Questions