Цитата:
Сообщение от anasteishen
должны выводиться шаг...
|
Никаких "шагов" данные методы не предусматривают.
Цитата:
Сообщение от anasteishen
методами простой итерации
|
Код:
Const
Eps=0.0001;
Var
x,x_bef,d:real;
Function Fi(z:real):real;
begin
Fi:=2*Exp(-z);
end;
Begin
x_bef:=0;
Repeat
x:=Fi(x_bef);
Writeln('x= ',x:5:3,' x*Exp(x)= ',x*Exp(x):5:3);
d:=Abs(x_bef-x);
x_bef:=x;
Until d<Eps;
Writeln('Result: x= ',x:8:6);
Readln
End.
Цитата:
Сообщение от anasteishen
и методом Ньютона
|
Код:
Const
Eps=0.0001;
Var
x,x_bef,d:real;
Function F(z:real):real;
begin
F:=2.0-z*Exp(z);
end;
Function Der(z:real):real;
begin
Der:=-(z+1)*Exp(z);
end;
Begin
x_bef:=0;
Repeat
x:=x_bef-F(x_bef)/Der(x_bef);
Writeln('x= ',x:5:3,' x*Exp(x)= ',x*Exp(x):5:3);
d:=Abs(x_bef-x);
x_bef:=x;
Until d<Eps;
Writeln('Result: x= ',x:8:6);
Readln
End.