Haversine formula to calculate the great-circle distance between two points
// Haversine formula to calculate the great-circle distance between two points
// on a sphere given their longitudes and latitudes.
var nashvilleLat := 36.12;
var nashvilleLon := -86.67;
var losAngelesLat := 33.94;
var losAngelesLon := -118.40;
var earthRadiusKm := 6371.0;
var dist := Haversine(nashvilleLat, nashvilleLon, losAngelesLat, losAngelesLon, earthRadiusKm);
PrintLn('Distance between Nashville and Los Angeles: ' + dist.ToString(2) + ' km');
Distance between Nashville and Los Angeles: 2886.44 km