scorechk.pas v.2: get input from file, not keyboard

October 1996

{ Calc average of student scores, warn if < 60.  }
{ v.2: Handle lines of ID + 3 scores from file,  }
{ loop until e-o-f.                              }

program avScores;
const
   warnLevel = 60;
var
   SID: integer;
   Sum, Av, sc1, sc2, sc3: real;
   warnString: string;
   inFileID: TEXT;
begin
   assign(inFileID, 'c:\_pascal\addwar\scores.txt');
   reset(inFileID);

   while not eof(inFileID) do
   begin

      readln(inFileID, 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;

   close(inFileID);
end.

RETURN to CSCI 1200 Home Page

- John Rieman