0

Ok so I have a program to read three exam scores from 6 students. I have to make the program average the 3 exam scores for each student and then have an average for each invidual exam. Then have a total average for every score there.


Blah I can't get it to work and I have been sitting here trying to figure it out for along time. Here's the code so far. And its alot.

'John Stonebraker    

' Program to compute average of the exams


'    Variables Used

' Nam$       Name of worker
' Exam1      Score on exams
' Exam2      "         "
' Exam3      "         "
' Average
' Average1
' Average2
' Average3
' AverageFinal
' AverageFinal1
' OverallGrade$
' Grade1$
' Grade2$
' Grade3$
' AverageExam1
' AverageExam2
' AverageExam3
' FinalGrade1$
' FinalGrade2$
' FinalGrade3$
' FinalGrade4$
' T1$, H1$, D1$, H2$, TL$, TL1$, TL2$

'Program Mainline***********************************************************


CLS
GOSUB InitializeImages
GOSUB PrintHeadings
GOSUB ProcessDetail
GOSUB PrintTotals
END

'Initialize Images**********************************************************

InitializeImages:
 LET T1$ = "                            Scores"
 LET H1$ = "StudentName           Exam 1   Exam 2   Exam 3    Average"
 LET D1$ = "\               \        \   \    \   \    \   \     \    \"
 LET TL$ = "Class Average         Exam 1   Exam 2   Exam 3"
 LET TL1$ = "                         \   \    \    \   \    \"
 LET TL2$ = "Average of all scores-  \    \"
RETURN

'Print Headings*************************************************************

PrintHeadings:
 PRINT
 PRINT T1$
 PRINT
 PRINT H1$
 PRINT
 PRINT
RETURN

'Process Detail*************************************************************

ProcessDetail:
 GOSUB ReadData
 DO UNTIL UCASE$(Nam$) = "END"
  GOSUB CalculateAnswers
  GOSUB PrintDetail
  GOSUB ReadData
 LOOP
RETURN

'Read Input Data************************************************************

ReadData:
 READ Nam$, Exam1, Exam2, Exam3
 DATA Jo Smith, 70, 80, 90
 DATA Ed Lynn, 40, 65, 59
 DATA Richard Johnson, 86, 93, 72
 DATA Linda Harris, 95, 75, 86
 DATA Wendy Williams, 77, 83, 78
 DATA David Rudolph, 55, 83, 78
 DATA END, 0, 0, 0
RETURN

'Calculate Answers*********************************************************

CalculateAnswers:


IF Exam1 < 60 THEN
 LET Grade1$ = "F"
END IF
IF Exam1 >= 60 AND Exam1 <= 69 THEN
 LET Grade1$ = "D"
END IF
IF Exam1 >= 70 AND Exam1 <= 79 THEN
 LET Grade1$ = "C"
END IF
IF Exam1 >= 80 AND Exam1 <= 89 THEN
 LET Grade1$ = "B"
END IF
IF Exam1 >= 90 THEN
LET Grade1$ = "A"
END IF

IF Exam2 < 60 THEN
 LET Grade2$ = "F"
END IF
IF Exam2 >= 60 AND Exam2 <= 69 THEN
 LET Grade2$ = "D"
END IF
IF Exam2 >= 70 AND Exam2 <= 79 THEN
 LET Grade2$ = "C"
END IF
IF Exam2 >= 80 AND Exam2 <= 89 THEN
 LET Grade2$ = "B"
END IF
IF Exam2 >= 90 THEN
LET Grade2$ = "A"
END IF

IF Exam3 < 60 THEN
 LET Grade3$ = "F"
END IF
IF Exam3 >= 60 AND Exam3 <= 69 THEN
 LET Grade3$ = "D"
END IF
IF Exam3 >= 70 AND Exam3 <= 79 THEN
 LET Grade3$ = "C"
END IF
IF Exam3 >= 80 AND Exam3 <= 89 THEN
 LET Grade3$ = "B"
