[gekakos]

Очень нужно передать локально определенную функцию как параметр:

Код:

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. 

этот код не работает! есть ли выход? может, использовать какие-то доп. директивы компилятора, чтобы можно было передать функцию?