Алгоритм вычисления

[exevir]

Здравствуйте! Помогите, пожалуйста, 2 дня уже никак не могу составить алгоритм для решения:
Установить, на каком из 10 отрезков интервала [a,b] функция f(x) пересекает ось абсцисс, т.е. меняет знак.
Если есть возможность, то можно ввиде текста программы!!
Заранее огромное спасибо!!!

программа

var
 i : integer;
 b,a: real;
begin
  writeln('введите a b'):
  readln(a, b):
  for i := 1 to 10 do
  if (a + (i - 1) * (b - a) / 10) * (a + i * (b - a) / 10) < 0 then
  begin
    writeln(i);
    break;
  end;
end.

программа выводит на очень большом промежутке (-1000 1100). в чем возможно ошибка?

[BDA]

for i := 1 to 10 do
  if f(a + (i - 1) * (b - a) / 10) * f(a + i * (b - a) / 10) < 0 then
  begin
    writeln(i);
    break;
  end;

[type_Oleg]

Алгоритм:
1) dx=(b-a)/10; x=a ; i=1
2) вычисляем f(x), f(x+dx)
3) проверяем: знак f(x) совпадает со знаком f(x+dx) ?
- если да, то x=x+dx; i=i+1 , переход к 2)
- если нет, ура.. нашли . Ответ = i

[exevir]

Спасибо огромное!!!!!