Методы одномерного поиска(Последовательный активный поиск)

Листинг программы

Program Lab5;
Uses
Crt;
function fx( x: real ): real;
begin
fx := -2*sqr(x)+4*x + 5;
end;

Var
x1, x2 : real;
E : real;
a, b : real;
L : real;
f1, f2 : real;

Begin
ClrScr;
write('Vvedite nachalo otrezka: '); readln
...

Метод последовательного активного поиска.
Алгоритм.
1) Внутри интервала проставляем две точки, относительно середины интервала на расстоянии Е/2 слева и справа.
2) В зависимости от результата измерений выбираем интересующий интервал.
...

Вывод. Научился решать задачи одномерного поиска методом последовательного активного поиска.

p.s. В работе также содежится исходный код, блок схема, результаты выполнения и теоретические cведения.