Question

Ввести с клавиатуры координаты двух точек (а и в) на плоскости (вещественный числа). вычислить длину отрезка АВ. программу нужно написать в паскале

Answer 1

Program n1;
var x1,x2,y1,y2: real;
begin
write('координаты точки A: ');
readln(x1,y1);
write('координаты точки B: ');
readln(x2,y2);
write('|AB|=',sqrt(sqr(x2-x1)+sqr(y2-y1)));
end.

Answer 2

Uses crt;
var xA,xB,yA,yB,D: real;Begin 
clrscr;
 write('Введите координаты точки A через пробел: ');
      readln(xA,yA);
      write('Введите координаты точки B через пробел: ');
      readln(xB,yB);      d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
      writeln;
      writeln('Длина отрезака AB = ',d:0:3)
  End.

Answer 3

Для вычисления длины отрезка между двумя точками на плоскости вам понадобятся формулы для нахождения расстояния между точками.

Формула для расстояния между двумя точками на плоскости имеет вид:

d = sqrt((x2-x1)^2 + (y2-y1)^2)

Где x1, y1 и x2, y2 - координаты точек A и B соответственно.

Вот как может выглядеть программа на Pascal для нахождения длины отрезка между двумя точками на плоскости:

perlCopy code
program LengthOfSegment;

var
  x1, y1, x2, y2: real;
  distance: real;

begin
  write('Введите координаты точки A (x1, y1): ');
  readln(x1, y1);
  write('Введите координаты точки B (x2, y2): ');
  readln(x2, y2);

  distance := sqrt(sqr(x2 - x1) + sqr(y2 - y1));

  writeln('Длина отрезка AB равна ', distance:0:2);
  readln;
end.

После запуска программы пользователь будет приглашен ввести координаты точек A и B. После ввода координат программа вычислит длину отрезка и выведет результат на экран.

Обратите внимание, что в программе используется функция sqr для возведения в квадрат, а также форматирование вывода результата с помощью :0:2, чтобы вывести длину отрезка с двумя знаками после запятой.