Очень нужно передать локально определенную функцию как параметр:
Код:
type Func = function(x:real):real;
procedure SIMPSON(A, B, EPS: real; INTEG: Func; var I1: Integer);
begin;
end;
function FB(i: integer): real;
function INTEG(x: real): real; far;
begin
INTEG:= x*i;
end;
begin
SIMPSON(0, 1, 0.1, INTEG, i);
end;
begin
end.
этот код не работает! есть ли выход? может, использовать какие-то доп. директивы компилятора, чтобы можно было передать функцию?