метод простой итерации (нелин. ур)

[zekeh]

нелинейное уравнение вида: 2e^x=5x^2
дан метод: простой итерации
Задание
Составить программу для вычисления с помощью ЭВМ всех корней уравнения, заданного преподавателем, с точностью 10–6 . Предусмотреть в программе счетчик числа итераций.
помогите пожалуйста, а то с программированием туго

[zekeh]

вот что получается

program MethodOfIteration;
uses crt;
var
a,b,c,eps,y: real;
k: integer;
left,right: real;
function f(x:real) :real;
begin
f:=5*sqr(x);
end;
function derivateF(x:real) :real;
begin
derivateF:=2*exp(x);
end;
function max(y,z:real) :real;
begin
if y>=z then max:=y
else max:=z;
end;
begin
Writeln('Input a,b and eps');
Readln(a,b,eps);
k:=0;
c:=b;
left:=a;
right:=b;
repeat
y:=c;
c:=f(y);
inc(k);
until abs(y-c)<=eps;
if (c>=left) and (c<=right) then begin
Writeln('Root = ',c:7:6);
Writeln('Number of iteration = ',k);
end
else begin
Writeln('No root found in the interval');
end;
end.