Подпрограмма с графикой

[Alexsey1991]

На плоскости заданы 5 точек своими координатами.Выяснить,какие точки находятся на максимальном и минимальном растояние друг от друга.Программу оформить в виде процедуры,в которую в качестве параметра передается массив точек ,составить ещё и функцию вычисления растояния между точек!Работа в паскале!

[p51x]

При чем тут графика? Только из-за того,что точки есть?
Таки в чем проблема? Не знаете как посчитать расстояние между двумя точками? Или как найти максимум (минимум) из нескольких чисел?

[Stilet]

5 точек своими координатами

Допустим:

 type
  TPoint=record x,y:integer;end;
 var
  a;array[1..5] of TPoint;

Тогда проверка может выглядеть так:

 for i:=1 to 5 do begin
  for j:=1 to 5 do begin
    h:=sqrt(sqr(a[i].x-a[j].x)+sqr(a[i].y-a[j].y))
    if h<min then {a[i] и a[j] на минимальном расстоянии}
    И так остальные условия
 end;end;

Смысл понятен?

[Alexsey1991]

Да понял спасибо

[Alexsey1991]

Сообщение от p51x

При чем тут графика?

Попутал маленичко