Три точки на плоскости заданны своими координатами . Между какими точками расстояние наименьшее (ПАСКАЛЬ!)

Предыдущий
вопрос Следующий
вопрос

Для нахождения двух точек с наименьшим расстоянием между ними, нужно найти все возможные комбинации из трех точек и рассчитать расстояние между ними. Выберем три точки с координатами (x1, y1), (x2, y2), (x3, y3).

Программа на Pascal для нахождения двух точек с наименьшим расстоянием между ними:

program MinDistance;
var
x1, y1, x2, y2, x3, y3: real;
minDistance, distance: real;
begin
{ ввод координат трех точек }
read(x1, y1, x2, y2, x3, y3);

{ расчет расстояний между точками и поиск минимального }
minDistance := sqrt((x1 - x2) (x1 - x2) + (y1 - y2) (y1 - y2));
distance := sqrt((x1 - x3) (x1 - x3) + (y1 - y3) (y1 - y3));
if distance < minDistance then
minDistance := distance;
distance := sqrt((x2 - x3) (x2 - x3) + (y2 - y3) (y2 - y3));
if distance < minDistance then
minDistance := distance;

writeln('Минимальное расстояние между двумя точками: ', minDistance);
end.

Этот код позволит найти две точки с наименьшим расстоянием между ними.