[nikolai1324]

Нужно реализовать, например, след. консткукцию:

Код:

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.
Помогите пожалуйста корректно задать функцию.

[Konrad]

Хоть сам понял что написал?)
Тебе рекурсию нужно сделать?

[nikolai1324]

Сообщение от Konrad

Хоть сам понял что написал?)
Тебе рекурсию нужно сделать?

Не рекурсию, а функцию (от заданной функции) возвращающую функцию (а не её значение в конкретной точке) .
function derive(x:TFunc):TFunc;

[lmikle]

А через классы не проще сделать?
Хотя и через процедурный тип можно сделать. Только нельзя делать указатель на локальную функцию. Функция должна быть глобальной.
Но я все-же рекомендую делать через классы.

[Pyro]

чёто подобное через классы так делал:

PHP код:

type
  TProc = class
  public
    procedure call(sender: TObject); virtual; abstract;
  end;

  NewX = class(TProc)
  private
    a,b,c: integer;
  public
    constructor Create(_a,_b,_c: integer);
    procedure call(sender: TObject); override;
  end;