Question

How to calculate the Euclidean distance between two points in Pascal

Answer 1

// The Euclidean distance is a measure of the straight-line distance 
// between two points in a 2D or 3D space

program EuclideanDistance;

function CalculateEuclideanDistance(x1, y1, x2, y2: real): real;
begin
  CalculateDistance := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
end;

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

begin
  x1 := 3.0;
  y1 := 4.0;
  x2 := 5.0;
  y2 := 9.0;

  distance := CalculateEuclideanDistance(x1, y1, x2, y2);

  writeln('Euclidean Distance: ', distance:0:5);
end.



(*
run:

Euclidean Distance: 5.38516

*)

 

70+ SQL courses for beginners and professionals