SEKANTE METODOA

1.

f[x_]=Exp[-x]-x

Plot[f[x],{x,-5,2}]

For[x0=0.;x1=1.;tol=0.1;i=1;err=tol+1,i<50&&err>tol,i++,x2=x1-((f[x1]*(x1-x0))/(f[x1]-f[x0]));err=Abs[(x2-x1)/x2];Print[i," garren iterazioan hurbilketa ",x2," eta errorea = ",err];x0=x1;x1=x2]