Unnamed

program punkty;
uses
    crt;

type
    punkt=record
    x,y:real;
    end;

type
    arrPunkt=array[1..10] of punkt;
var
   i:integer;
   p:punkt;
   t:arrPunkt;

function
        odl(p1,p2:punkt):real;
        begin
        odl:=sqrt(sqr(p1.x-p2.x)+sqr(p1.y-p2.y));
        end;

function
        najbl(p:punkt; var t:arrPunkt):punkt;
        var
        i:integer;
        begin
        najbl:=t[1];
        for i:=2 to 10 do
        if odl(p,t[i])<odl(p,najbl) then najbl:=t[i];
        end;

begin
     clrscr;
     for i:=1 to 10 do
     begin
     t[i].x:=(random-0.5)*20;
     t[i].y:=(random-0.5)*20
     end;

     for i:=1 to 10 do writeln(t[i].x:0:6,'  ',t[i].y:0:6);
     writeln;
     write('Podaj wspolrzedna X punktu : ');readln(p.x);
     write('Podaj wspolrzedna Y punktu : ');readln(p.y);


     writeln;


writeln('najblizszy punkt ma wspolrzedne : ',najbl(p,t).x:0:6,' ',najbl(p,t).y:0:6);
{writeln('a odleglosc miedzy nimi wynosi : ',odl(p,naj):0:6);}
     readln;
end.