Функция

[MilenaR]

Найти для заданных N точек плоскости пару наиболее удаленных друг от друга.Функция:расстояние между двумя точками.
Вот)Решение на Паскале)

[Alexey74]

функция определения расстояния между точками. Вот)

function asd(x1,y1,x2,y2:integer):real;
begin
n:=sqrt(sqr(y2-y1)+sqr(y2-y1));
end;

[RUSt88]

выполню за вознаграждение, обращайтесь

[ROMA2PVT]

А гугл зачем нужен?
http://www.cyberforum.ru/pascal/thread117383.html

[MilenaR]

мммм....дело в том что нужна функция...в задаче это написано

[Alexey74]

определяет расстояние между точками
function asd(x1,y1,x2,y2:integer):integer;
begin
n:=sqrt(sqr(y2-y1)+sqr(y2-y1));
end;