Нужно реализовать, например, след. консткукцию:
Код:
type TFunc=function(t:real):real;
function derive(x:TFunc):TFunc;
const h=0.001;
function xd(t:real):real;
begin
result:=result;
result:=(x(t+h)-x(t))/h;
end;
begin
result:=xd; {Ошибка: Local procedure/function 'xd' assigned to procedure variable}
end;
Важен результат именно типа TFunc.
Важна реализация именно в Delphi 7.
Помогите пожалуйста корректно задать функцию.