Cod sursa(job #728098)

Utilizator alex45meOlaru Alex alex45me Data 28 martie 2012 14:51:36
Problema Cele mai apropiate puncte din plan Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.55 kb
type vect=record
   x,y:int64;
end;
var  v:array[1..100000]of vect;
     min:real;
     i,j,n:longint;

function deca(x1,y1,x2,y2:int64):real;
begin
deca:=sqrt(abs(x1-x2)*abs(x1-x2)+abs(y1-y2)*abs(y1-y2));
end;


begin
assign(input,'cmap.in');reset(input);
assign(output,'cmap.out ');rewrite(output);
read(N);
FOr i:=1 to n do
read(v[i].x,v[i].y);
min:=1000000000000000;
for i:=1 to n-1 do
for j:=i+1 to n do
   if deca(v[i].x,v[i].y,v[j].x,v[j].y)<min then min:=deca(v[i].x,v[i].y,v[j].x,v[j].y);
write(min:1:6);
   close(output);
end.