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

[mila111189]

куда записывается ответ? их нужно дописать в исходный файл

[Zer0]

ответ записывается в переменную, для дописывания в файл вместо

writeln ('Otvet = ',r:0:2);
readln;

писать

append(f);
writeln(f,r:0:2);
closefile(f);

[mila111189]

никакие действия не происходят, открывается черное окно и ...runtime error 106 at все

[Zer0]

у вас файлик input.txt лежит рядом с программой? в нем и должны быть данные причем в таком виде:

1 8 0.00000001

где 1 - а, 8 - b, 0.000001 - точность

[mila111189]

да так и есть

[Zer0]

киньте в личку исходник того что вышло, я посмотрю

[Zer0]

вот так еще попробуйте

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
  x:=y;
 solve:=x;
end;

var f:text; a,b,e,r:real; 
begin
 assign(f,'input.txt');
 reset(F);
 readln(f,a,b,e); 
 close(f);
 r:=solve(a,b,e);
 assign(f,'input.txt');
 append(f);
 writeln(f,r:0:2);
 close(f);
end.

[mila111189]

и так тоже не получается

[Zer0]

увидел свой косяк - внутри функции solve исправьте:

 y:=exp(ln(x)*4)*exp(ln(2.17)*x)+exp (ln(x-1)/3)-2; 
 while abs(y-x)>eps do
  x:=y;
 solve:=x;

на

 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;

[mila111189]

никак(((((((