If you have time or care to help, I'd also be curious to know if I am on the right track with a different problem, also using functions. The question tells you the program should prompt the user to enter five test scores, display a letter grade for each score, and then display the average score. The two functions to use are calcAverage (Accept five test scores and return average) and determineGrade (accept test score and return a letter grade as a string).
I don't know if I am making it too complicated or if what I have is close to the right answer!
Module main( )
Declare Real test1, test2, test3, test4, test5, avg
Declare String grade1, grade2, grade3, grade4, grade5
Display “Enter test one score: “
Input test1
Set grade1 = determineGrade(test1)
Display grade1
Display “Enter test two score: “
Input test2
Set grade2 = determineGrade(test2)
Display grade2
Display “Enter test three score: “
Input test3
Set grade3 = determineGrade(test3)
Display grade3
Display “Enter test four score: “
Input test4
Set grade4 = determineGrade(test4)
Display grade4
Display “Enter test five score: “
Input test5
Set grade5 = determineGrade(test5)
Display grade5
Set avg = calcAverage(test1, test2, test3, test4, test5)
Display “Average is: “, average
End Module
Function Real determineGrade(Real value)
Declare String grade
If value < 60 Then
Set grade = “F”
Else If value < 70 Then
Set grade = “D”
Else If value < 80 Then
Set grade = “C”
Else If value < 90 Then
Set grade = “B”
Else If value <= 100 Then
Set grade = “A”
End If
Return grade
End Function
Function Real calcAverage(Real num1, num2, num3, num4, num5)
Declare Real result
Set result = (num1 + num2 + num3 + num4 + num5) / 5
Return result
End Function
