решение уравнения

[Артл]

решение методом хорд, у меня значение функции получается -1.67099360402474E-8 при погрешности 0,0001 а должно ведь приближенно к нулю быть, помогите пожалуйста найти мне ошибку в решении






uses crt;
var
f:text;
result:text;
n:integer;
a,b,c,eps:real;
function y(c:real):real;
begin
y:= cos(c);
end;
begin
clrscr;
assign(f,'C:\PASKAL\data2.txt');
assign(result,'C:\PASKAL\result.txt ');
rewrite(result);
reset(f);
readln(f,a,b,eps);/ берутся из файла, границы 1,6 и 1,4 и погрешность
c:=a;
while abs(y(c))>eps
do begin
n:=n+1;
c:=a+ abs(y(a)/(y(a)-y(b)))* (b-a);
if y(a)*y(c)<0 then b:=c
else a:=c;
end;
writeln(y(c),' ',c,' ',n);
writeln(result,'y=',y(c),' ','x=',c,' ','kolichestvo iteracii',' ',n);
close(f);
close(result);
end.

[Sparkman]

writeln(result,'y=',y(c):0:20,' ','x=',c:0:20,' ','kolichestvo iteracii',' ',n);

-1.67099360402474E-8 = -0.0000000167099360402474
ну чем вам не ноль