PROBLEM : | WHAT WAS THE CLASS AVERAGE ON THE LAST TEST IN MY ENGLISH CLASS? |
SURE: ADD UP ALL OF THE GRADES AND DIVIDE BY THE NUMBER OF STUDENTS |
INPUT : | TEST GRADES (HOW MANY?) THEY MUST BE COUNTED |
OUTPUT : | THE CLASS AVERAGE THE NUMBER OF STUDENTS WHO TOOK THE TEST |
WHILE MORE GRADES
PRINT AVERAGE |
GET GRADE
|
PROGRAM GRADES( INPUT, OUTPUT );
VAR
GRADE, SUM, COUNT, AVERAGE : INTEGER;
BEGIN
SUM := 0;
COUNT := 0;
READ( GRADE );
WHILE NOT EOF DO
BEGIN
SUM := SUM + GRADE;
COUNT := COUNT + 1;
READ( GRADE );
END;
AVERAGE := SUM DIV COUNT;
WRITELN('THE CLASS AVERAGE FOR ', COUNT, 'STUDENTS IS ', AVERAGE)
END.
WHILE MORE GRADES
|
NOTE : | EOF RETURNS TRUE IT THERE IS NO MORE DATA. |
SUM AND COUNT MUST BE SET TO ZERO FOR THE PROCESS TO WORK. |
BOOLEAN EXPRESSIONS EOF
REPETITION (LOOP)
|