aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Angle-difference-between-two-bearings/PascalABC.NET/angle-difference-between-two-bearings.pas Normal file
View file

@ -0,0 +1,16 @@
function delta(b1, b2: real): real;
begin
result := (b2 - b1) - Trunc((b2 - b1) / 360.0) * 360.0;
if result < -180.0 then result += 360.0
else if result >= 180.0 then result -= 360.0
end;
begin
var testVectors :=
|(20.00, 45.00), (-45.00, 45.00), (-85.00, 90.00),
(-95.00, 90.00), (-45.00, 125.00), (-45.00, 145.00),
(29.48, -88.64), (-78.33, -159.04), (-70099.74, 29840.67),
(-165313.67, 33693.99), (1174.84, -154146.66), (60175.77, 42213.07)|;
foreach var vector in testVectors do
writeln(vector[0]:10:2, vector[1]:12:2, delta(vector[0], vector[1]):10:2);
end.