Б8119-010302 сист. прог. АиСД. Кучи / std.strs

ru en cn

с начала прошло: 1463 д. 12:01
страница обновлена: 29.03.2024 04:54

std.strs: strs.dpr

{$APPTYPE CONSOLE}
uses
  SysUtils;

var
  fin,fout,fans: TextFile;
  
procedure Ex(const s: string; ec: integer; ln: integer = -1);
begin
   write(s);
   if ln >= 0 then write(' @ ', ln);
   try
     close(fin); close(fout); close(fans);
   except
   end;
   halt(ec);
end;

var
   s1, s2: String;
   i: integer;
begin
   try
      assign(fin,paramstr(1)); reset(fin);
   except on e: Exception do
      Ex('Error opening input: ' + e.Message, 3);
   end;
   try
      assign(fans,paramstr(3)); reset(fans);   
   except on e: Exception do
      Ex('Error opening answer: ' + e.Message, 3);
   end;
   try
      assign(fout,paramstr(2)); reset(fout);
   except on e: Exception do
      Ex('Can''t open output: ' + e.Message, 2);
   end;
   i := 0;
   try
      while (not eof(fout)) and (not eof(fans)) do begin
         inc(i);
         readln(fout,s1); readln(fans,s2);
         if s1 <> s2 then begin
            Ex('WA', 1, i);
         end;
      end;
      if not eof(fout) then Ex('Extra lines', 2);
      if not eof(fans) then Ex('Too few lines', 2);
   except
      Ex('PE', 2, i);
   end;
   Ex('', 0);
end.
Дальневосточный федеральный университет