Написание функции суммирования псевдовектора Опции

[Nubie]

Еще одна задачка в которой нужна ваша помощь... Буду очень благодарен...

[volvo]

Nubie, в чем проблема?

Type
  TVector = Array[1 .. n] Of Real;
  FType = Function(X: Real): Real;

Function Func(x: Real): Real; Far;
Begin
  ... { То, что тебе надо }
End;

{ Вот эта функция возвращает сумму... }
Function VectorOps(Vec: TVector; F: FType): Real;
Var
  s: Real;
  i: Integer;
Begin
  s := 0;
  For i := 1 to n Do s := s + F(Vec[i]);
End;

[Nubie]

Проблема в том что надо на turbo...

[volvo]

А то, что я написал, по-твоему, на чем? На Visual C++?

[GoodWind]

Volvo чесс говоря не уверен, прокатит лм в ТП это:

Код

FType = Function(X: Real): Real;

[volvo]

Про "Процедурные типы" в FAQ-е читал?