Cod sursa(job #728071)

Utilizator lehman97Dimulescu David lehman97 Data 28 martie 2012 14:32:26
Problema Cele mai apropiate puncte din plan Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.6 kb
const max=1000000000;
type vec=record
x:int64;
y:int64;
end;
     vector=array[1..100000]of vec;
var  v:vector;
     i,j,n:longint;
     min:real;



function dist(a,b:vec):real;
var a1,a2:longint;
begin
a1:=abs(a.x-b.x);
a2:=abs(a.y-b.y);
dist:=sqrt(a1*a1+a2*a2);
end;

begin
assign(input,'cmap.in');reset(input);
assign(output,'cmap.out');rewrite(output);
read(n);
min:=max;
for i:=1 to n do
begin
read(v[i].x);
read(v[i].y);
end;

for i:=1 to n-1 do
for j:=i+1 to n do
if dist(v[i],v[j])-min<0.000000 then min:=dist(v[i],v[j]);
writeln(min:0:6);


close(output);
end.