Решение квадратного уравнения

[Georgia]

Вычислить х*х-4.
Решение:
Const xh=-3; xk=3; n=100;
Var i:integer; x,h:real;
Function f(x:real):real;
Begin f(x):=sqr(x)-4; end;
Begin <---------------вот с этого момента разъясните пож-ста для чего цикл?
H:=(xk-xh)/n; x:=xh;
For i:=1 to n do begin
If f(x)*f(x+h)<=0
then writeln(x,x+h);
x:=x+h;
end;
end.

[reader_st]

Georgia

здесь организовал простой перебор корней с заданным шагом

$$h:=(xk-xh)/n$$

. Если мне не изменяет память, то это один из приближенных алгоритмов решения алгебраических уравнений. Условие f(x)*f(x+h) навеяло.

Добавлено спустя 4 минуты 44 секунды:

Выводит два значения, между которыми нах. корень.