Денис Федоров
правильно ли у меня метод итераций???
uses crt;
function u(x:real):real;
begin
u:=exp(1/2*ln(abs(-1/x+10*x)));
end;
var
a,b,e,x1,x2:real;
it:byte;
begin
clrscr;
writeln('Vvedite a= ');
readln(a);
writeln('Vvedite b= ');
readln(b);
writeln('Vvedite epsilon');
readln(e);
x2:=b;
it:=0;
repeat
x1:=x2;
x2:=u(x2);
it:=it+1;
until abs(x2-x1)