PROCEDURE PRIZE Always Name the Procedure
OPEN FILE STUDENTS It says there's a File
SEARCH FOR FORM It only says it wants one Form done
SET HIGH = 0
WHILE NOT END OF STUDENTS,
DO CALL PROCEDURE MEAN Start the loop by running the MEAN procedure
IF AVERAGE > HIGH THEN Check to see if the MEAN is the highest so far
HIGH = AVERAGE; STUDENT = CURRENT NAME; Save Mark as HIGH and Name
FLAG = FALSE
ELSE IF AVERAGE = HIGH THEN
FLAG = TRUE They've used the FLAG variable to see if there's a draw
ENDIF
ENDWHILE
IF FLAG = TRUE THEN
REPORT ‘Problem Equal high scorers’ Report a draw or
ELSE OPEN FILE ‘PRIZES’ Open PRIZES file
COPY FORM AND STUDENT TO PRIZES ENDIF Save the result (Mark & Name)
END
