Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Метод Ньютона в паскале. Вбиваете просто функцию и производную от неё.
Находит методом Ньютона корень уравнения f(X)=0, ГДЕ f(x) задаётся вами.

Просмотров: 397
Объяснение: -
Отзывов: 0

РЕШЕНИЕ:

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)<e; Newton:=x2; end; {------------------------------------------------} begin clrscr; assign(t,'Newton_f1.txt'); rewrite(t); write('vvedite nachalnoe priblizenie x0='); readln(x0); write('vvedite tochnost eps='); readln(eps); clrscr; write('X=',Newton(x0,eps):9:4); readln; close(t); end.
нажми на эту область и скопируй решение


	© 2008 - 2012 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.