Неправильно считает,в чём ошибка?

[schoolboy99]

Даны действительные числа х1,у1,х2,у2(х1 не равен х2),которые определяют 2 точки А(х1,у1) и В(х2,у2).На оси абцисс найти такую точку,сумма расстояний,которой до точек А и В-наименьшая для всех точек этой оси.

Аналитическая геометрия 9-10 класс,прописал уравнение прямой через 2 точки но результаты совсем не те.

program labwork1;
uses crt;
var
x1,y1,x2,y2:real;
a,c,b,kb:real;

procedure one();
begin
writeln('Введите координаты точки А');
readln(x1,y1);
writeln('Введите координаты точки В');
readln(x2,y2);
if x1<>x2 then 
begin
a:= y2-y1; 
b:= x1-x2; 
c:= -x1*(y2-y1)+y1*(x2-x1);
kb:=c/a;
writeln('Уравнение прямой: ',a:5:1,'x + ',b:5:1,'y+',c:5:1,'=0');
writeln('При y = 0 ,находим x= ',kb:0:2,' ','который и является точкой заданной в условии задачи')
end
else 
writeln('Ошибка при условии!Программа завершена!')
end;

begin
one();
end.

[schoolboy99]

Немного подправил код,но есть сомнения
Нужен ответ правильно находит или нет

program labwork1;
///uses crt;
var
x1,y1,x2,y2:real;
a,c,b,kb:real;

procedure one();
begin
writeln('Введите координаты точки А');
readln(x1,y1);
writeln('Введите координаты точки В');
readln(x2,y2);
if x1<>x2 then 
begin
kb:=sqrt(sqr(x2-x1)+sqr(y2-y1));
kb:=kb+1;
writeln('Сумма расстояний наименьшей точки равно = ',kb:0:2)
end
else 
writeln('Ошибка при условии!Программа завершена!')
end;

begin
one();
end.

[Аватар]

Нужно взять точку (x,0) и сумму расстояний от нее до (x1,y1) и (x2,y2). И найти минимум этой функции: (x-x1)^2+y1^2+(x-x2)^2+y2^2. А у тебя хрен знамо что решается, точнее находится расстояние между (x1,y1) и (x2,y2)

[schoolboy99]

Сообщение от Аватар

Нужно взять точку (x,0) и сумму расстояний от нее до (x1,y1) и (x2,y2). И найти минимум этой функции: (x-x1)^2+y1^2+(x-x2)^2+y2^2. А у тебя хрен знамо что решается, точнее находится расстояние между (x1,y1) и (x2,y2)

Меня при сдаче этой задачки смутили простым примером.

Пусть есть 2 точки А(2.0,1.0),а точка В(6.0,1.0) в итоге в качестве ответа нарисовали точку 4.1 и спросили твоя программа так подсчитает,она так не считала.
Кстати это правильно или меня надули?

[Аватар]

Не надули, но это тривиальный пример, нарисуй и сам увидишь

ADD

x=(x1+x2)/2

[min@y™]

x=(x1+x2)/2

Доказательство (таблетка матана аффтору):
211.png

[schoolboy99]

Всем спасибо!

[min@y™]

Всем спасибо!

верни таблетку, фулюган!
вас много, а она у меня одна!

з.ы. не забудь помыть.