Как найти расстояние между двумя точками (язык Паскаль)

Задача. Необходимо вычислить расстояние между двумя точками, заданными своими целочисленными координатами.

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

Исходные данные:

x1, y1 – координаты первой точки (тип integer);

x2, y2 – координаты второй точки (тип integer).

Выходные данные:

d – расстояние между двумя точками (тип real).

Необходимые функции:

sqr() – возведение в квадрат

sqrt() - извлечение квадратного корня (выдает значение типа

Опишем переменные в блоке Var

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

Приведем порядок выполнения операторов:

• Ввести с клавиатуры значения координат точек
• Вычислить расстояние по формуле
• Вывести значение расстояния на экран

Программа решения задачи на языке Паскаль:

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

begin

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

  readln(x1,y1,x2,y2);

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

  writeln('Расстояние между точками = ',d);

end.

Выполним программу для исходных данных x1=2, y1=5; x2=-2, y2=2.

Изобразим на рисунке положение точек:

Результат выполнения программы:

Введите координаты двух точек

2 5

-2 2

Расстояние между точками = 5

А как решить такую задачу?

Даны целочисленные координаты двух точек, какая из них находится дальше от начала координат?