NEERC/xtra/check.dpr

   1 (*\r
   2     Checker for NEERC'2006 Problem X: Xtrapolation\r
   3     (C) Andrew Stankevich\r
   4 *)\r
   5 \r
   6 {$O+,Q+,R+}\r
   7 {$APPTYPE CONSOLE}\r
   8 \r
   9 program check;\r
  10 uses\r
  11   TestLib, SysUtils;\r
  12 \r
  13 var\r
  14   i, ind: longint;\r
  15   ja, pa: string;\r
  16 \r
  17 begin\r
  18   ind := 0;\r
  19   while not ans.seekeof do begin\r
  20     if (ouf.seekeof) then\r
  21       Quit(_PE, 'not enough numbers');\r
  22 \r
  23     inc(ind);\r
  24     ja := ans.readstring;\r
  25     pa := ouf.readstring;\r
  26 \r
  27     if not (pa[1] in ['-', '0'..'9']) then\r
  28       Quit(_PE, 'invalid character in answer');\r
  29 \r
  30     for i := 2 to length(pa) do\r
  31       if not (pa[i] in ['0'..'9']) then\r
  32         Quit(_PE, 'invalid character in answer');\r
  33 \r
  34     if ja <> pa then\r
  35       Quit(_WA, format('number %d - expected: %s, found: %s', [ind, ja, pa]));\r
  36   end;\r
  37 \r
  38   if not ouf.seekeof then\r
  39     Quit(_PE, 'too many numbers');\r
  40 \r
  41   Quit(_OK, format('%d numbers', [ind]));\r
  42 end.\r