нахождение корня уравнения 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 18:42

[volvo]

а что можно любую функцию подставить что бы найти корень уравнения x=F(x)

А что, скажи мне на милость, у тебя такое F(X), если не заданная ТЕБЕ функция? Ты должна была получить функцию вместе с заданием...

Exp(x) - это запись e^x на языке программирования Паскаль...

WriteLn('Корень равен x=', x:10:7); 

Что непонятно? Печатается фраза "Корень равен x=", следом за ней - выводится значение X, в 10 позициях, из которых 7 - после запятой (точность представления числа - 7 знаков после запятой).