Методы итераций и половинного деления [Delphi]

[gabach]

Не определяет корни методом итераций, что не так сделал. Помогите, пожалуйста.

program ProjectIteratDel;

{$APPTYPE CONSOLE}
uses
  SysUtils,
  math;

function Rus(S:String):String;
var i:byte;
begin
Result:='';
for i:=1 to Length(S) do
case S[i] of
'А'..'п': Result:=Result+Chr(Ord(S[i])-64);
'р'..'я': Result:=Result+Chr(Ord(S[i])-16);
'Ё': Result:=Result+Chr(240);
'ё': Result:=Result+Chr(241);
else
Result:=Result+S[i];
end;
end;

var
  x,x0,x1,xl,xr,y,yl,eps:real;
  k,n,n1,i:integer;
  F:boolean;

begin
writeln(rus('Введите x0,xl,xr,eps,k,n'));
readln(x0,xl,xr,eps,k,n);
writeln;
n1:=n;
//Метод итераций
writeln(rus('Метод итераций:'));
writeln;
F:=False;
For i:=1 to n do
  begin
    x1:=(exp(-3*x0)-sin(x0)-1.5);
    F:=Abs(x0-x1)<eps;
    x0:=x1;
    if F then break;//Решение найдено=> Выход из цикла
  end;
  if F then
    writeln('Eps=',eps:k+2:k,' ':3,'x=',x0:k+3:k,' ':3,'n=',i:2)
  else
    writeln(Rus('Заданная точность '),eps:k+2:k,rus(' не достигнута за '),n,rus(' шагов'));
writeln;


//Метод половинного деления
writeln(rus('Метод половинного деления:'));
writeln;
  yl:=(exp(-3*xl)-sin(xl)-1.5);
  F:=False;
  for i:=1 to n1 do
    begin
      x:=(xl+xr)/2;
      y:=(exp(-3*x)-sin(x)-1.5);
      if Y*YL>0 then
        xl:=x
      else
        xr:=x;
      F:=Abs(xr-xl)<eps;
      if F then break;//Решение найдено=> Выход из цикла
    end;
  if F then
    writeln('Eps=',eps:k+2:k,' ':3,'x=',x:k+3:k,' ':3,'n=',i:2)
  else
    writeln(Rus('Заданная точность '),eps:k+2:k,rus(' не достигнута за '),n1,rus(' шагов'));
readln;
end.

[Stilet]

А половинным делением правильно находит?

[Poma][a]

А половинное деление разве не подразумевает бин.поиск?
У Вас его вообще нет, не?

[gabach]

Сообщение от Poma][a

А половинное деление разве не подразумевает бин.поиск?
У Вас его вообще нет, не?

Я и не знаю, что такое бин.поиск

Сообщение от Stilet

А половинным делением правильно находит?

Половинным делением правильно находит корень -0.17

[Stilet]

Я и не знаю, что такое бин.поиск

Ну вот типа этого: http://www.programmersforum.ru/showthread.php?t=91550

Половинным делением правильно находит корень -0.17

Интересно...
А попробуй вот такое: http://programmersforum.ru/showpost....52&postcount=3

[gabach]

Спасибо, попробую