program niesk;Który wynik jest obarczony mniejszym błędem? Dlaczego?
{$APPTYPE CONSOLE}
var x,y: single;
begin
x:=0.00000001;
y := sqrt(x*x + 1) - 1;
writeln('W pierwszym przypadku: y = ', y);
x:=0.00000001;
y := x*x / (sqrt(x*x + 1) + 1);
writeln('W drugim przypadku : y = ', y);
readln;
end.