Помогите пожалуйста решить задачу в Паскале!! 1) Даны координаты 2-ух точек, известно...

Question

Помогите пожалуйста решить задачу в Паскале!!
1) Даны координаты 2-ух точек, известно х,у. Найти середину отрезка.

Comments

Середину чего найти? Подумайте, что написали: даны координаты каких-то двух точек и найти середину. И во втором вопросе, какой это "исход" известен?

Answer 1

Var
  Ax,Ay,Bx,By,x,y:real;
begin
  Write('Введите координаты x,y первой точки: ');
  Read(Ax,Ay);
  Write('Введите координаты x,y второй точки: ');
  Read(Bx,By);
  x:=(Ax+Bx)/2;
  y:=(Ay+By)/2;
  Writeln('Координаты середины отрезка: (',x:0:2,';',y:0:2,')')
end.

Тестовое решение:
Введите координаты x,y первой точки: -5 -3
Введите координаты x,y второй точки: 8 3
Координаты середины отрезка: (1.50;0.00)