Cod sursa(job #728044)

Utilizator vladvaldezVlad Dimulescu vladvaldez Data 28 martie 2012 14:21:38
Problema Cele mai apropiate puncte din plan Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.52 kb
type punct=record
  x,y:longint;
  end;


function calc(a,b:punct):real;
var a1,a2:longint;
begin
a1:=abs(a.x-b.x);
a2:=abs(a.y-b.y);
calc:=sqrt(sqr(a1)+sqr(a2));
end;

var i,n,j:longint;
    v:array[1..100000]of punct;
    min:real;
begin
assign(input,'cmap.in');reset(input);
assign(output,'cmap.out');rewrite(output);
read(n);
min:=maxint;
for i:=1 to n do read(v[i].x,v[i].y);
for i:=1 to n-1 do
for j:=i+1 to n do
if calc(v[i],v[j])<min then min:=calc(v[i],v[j]);
writeln(min:0:6);
close(output);
end.