Метод Ньютона в паскале. Вбиваете просто функцию и производную от неё. Находит методом Ньютона корень уравнения f(X)=0, ГДЕ f(x) задаётся
Условие задачи:Метод Ньютона в паскале. Вбиваете просто функцию и производную от неё. Находит методом Ньютона корень уравнения f(X)=0, ГДЕ f(x) задаётся вами..
program PascalGuru; uses crt; var t:text; x0,eps:real; {------------------------------------------------} function F(x:real):real; {F} begin F:=1+sin(x)-1.14*exp(-x); {!} end; {------------------------------------------------} function F1(x:real):real; {proizvodnaya ot F [http://www.matcabi.net/differentiate.php]} begin F1:=cos(x)+1.14*exp(-x); {!} end; {------------------------------------------------} function Newton(x1,e:real):real; var x2,b:real; begin x2:=x1; repeat b:=x2; x2:=b-F(b)/F1(b); writeln(x2); writeln(t,x2); until abs(x2-b) Newton:=x2; end; {------------------------------------------------}