Технический форум - Помогите написать программу на Паскале

Цитата:

Сообщение от anasteishen (Сообщение 889028)

должны выводиться шаг...

Никаких "шагов" данные методы не предусматривают.

Цитата:

Сообщение от anasteishen (Сообщение 889028)

методами простой итерации

Код:

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 (Сообщение 889028)

и методом Ньютона

Код:

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.