Jeff
Прочитай внимательней :-)
Result:=Result + (Abs(b-a) + Abs(Min(Func(a+Count*eps), Func(a+Count*eps+eps))))*eps;
нужно вставить вместо многоточия в моем примере
Код:
Count:=Round(Abs(b-a)/eps);
repeat
Result:=Result + (Abs(b-a) + Abs(Min(Func(a+Count*eps), Func(a+Count*eps+eps))))*eps;
until i > Count
но это полный аналог примера