Question

Язык Pascal. Напишите программу, которая позволяет вводить координаты двух точек на плоскости. (координаты целочисленые) и выводит на экран расстояние между ними.

Answer 1

Ответ:

program  z1;

var xa,ya,xb,yb:integer;

begin

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

read(xa,ya);

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

read(xb,yb);

writeln('Расстояние между точками равно: ',sqrt(sqr(xb-xa)+sqr(yb-ya)):0:3);

end.

Объяснение:

Расстояние между двумя точками A(xa, ya) и B(xb, yb) на плоскости:

$AB = \sqrt{(xb - xa)^{2} + (yb - ya)^{2}}$

Answer 2

Конечно, вот пример программы на Pascal, которая выполняет описанную вами задачу:

pascalCopy code
program CalculateDistance;

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

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

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

  // Вычисление расстояния между точками по формуле sqrt((x2 - x1)^2 + (y2 - y1)^2)
  distance := sqrt(sqr(x2 - x1) + sqr(y2 - y1));

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

Программа сначала запрашивает у пользователя ввод координат первой точки (x1, y1), затем координат второй точки (x2, y2). После этого она использует формулу расстояния между двумя точками на плоскости и выводит результат на экран.