Как сделать, чтобы вместо sqrt(t) можно было произвольную функцию

← →
Strij (2003-03-08 09:08) [0]

Вот фрагмент программы:
..............
procedure TForm1.raschetClick(Sender: TObject);
type functy = function(x:real):real;
var i,x,vvod: integer;

{$F+}
function koren(t:real):real;
begin
koren:=sqrt(t);

end;

{$F-}

begin

x:=25;
rez.value:=koren(x);

end;
.............

Как сделать, чтобы вместо sqrt(t) можно было произвольную функцию пихать из программы?

Это, что, надо анализатор, например, string`овой переменной делать с перегоном в ... во что?

Спасибо за ответ.
Strij

← →
theodor_iv © (2003-03-08 09:28) [1]

function koren(f:functy; t:real):real;
begin
koren:=f(t);
end;

Как сделать, чтобы вместо sqrt(t) можно было произвольную функцию Найти похожие ветки