Question

Помогите, нужно сделать программу: Даны координаты точек на плоскости: x1, y1 и x2, y2. Найти расстояние между точками. (паскаль)

Answer 1

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

begin

write('Введите координаты');

readln(x1,x2,y1,y2);

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

writeln(d);

readln;

end.

Answer 2

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

\[ d = \sqrt{(x_2 - x_1)^2 + (y_2 - y_1)^2} \]

Создайте новый проект в среде разработки Pascal (например, Lazarus) и добавьте следующий код:

program DistanceCalculator;

uses
  Math; // Для использования функции Sqrt (квадратный корень)

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

begin
  // Ввод координат точек
  writeln('Введите координаты первой точки:');
  write('x1 = ');
  readln(x1);
  write('y1 = ');
  readln(y1);

writeln('Введите координаты второй точки:');
  write('x2 = ');
  readln(x2);
  write('y2 = ');
  readln(y2);

// Вычисление расстояния
  distance := Sqrt(Sqr(x2 - x1) + Sqr(y2 - y1));

// Вывод результата
  writeln('Расстояние между точками: ', distance:0:2);
end.

Эта программа запрашивает у пользователя координаты двух точек, вычисляет расстояние с использованием указанной формулы и выводит результат. Обратите внимание, что функция `Sqr` используется для возведения в квадрат, а `Sqrt` для извлечения квадратного корня.