Haversine Formula

Demonstrates high-precision floating-point arithmetic and built-in trigonometry functions. This example showcases calculating great-circle distances using 'Haversine', highlighting the standard library's support for geospatial mathematics.

Source Code

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');

Result

Distance between Nashville and Los Angeles: 2886.44 km

← Fibonacci & Memoization Matrix Multiplication →