Цитата:
|
Училка сказала, что в решении задачи должен обязательно использоваться цикл repeat
|
Код:
repeat
...
until abs(b - a) < eps
вместо
Код:
Count:=Round(Abs(b-a)/eps);
for i:=1 to Count do
begin
Result:=Result + (Abs(b-a) + Abs(Min(Func(a+Count*eps), Func(a+Count*eps+eps))))*eps;
end;
Вроде так
