> 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. 

• 什么意思？ (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