checkdog.pas

来自「PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料」· PAS 代码 · 共 44 行

program CheckDog;

const
  maxn=100000;

type
  ptype=record
    x,y:longint;
  end;

var
  dogpos,tree:array [1..maxn] of ptype;
  long:array [1..maxn] of longint;
  n,i:longint;

begin
  assign(input,'dog.in');
  reset(input);
  read(n);
  for i:=1 to n do read(tree[i].x,tree[i].y,long[i]);
  close(input);

  assign(input,'dog.out');
  reset(input);
  for i:=1 to n do read(dogpos[i].x,dogpos[i].y);
  close(input);

  for i:=1 to n do
    if abs(dogpos[i].x-tree[i].x)+abs(dogpos[i].y-tree[i].y)>long[i]
      then begin
        writeln('Wrong at Dog ',i);
        halt;
      end;

  for i:=2 to n do
    if abs(dogpos[i].x-dogpos[i-1].x)+abs(dogpos[i].y-dogpos[i-1].y)>(long[i]-long[i-1])
      then begin
        writeln('Wrong at Dog ',i);
        halt;
      end;

  writeln('Right');
end.