END IF
IF Exam3 >= 90 THEN
LET Grade3$ = "A"
END IF

LET Average = Exam1 + Exam2 + Exam3 / 3


IF Average < 60 THEN
 LET FinalGrade1$ = "F"
END IF
IF Average >= 60 AND Average <= 69 THEN
 LET FinalGrade1$ = "D"
END IF
IF Average >= 70 AND Average <= 79 THEN
 LET FinalGrade1$ = "C"
END IF
IF Average >= 80 AND Average <= 89 THEN
 LET FinalGrade1$ = "B"
END IF
IF Average >= 90 THEN
LET FinalGrade1$ = "A"
END IF


LET AverageExam1 = AverageExam1 + Exam1
LET Average1 = AverageExam1 / 6


IF Average1 < 60 THEN
 LET FinalGrade2$ = "F"
END IF
IF Average1 >= 60 AND Average1 <= 69 THEN
 LET FinalGrade2$ = "D"
END IF
IF Average1 >= 70 AND Average1 <= 79 THEN
 LET FinalGrade2$ = "C"
END IF
IF Average1 >= 80 AND Average1 <= 89 THEN
 LET FinalGrade2$ = "B"
END IF
IF Average1 >= 90 THEN
LET FinalGrade2$ = "A"
END IF


LET AverageExam2 = AverageExam2 + Exam2
LET Average2 = AverageExam2 / 6

IF Average2 < 60 THEN
 LET FinalGrade3$ = "F"
END IF
IF Average2 >= 60 AND Average2 <= 69 THEN
 LET FinalGrade3$ = "D"
END IF
IF Average2 >= 70 AND Average2 <= 79 THEN
 LET FinalGrade3$ = "C"
END IF
IF Average2 >= 80 AND Average2 <= 89 THEN
 LET FinalGrade3$ = "B"
END IF
IF AverageExam2 >= 90 THEN
LET FinalGrade3$ = "A"
END IF


LET AverageExam3 = AverageExam3 + Exam3
LET Average3 = AverageExam3 / 6

IF Average3 < 60 THEN
 LET FinalGrade4$ = "F"
END IF
IF Average3 >= 60 AND Average3 <= 69 THEN
 LET FinalGrade4$ = "D"
END IF
IF Average3 >= 70 AND Average3 <= 79 THEN
 LET FinalGrade4$ = "C"
END IF
IF Average3 >= 80 AND Average3 <= 89 THEN
 LET FinalGrade4$ = "B"
END IF
IF Average3 >= 90 THEN
LET FinalGrade4$ = "A"
END IF






LET AverageFinal = AverageFinal + AverageExam1 + AverageExam2 + AverageExam3
LET AverageFinal1 = AverageFinal1 / 18

IF AverageFinal1 < 60 THEN
 LET OverallGrade$ = "F"
END IF
IF AverageFinal1 >= 60 AND AverageFinal1 <= 69 THEN
 LET OverallGrade$ = "D"
END IF
IF AverageFinal1 >= 70 AND AverageFinal1 <= 79 THEN
 LET OverallGrade$ = "C"
END IF
IF AverageFinal1 >= 80 AND AverageFinal1 <= 89 THEN
 LET OverallGrade$ = "B"
END IF
IF AverageFinal1 >= 90 THEN
LET OverallGrade$ = "A"
END IF



RETURN

'Print Detail**************************************************************

PrintDetail:
 PRINT USING D1$; Nam$; Grade1$; Grade2$; Grade3$; FinalGrade1$
RETURN
'Print Totals**************************************************************

PrintTotals:
 PRINT
 PRINT TL$
 PRINT USING TL1$; FinalGrade2$; FinalGrade3$; FinalGrade4$
 PRINT
 PRINT USING TL2$; OverallGrade$


'End of Program************************************************************

