Make your own free website on Tripod.com

Thai Banner
Thai Banner


<-HOME  <-FLOWCHART
PROGRAM Number9;
USES crt;
TYPE tr=record
         emid:string;
         ename:string;
         esalary:integer;
         end;
VAR f:file of tr; r:tr;
        max,min,avg,i,sum:integer;
BEGIN
    clrscr;
    max:=0;   min:=9999;   i:=1;
    assign(f,'employee.dat');
    reset(f);
    repeat
    while not eof(f) do
        begin
	readln(f,r);
	if (r.esalary > 5000) and (r.esalary < 10000) then
	begin
	writeln('EMID:  ',r.emid);
	writeln('NAME:  ',r.ename);
	writeln('SALARY:  ',r.esalary);
	if r.esalary > max then
	      max:=r.esalary;
	if r.esalary < min then
	      min:=r.esalary;
	sum:=sum+r.esalary;
	i:=i+1;
         end;
    end;
writeln('MAXIMUM:  ',max);
writeln('MINIMUM:  ',min);
avg:=sum/(i-1);
writeln('AVERAGE:  ',avg);
writeln('--*PROGRAM BY MISS ORATHAI JAIYAH 4411063*--');
END.