[nikolai1324]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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;