Помогите написать программу на Паскале

[anasteishen]

Помогите написать программу на Паскале

Дано нелинейное уравнение 2-x*exp(x).[FONT=&quot][/FONT]
[FONT=&quot][/FONT]Реализовать на языке Pascal программы приближенного решения нелинейного уравнения методами простой итерации и методом Ньютона). В результате должны выводиться шаг, x, точность, погрешность и конечный х.
[FONT=&quot][/FONT]Найти решение с точностью 0.0001.

 

[Vladimir_S]

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

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

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

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.

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

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.