NEERC/asteroids/check.dpr

   1 uses\r
   2     testlib, sysutils;\r
   3 \r
   4 const\r
   5     eps = 1.1e-5;\r
   6 \r
   7 var\r
   8     ja, pa: extended;\r
   9 \r
  10 begin\r
  11     ja := ans.readreal;\r
  12     pa := ouf.readreal;\r
  13 \r
  14     if abs(ja - pa) > eps then\r
  15         quit(_wa, 'Expected: ' + floattostr(ja) + ', found: ' + floattostr(pa));\r
  16 \r
  17     quit(_ok, floattostr(ja));\r
  18 end.