Нелинейное уравнение

[lubov_morkov]

решить нелинейное уравнение методом итераций x^4*e^x+(корень кубический из x-1)-2=0, исходные данные (интервал, точность вычислений)считываются с файла, результаты (корни уравнения) дописываются в исходный файл, нужна программа в Паскале

[p51x]

проблема в чем?

[lubov_morkov]

вот примерный код, но он не работает, в чем ошибка?
function solve(a,b,eps:real):real;
var x,y:real;
begin
x:=a;
y:=exp(ln(x)*4)*exp(ln(2.17)*x)+exp (ln(x-1)/3)-2;
while abs(y-x)>eps do begin
x:=y;
y:=exp(ln(x)*4)*exp(ln(2.17)*x)+exp (ln(x-1)/3)-2;
end;
solve:=x;
end;
var f:text; a,b,eps,r:real;
begin
assign(f,'input.txt');
reset(f);
readln( a, b, eps);
close(f);
r:=solve(a,b,eps);
assign(f,'input.txt');
append(f);
writeln(f,r:0:2);
close(f);
readln;
end.

[p51x]

ln(2.17) - зачем?
abs(y-x) - это не вычисление точности, погрешности...

[lubov_morkov]

ln(2.17) - это число е,
а как будет правильнее написать

[KobolD]

y:=exp(4*ln(x))*exp(x)+exp(ln(x-1)/3)-2

[lubov_morkov]

НУ в чем ошибка?подскажите...

function solve(a,b,eps:real):real;
var x,y:real;
begin
x:=a;
y:=exp(4*ln(x))*exp(x)+exp(ln(x-1)/3)-2;
while abs(y-x)>eps do begin
x:=y;
y:=exp(ln(x)*4)*exp(ln(2.17)*x)+exp (ln(x-1)/3)-2;
end;
solve:=x;
end;
var f:text; a,b,eps,r:real;
begin
assign(f,'input.txt');
reset(f);
readln( a, b, eps);
close(f);
r:=solve(a,b,eps);
assign(f,'input.txt');
append(f);
writeln(f,r:0:2);
close(f);
end.

[p51x]

НУ в чем ошибка?

В непонимании итерационных методов.

На каждом шаге должно быть: х = х + Dx, y = y(x). А вы считаете x = y(x), y = y(x), т.е. y = y(y(x)).
Про погрешность я вам уже говорил.