记录编号 26442 评测结果 EEEEEEEEEE
题目名称 遥远的距离 最终得分 0
用户昵称 Gravatarreamb 是否通过 未通过
代码语言 Pascal 运行时间 0.000 s
提交时间 2011-07-24 15:14:21 内存使用 1.64 MiB
显示代码纯文本
program yaoyuandejuli;
var
  t,k,i,j,n,m:longint;
  max:real;
  ax,ay,bx,by:array[1..100000]of longint;
begin
  assign (input,'farawa.in');
  reset (input);
  assign (output,'farawa.out');
  rewrite (output);
    readln (t);
    for k:=1 to t do
    begin
      readln (n,m);
      for i:=1 to n do
        readln(ax[i],ay[i]);
      for i:=1 to m do
        readln(bx[i],by[i]);
      max:=0;
      for i:=1 to n do
        for j:=1 to m do
          if sqrt(sqr(ax[i]-bx[j])+sqr(ay[i]-by[j]))>max then
            max:=sqrt(sqr(ax[i]-bx[j])+sqr(ay[i]-by[j]));
      writeln (max:0:3)
    end;
  close (input);
  close (output)
end.