Интегрирование методом ... прямоугольников, ... каких именно? Опции

[Jill]

Читала FAQ, нашла код. Интегрирование методом каких именно проямоугольников? Помогите разобраться!
Мне необходимы все - правые, левые и средние. Подскажите, плз, где собака порылась (в смысле, что где менять, дабы изменить на "нужные" прямоугольники).
Пожалуйста!!!

[Romtek]

Попробуй так:

Код

function FuncX (x: Extended): Extended;
begin
  FuncX := Sin(x) + 0.25
end;

Procedure SimpleIter (F: func; a, Eps: extended);
var
  PriblN, PriblH: extended;
  n: integer;
begin
  n := 0;
  PriblH := a;
  repeat
   PriblN := PriblH;
   PriblH := F (PriblN);
   Inc (n);
  until Abs (PriblN - PriblH) < eps;
  WriteLn ('x =', PriblH : 10 : 5);
  WriteLn ('Количество итераций = ', n);
end;

...
SimpleIter (FuncX , 1, Eps);

Заставить работать с функцией F2 не получилось. Всё равно выдаёт ошибку, даже во Free Pascal.