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

13
Task/Approximate-equality/PascalABC.NET/approximate-equality.pas Normal file
View file

@ -0,0 +1,13 @@
function ApproxEqual(x,y,eps: real): boolean := Abs(x - y) < eps;
begin
var eps := 1e-18;
ApproxEqual(100000000000000.01, 100000000000000.011,eps).Println;
ApproxEqual(100.01, 100.011,eps).Println;
ApproxEqual(10000000000000.001 / 10000.0, 1000000000.0000001000,eps).Println;
ApproxEqual(0.001, 0.0010000001,eps).Println;
ApproxEqual(0.000000000000000000000101, 0.0,eps).Println;
ApproxEqual(Sqrt(2) * Sqrt(2), 2.0,eps).Println;
ApproxEqual(-Sqrt(2) * Sqrt(2), -2.0,eps).Println;
ApproxEqual(3.14159265358979323846, 3.14159265358979324,eps).Println ;
end.