I don't know how to print out the output screen but so far I can't get the averages of each student correct, average of each individual exam, and a average of every single score from each exam. The problem has to be with the Ifs and Thens.

Any help would be appreciated. ;)

1
Contributor
1
Reply
2
Views
10 Years
Discussion Span
Last Post by Stoney
0

Ok My buddy helped with with alittle bit so far.


Here's the new code:

'John Stonebraker    

' Program to compute average of the exams


'    Variables Used

' Nam$       Name of worker
' Exam1      Score on exams
' Exam2      "         "
' Exam3      "         "
' Average
' Average1
' Average2
' Average3
' AverageFinal
' AverageFinal1
' OverallGrade$
' Grade1$
' Grade2$
' Grade3$
' AverageExam1
' AverageExam2
' AverageExam3
' FinalGrade1$
' FinalGrade2$
' FinalGrade3$
' FinalGrade4$
' T1$, H1$, D1$, H2$, TL$, TL1$, TL2$

'Program Mainline***********************************************************


CLS
GOSUB InitializeImages
GOSUB PrintHeadings
GOSUB ProcessDetail
GOSUB PrintTotals
END

'Initialize Images**********************************************************

InitializeImages:
 LET T1$ = "                            Scores"
 LET H1$ = "StudentName           Exam 1   Exam 2   Exam 3    Average"
 LET D1$ = "\               \        \   \    \   \    \   \     \    \"
 LET TL$ = "Class Average         Exam 1   Exam 2   Exam 3"
 LET TL1$ = "                         \   \    \    \   \    \"
 LET TL2$ = "Average of all scores -  \    \"
RETURN

'Print Headings*************************************************************

PrintHeadings:
 PRINT
 PRINT T1$
 PRINT
 PRINT H1$
 PRINT
 PRINT
RETURN

'Process Detail*************************************************************

ProcessDetail:
 GOSUB ReadData
 DO UNTIL UCASE$(Nam$) = "END"
  GOSUB CalculateAnswers
  GOSUB PrintDetail
  GOSUB ReadData
 LOOP
RETURN

'Read Input Data************************************************************

ReadData:
 READ Nam$, Exam1, Exam2, Exam3
 DATA Jo Smith, 70, 80, 90
 DATA Ed Lynn, 40, 65, 59
 DATA Richard Johnson, 86, 93, 72
 DATA Linda Harris, 95, 75, 86
 DATA Wendy Williams, 77, 83, 78
 DATA David Rudolph, 55, 83, 78
 DATA END, 0, 0, 0
RETURN

'Calculate Answers*********************************************************

CalculateAnswers:


IF Exam1 < 60 THEN
 LET Grade1$ = "F"
END IF
IF Exam1 >= 60 AND Exam1 <= 69 THEN
 LET Grade1$ = "D"
END IF
IF Exam1 >= 70 AND Exam1 <= 79 THEN
 LET Grade1$ = "C"
END IF
IF Exam1 >= 80 AND Exam1 <= 89 THEN
 LET Grade1$ = "B"
END IF
IF Exam1 >= 90 THEN
LET Grade1$ = "A"
END IF

IF Exam2 < 60 THEN
 LET Grade2$ = "F"
END IF
IF Exam2 >= 60 AND Exam2 <= 69 THEN
 LET Grade2$ = "D"
END IF
IF Exam2 >= 70 AND Exam2 <= 79 THEN
 LET Grade2$ = "C"
END IF
IF Exam2 >= 80 AND Exam2 <= 89 THEN
 LET Grade2$ = "B"
END IF
IF Exam2 >= 90 THEN
LET Grade2$ = "A"
END IF

IF Exam3 < 60 THEN
 LET Grade3$ = "F"
END IF
IF Exam3 >= 60 AND Exam3 <= 69 THEN
 LET Grade3$ = "D"
END IF
IF Exam3 >= 70 AND Exam3 <= 79 THEN
 LET Grade3$ = "C"
