Найдите координаты точки (x,y) делящий отрезок AB пополам, если известно, что его концы...

0 голосов
116 просмотров

Найдите координаты точки (x,y) делящий отрезок AB пополам, если известно, что его концы имеют координаты A(x1,y1) , B(x1,y2)
x=x2-x1поделить на 2 y=y2-y1поделить на 2
на языке паскаль
пожалуйста очень срочно


Информатика (133 баллов) | 116 просмотров
0

Ваши формулы неверны.

0

всмысле

0

В прямом. Формулы, которые Вы привели в задании (3-я строчка снизу) - неверны.

0

там где х= и у= это их данные скорее всего

0

Здесь это ВАШИ данные. И они неверны: должна быть полусумма, а не полуразность. Ну, сами посудите, если координаты концов отрезка равны -3 и +3, то середина имеет координату 0, не так ли? А у Вас получится (3-(-3))/2=3. Следовательно, формула не верна.

0

ну измените знаки и решите пожалуйста

0

Сформулируйте задание правильно. Сами. И не надо лениться: лень не зря считается смертным грехом.

0

я сюда написала как написал учитель

0

Вы тут не почтальоном работаете. Вы выступаете от своего собственного имени, если Вы просите помощи - то Вы просите помочь ВАМ. Потрудитесь сперва разобраться, что ВАМ нужно. Не следует заставлять людей, к помощи которых Вы прибегаете, делать зряшную, пустую работу, это попросту непорядочно.

0

Кстати сказать, "не знаю" - это очень хороший ответ. Тут наверняка найдутся люди, способные разобраться в этой несложной задачке по аналитической геометрии. А вот написать ГОТОВЫЕ, но неверные формулы - это очень плохо. Кто-то будет для Вас писать заведомо неверную программу... :-( А это работа даже не на врага - на помойную яму.

Дан 1 ответ
0 голосов
Правильный ответ

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию

begin
    var x1 := ReadReal('координаты A(x1,y1) =');
    var y1 := ReadLnReal();
    var x2 := ReadReal('координаты B(x2,y2) =');
    var y2 := ReadLnReal();
    
    Writeln('O(', (x1 + x2) / 2, ', ', (y1 + y2) / 2, ')');
end.

(55.0k баллов)