crawler
Все верно, но я бы еще порекомендовал выполнять циклическое нахождение значения производной, постепенно уменьшая dx, до тех пор пока они не станут отличаться друг от друга на какое-то достаточно маленькое число:
Код:
const
e = 0.000001;
...
dx := 0.01;
f1 := -10000000;
repeat
f2 := f1;
f1 := (f(x + dx) - f(x)) / dx;
dx := dx / 2;
until abs(f1 - f2) <= e;