scorechk.pas v.0: handle one student, from keyboard

October 1996

{ Calc average of student scores, warn if < 60.          }
{ v.0: Handle 3 scores from keyboard, then quit.         }

program avScores;
const
   warnLevel = 60;
var
   SID: integer;
   Sum, Av, sc1, sc2, sc3: real;
   warnString: string;
begin

      writeln('Enter ID and three scores: ');
      readln(SID, sc1, sc2, sc3);

      Sum := sc1 + sc2 + sc3;
      Av := Sum/3;
      if av < warnLevel then
         warnString := ' Warning!'
      else
         warnString := '';

      writeln(SID, sc1:4:0, sc2:4:0, sc3:4:0,
                   '   Average =', Av:6:1, warnString);

end.

RETURN to CSCI 1200 Home Page

- John Rieman