Distance

Definition

function Distance(const X1, Y1, X2, Y2: Integer): Extended;

Source Code

function Distance(const X1, Y1, X2, Y2: Integer): Extended;
var
  A, B: Extended;
begin
  A := X1 - X2;
  B := Y1 - Y2;
  Result := Sqrt(A * A + B * B);
end;

Availability

SCAR Divi 3.00 > Current

• Before 3.21 the workaround for larger distances was not yet implemented.
• Bedore 3.37 returned an integer value

Description

Calculates the distance between 2 given points defined by (X1, Y1) and (X2, Y2).

Example

begin
  WriteLn(Distance(5, 6, 8, 9));
end.

Output:

4.24264068711929