END IF
IF Exam3 >= 80 AND Exam3 <= 89 THEN
 LET Grade3$ = "B"
END IF
IF Exam3 >= 90 THEN
LET Grade3$ = "A"
END IF

LET Average = (Exam1 + Exam2 + Exam3) / 3


IF Average < 60 THEN
 LET FinalGrade1$ = "F"
END IF
IF Average >= 60 AND Average <= 69 THEN
 LET FinalGrade1$ = "D"
END IF
IF Average >= 70 AND Average <= 79 THEN
 LET FinalGrade1$ = "C"
END IF
IF Average >= 80 AND Average <= 89 THEN
 LET FinalGrade1$ = "B"
END IF
IF Average >= 90 THEN
LET FinalGrade1$ = "A"
END IF


LET AverageExam1 = AverageExam1 + Exam1
LET Average1 = AverageExam1 / 6


IF Average1 < 60 THEN
 LET FinalGrade2$ = "F"
END IF
IF Average1 >= 60 AND Average1 <= 69 THEN
 LET FinalGrade2$ = "D"
END IF
IF Average1 >= 70 AND Average1 <= 79 THEN
 LET FinalGrade2$ = "C"
END IF
IF Average1 >= 80 AND Average1 <= 89 THEN
 LET FinalGrade2$ = "B"
END IF
IF Average1 >= 90 THEN
LET FinalGrade2$ = "A"
END IF


LET AverageExam2 = AverageExam2 + Exam2
LET Average2 = AverageExam2 / 6

IF Average2 < 60 THEN
 LET FinalGrade3$ = "F"
END IF
IF Average2 >= 60 AND Average2 <= 69 THEN
 LET FinalGrade3$ = "D"
END IF
IF Average2 >= 70 AND Average2 <= 79 THEN
 LET FinalGrade3$ = "C"
END IF
IF Average2 >= 80 AND Average2 <= 89 THEN
 LET FinalGrade3$ = "B"
END IF
IF Average2 >= 90 THEN
LET FinalGrade3$ = "A"
END IF


LET AverageExam3 = AverageExam3 + Exam3
LET Average3 = AverageExam3 / 6

IF Average3 < 60 THEN
 LET FinalGrade4$ = "F"
END IF
IF Average3 >= 60 AND Average3 <= 69 THEN
 LET FinalGrade4$ = "D"
END IF
IF Average3 >= 70 AND Average3 <= 79 THEN
 LET FinalGrade4$ = "C"
END IF
IF Average3 >= 80 AND Average3 <= 89 THEN
 LET FinalGrade4$ = "B"
END IF
IF Average3 >= 90 THEN
LET FinalGrade4$ = "A"
END IF






LET AverageFinal1 = (Average1 + Average2 + Average3) / 3

IF AverageFinal1 < 60 THEN
 LET OverallGrade$ = "F"
END IF
IF AverageFinal1 >= 60 AND AverageFinal1 <= 69 THEN
 LET OverallGrade$ = "D"
END IF
IF AverageFinal1 >= 70 AND AverageFinal1 <= 79 THEN
 LET OverallGrade$ = "C"
END IF
IF AverageFinal1 >= 80 AND AverageFinal1 <= 89 THEN
 LET OverallGrade$ = "B"
END IF
IF AverageFinal1 >= 90 THEN
LET OverallGrade$ = "A"
END IF



RETURN

'Print Detail**************************************************************

PrintDetail:
 PRINT USING D1$; Nam$; Grade1$; Grade2$; Grade3$; FinalGrade1$
RETURN
'Print Totals**************************************************************

PrintTotals:
 PRINT
 PRINT TL$
 PRINT USING TL1$; FinalGrade2$; FinalGrade3$; FinalGrade4$
 PRINT
 PRINT USING TL2$; OverallGrade$


'End of Program************************************************************

Now my problem is that I can't get the class average of the Exam 2.

hmmm

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.