Решение уравнения методом хорд, дихотомии, Ньютона

const
eps=exp(-5); a=0; b=1;
var
u,v,c,fu,fr:real;
begin
  u:=a; v:=b;
  fu:=a*a+5*cos(a);
    repeat
     c:=(u+v)/2;
     fr:=c*c+5*cos(c);
      if fu*fr > 0 then begin
        u:=c; fu:=fr; end
      else v:=c;
    until (v-u)< eps;
  writeln('Корень',c);
end.

program dihotomiya;
function f(x:real):real;
begin
  f:= (exp(-sin(3*x)))+sin(x)/cos(x);
end;
 
var i,n : integer;
a,b,c,e:real;
begin
write('введите левый конец отрезка: '); readln (a);
write('введите правый конец отрезка: ');readln(b);
write('введите погрешность: ');readln(e);
c:=(a+b)/2; n:=1;
      while ((abs(f(c))>=e) or (abs(a-b)>e)) do
                begin
                  writeln(n:3,c:18:8);
 
                 if f(a)*f(c)<0 then
                   b:=c   else  a:=c;
                   inc(n);
                   c:=(a+b)/2
                   end;
    writeln(n:3,c:18:8);
end.

program kasatelnye;
function f(x:real):real;
  begin
  f:=2*x+sin(x)-1;
  end;
function df(x:real):real;
begin
  df:=2+cos(x);
end;
var
  x0,xn,e:real;
  i:integer;
begin
write('начальное значение: ');readln(x0);
write('введите погрешность: ');readln(e);
 
  xn:=f(x0);
  i:=1;
  writeln(i:3,' ',xn:18:7);
  while (abs(xn-x0)> e) and (i < 1000) do
  begin
    inc(i);
    x0:=xn;
    xn:= x0- f(x0)/df(x0);
    if f(xn) = 0 then x0 := xn;
    writeln(i:3,' ',x0:18:7);
  end;
end.