编译通过...

├ 测试数据 01：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 02：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 03：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 06：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 07：运行时错误...| 错误号: 106 | 无效数字格式

const

lam=1e-10;

var

n,m,i,j,max:longint;

x1,y1,v,t:real;

a:array[1..1000,1..2]of real;

father,match1,match2:array[1..1000]of longint;

vis:array[1..1000,1..1000]of boolean;

q:array[1..1000]of longint;

function find(i:longint):boolean;

var l,r,j,t,k,o:longint;

begin

q[1]:=i;l:=0;r:=1;

fillchar(father,sizeof(father),0);

repeat

inc(l);

for j:=1 to m do

if(father[j]=0)and(vis[q[l],j])

then

begin

if match2[j]0

then

begin

inc(r);

q[r]:=match2[j];

father[j]:=q[l];

end

else

begin

k:=q[l];o:=j;

while true do

begin

t:=match1[k];

match1[k]:=o;

match2[o]:=k;

if t=0 then break;

o:=t;k:=father[t];

end;

find:=true;

exit;

end;

end;

until l=r;

find:=false;

end;

begin

readln(m,n,t);

for i:=1 to m do

readln(a,a);

for i:=1 to n do

begin

readln(x1,y1,v);

for j:=1 to m do

if(sqr(x1-a[j,1])+sqr(y1-a[j,2]))-sqr(t*v)