program zero_funzione(input,output);
var Valf,Valfpiu,Valfmeno,x_old,x_new,delta:real;
const eps=0.000000001;
function f(x: real): real;
        begin
             f:=x*exp(x)-1;
        end;

        begin
        clrscr;
        writeln('questo programma determina lo zero di una funzione col');
        writeln('metodo della secante');
             writeln('inserisci approssimazione iniziale');
             readln(x_old);
             clrscr;
             repeat
               Valf:=f(x_old);
               Valfpiu:=f(x_old+eps);
               Valfmeno:=f(x_old-eps);
               x_new:=x_old-(2*eps*Valf)/(Valfpiu-Valfmeno);
               writeln(x_new:12:8);
               delta:=x_old-x_new;
               x_old:=x_new;
             until abs(delta)<eps;
        end.