Cod sursa(job #974215)

Utilizator cioionutFMI Ionut Ciocoiu cioionut Data 16 iulie 2013 17:17:20
Problema Cele mai apropiate puncte din plan Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.59 kb
type
pct=record
     x,y:-1000000000..1000000000;
     end;
int=1..100000;
pcte=array[1..100000] of pct;
var k:pcte; a,b:pct;
    n,i,j:int;t,g:text;d:extended;

begin
assign(t,'cmap.in');reset(t);
assign(g,'cmap.out');rewrite(g);
readln(t,n);
for i:=1 to n do readln(t,k[i].x,k[i].y);
d:=sqrt(sqr(k[1].x-k[2].x)+sqr(k[1].y-k[2].y));
for i:=1 to n do
for j:=i+1 to n do if d>sqrt(sqr(k[i].x-k[j].x)+sqr(k[i].y-k[j].y))then begin
d:=sqrt(sqr(k[i].x-k[j].x)+sqr(k[i].y-k[j].y));
a:=k[i];
b:=k[j];
end;
write(g,sqrt(sqr(a.x-b.x)+sqr(a.y-b.y)):4:6);

close(t);close(g);
end.