нахождение корня уравнения x=F(x), помогите пожалуйста решить, моя курсовая =( Опции

[xlinx]

я тут написала но похоже даже не то, я вообще ничего не понимаю в паскале, а надо сдавать уже курсовую, пожалуйста помогите написать программу, за рание огромное спасибо.

То что написала я (позориться даже не хочется) только не смейтесь :'(

 
 uses crt;

var
 ep:extended;
 tx:extended;
 eps:extended;
 x0:extended;

function f(x:extended):extended;
begin
 f:=ln(x)+x*x;
end;

begin
 clrscr;
 write('Eps= ');
 readln(eps);
 ep:=1.;
 tx:=0.00001;
 writeln('X':10,'eps':10);
 repeat
  while (f(tx)*f(tx+ep)>0) do tx:=tx+ep;
  ep:=ep/2;
  x0:=tx+ep;
  if (f(x0)=0) then
  begin
   writeln('Exact root: ',x0:10:6);
   halt(0);
  end;
  writeln(x0:10:6,ep:10:6);
 until (ep<eps);
readln;
end.

.


так или нет?? если нет, то помогите пожалуйста написать

Сообщение отредактировано: xlinx - 2.05.2007 22:42