var
  s:array[1..1001] of boolean;
  w:array[1..1001,1..2] of longint;
  map:array[1..1001,1..1001] of boolean;
  i,j,k,n,a,b,d:longint;
  t,last:char;
begin
  readln(n,d);
  for i:=1 to n do readln(w[i,1],w[i,2]);
  while not seekeof do
    begin
      read(t);
      while t=' ' do read(t);
      if t='O' then
        begin
          readln(a);
          if not s[a] then
            begin
              s[a]:=true;
              for i:=1 to n do
                if sqrt(sqr(w[i,1]-w[a,1])+sqr(w[i,2]-w[a,2]))<=d then
                  begin
                    map[a,i]:=true;
                    map[j,a]:=true;
                  end;
            end;
        end
               else
        begin
          readln(a,b);
          if last<>t then
            begin
              for k:=1 to n do
                if s[k] then
                  for i:=1 to n do
                    if s[i] then
                      if map[i,k] then
                        for j:=1 to n do
                          if s[j] then
                            if map[k,j] then
                              begin
                                map[i,j]:=true;
                                map[j,i]:=true;
                              end;
            end;
          if map[a,b] then writeln('SUCCESS')
                      else writeln('FAIL');
        end;
      last:=t;
    end;
end. 

• 数组下标是变量的时候，都判断一下好了 (1532) hawk 2005-05-28 23:00:10
  • 什么意思？ (0) JiangLY 2005-05-28 23:22:31
    • 这个rte一般是数组越界，你用到下标的时候都判断一下是不是越界 (0) hawk 2005-05-28 23:23:33
      • 考虑了的，开到1100都不行，但N<=1001 (0) JiangLY 2005-05-28 23:26:04
        • 正常不会有错，就是某时候程序有错，导致下标越界 (0) hawk 2005-05-28 23:26:27
          • 一位AC的大牛帮我检查了程序，说我和他的几乎一样，但我的就RE！我实在没辙了…… (0) JiangLY 2005-05-28 23:37:25
            • 我也不知道了，pascal我不能调试 (0) hawk 2005-05-28 23:38:03