Расстояние между точкой и отрезком, с абсолютной или относительной погрешностью не превышающей 0.0001

@vlados124 · Регистрация: 13.09.2018

Author24 — интернет-сервис помощи студентам

Задан отрезок S с концами в точках (x1, y1) i (x2, y2) i точка P с координатами (x, y). Нужно найти расстояние от точки P к отрезку S.
Входные данные
В единственной строке задано 6 целых положительных цифр: x, y, x1, y1, x2, y2.
выходные данные
Выведите расстояние с абсолютной или относительной погрешностью не превышающей 0,0001.
Ограничения
0≤x, y, x1, y1, x2, y2≤10000
Примеры
Входные данные
1 1 0 0 2 2
Исходные данные
0
Пробовал так:

Pascal

program name;
var
   x,y,x1,y1,x2,y2:longint;
   l,s1,s2,l1,l2,min:real;
begin
     read(x,y,x1,y1,x2,y2);
     s1:=(x1+x2)/2;
     s2:=(y1+y2)/2;
     l:=sqrt(sqr(x-s1)+sqr(y-s2));
     l1:=sqrt(sqr(x-x1)+sqr(y-y1));
     l2:=sqrt(sqr(x-x2)+sqr(y-y2));
     if l>l1 then min:=l1
     else min:=l;
     if min>l2 then
        min:=l2;
     writeln(min:0:0);
end.

Но ошибка на третьем тесте.

@Puporev · 02.11.2018, 12:48

Посмотрите это, решение наверное не оптимальное, но идея верная.
Расстояние от точки до отрезка

@vlados124 · 02.11.2018, 12:58 **[ТС]**

Я уже вводил код, но ошибка на втором тесте.

@Puporev · 02.11.2018, 13:43

Можно еще так.
Найти расстояние от точки до каждого из концов отрезка и высоту, Взять минимальное из этих трех.
Но суть та же.

Добавлено через 19 минут
Я вот так написал, вроде все нормально считает.

Pascal

var x,y,x1,y1,x2,y2:longint;
    a,b,c,s,h,d:real;
begin
readln(x,y,x1,y1,x2,y2);
//длины сторон треугольника
a:=sqrt(sqr(x-x1)+sqr(y-y1));
b:=sqrt((x-x2)+sqr(y-y2));
c:=sqrt((x1-x2)+sqr(y1-y2));
//площадь треугольника
s:=abs((x-x2)*(y1-y2)-(x1-x2)*(y-y2))/2;
//высота к основанию
h:=2*s/c;
//writeln('a=',a:0:2,' b=',b:0:2,' h=',h:0:2); - для проверки
if a<b then d:=a else d:=b;
if h<d then d:=h;
write(d:0:4)
end.

@vlados124 · 02.11.2018, 14:37 **[ТС]**

Ошибка на 3-ем тесте.

@Puporev · 02.11.2018, 16:06

Значит какой-то прикол во входных данных есть, думать нужно.

Добавлено через 2 минуты
Видимо совпадение точек 1 и 2, длина с=0, деление на 0.
Нужно проверять совпадение точек. Если да, то выводить 0.

Добавлено через 12 минут
Нет, не так. Если точки 1 и 2 совпадают, то расстояние равно любой от 3 до 1 или от 3 до 2.
Если 3 совпадает с 1 или 2, то 0.

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	02.11.2018, 12:48	2
	Посмотрите это, решение наверное не оптимальное, но идея верная. Расстояние от точки до отрезка 0

@vlados124 1 / 1 / 0 Регистрация: 13.09.2018 Сообщений: 126
	02.11.2018, 12:58 [ТС]	3
	Я уже вводил код, но ошибка на втором тесте. 0

@vlados124 1 / 1 / 0 Регистрация: 13.09.2018 Сообщений: 126
	02.11.2018, 14:37 [ТС]	5
	Ошибка на 3-ем тесте. 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	02.11.2018, 16:06	6
	Значит какой-то прикол во входных данных есть, думать нужно. Добавлено через 2 минуты Видимо совпадение точек 1 и 2, длина с=0, деление на 0. Нужно проверять совпадение точек. Если да, то выводить 0. Добавлено через 12 минут Нет, не так. Если точки 1 и 2 совпадают, то расстояние равно любой от 3 до 1 или от 3 до 2. Если 3 совпадает с 1 или 2, то 0. 0