scorechk.pas v.1: handle many students, from keyboard

October 1996

{ Calc average of student scores, warn if < 60.          }
{ v.1: Handle 3 scores from keyboard, loop until SID= -1 }

program avScores;
const
   warnLevel = 60;
var
   SID: integer;
   Sum, Av, sc1, sc2, sc3: real;
   warnString: string;
begin
   SID := 0;
   while (SID <> -1) do
   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;
end.

RETURN to CSCI 1200 Home Page

- John Rieman