Cod sursa(job #974140)

Utilizator cioionutFMI Ionut Ciocoiu cioionut Data 16 iulie 2013 15:25:36
Problema Cele mai apropiate puncte din plan Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.6 kb
type
pct=record
     x,y:-1000000000..1000000000;
     end;
int=2..100000;
pcte=array[1..100] of pct;
var k:pcte;
    n,i:int;t,g:text;

function divide(p,u:int):real;
var m:int;r1,r2:real;
begin
if (u-p=1) then divide:=sqrt(sqr(k[u].x-k[p].x)+sqr(k[u].y-k[p].y))
           else begin
m:=(u+p)div 2;
r1:=divide(p,m);
r2:=divide(m,u);
if r1<r2 then divide:=r1
         else divide:=r2;
         end
end;
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);
write(g,divide(1,n));
close(t);close(g);
readln;end.