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

[zekeh]

осталась последняя лабораторная работа по чмрз
решение нелинейных уравнений методом простой итерации
уравнение 2e^x=5x^2
F:=2e^x-5x^2

у друзей похожая лаба


program ITERAT;
uses crt;

const max_iter=100; {maksimal'noe chislo iteraciy}

var

i,l: integer;
x,x0,eps: real;

function F(x:real):real; {funkciya}

begin

F:=sin(x) - x*x ;
end;

begin {osnovnaya programma}
write('Vvedite priblijennoe znachenie x=');
readln(x); {x0 kak mojno blije k iskom}
write('Vvedite tochnost vichisleniy eps=');
readln(eps);

i:=0;
repeat
x0:=x;
x:=x0+F(x0);
inc(i); {uvel/znach/per-y}
writeln('---Iteraciya ',i:3,' x=',x:0:10);
writeln('F(x)=', F(x),' tochnost=', abs(x-x0));
until (abs(x-x0)<=eps)or(i>max_iter);

if (abs(x-x0)<=eps) then writeln ('Otvet: X=', x:15:10)
else writeln('OTVET NE NAYDEN!!! za ',max_iter:0,' shagov iteraciya ne soshlas');
readln;
end.

как подогнать под моё уравнение
заранее спасибо

[gaw4]

program ITERAT;
 uses crt;

 const max_iter=100; {maksimal'noe chislo iteraciy}

 var

 i,l: integer;
 x,x0,eps: real;

 function F(x:real):real; {funkciya}

 begin

 F:=sqrt(2*exp(x)/5) ;
 end;

 begin {osnovnaya programma}
 write('Vvedite priblijennoe znachenie x=');// 1  !!!
 readln(x); {x0 kak mojno blije k iskom}
 write('Vvedite tochnost vichisleniy eps=');
 readln(eps);

 i:=0;
 repeat
 x0:=x;
 x:=F(x0);
 inc(i); {uvel/znach/per-y}
 writeln('---Iteraciya ',i:3,' x=',x:0:10);
 writeln('F(x)=', F(x),' tochnost=', abs(x-x0));
 until (abs(x-x0)<=eps)or(i>max_iter);

 if (abs(x-x0)<=eps) then writeln ('Otvet: X=', x:15:10)
 else writeln('OTVET NE NAYDEN!!! za ',max_iter:0,' shagov iteraciya ne soshlas');
 readln;
 end.

у друзей ошибочка в проге

[zekeh]

спасибо тебе
целый вечер мучался