решение неленейного уравнения методом простых итераций в паскале

[Zer0]

да что за... у меня на TP 7.0 все компилится

[mila111189]

может я что то не такделаю
вот код:
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');
assign (f,'input.txt');
append(f);
writeln(f,r:0:2);
close(f);
readln;
end.

в input.txt
0 14 0.00000001

[Zer0]

попробуйте в левую границу подставить значение больше 2

[mila111189]

а у вас получается да?

[Zer0]

да, просто вся проблема в возведении в степень, точнее в ln, там параметр должен быть больше 0 и не равен 1, это можно будет доп условиями исправить