[1o1man]

суть такова: в поле тЕдит вводится какая-нибудь формула, и надо её скопировать всю, чтобы передать в процедуру для подсчета

Код:

function PodIntFunc( k : integer; x : extended ) : extended;
begin

  result := FuncFi(x, Mu[k+1]) *  exp( - 4 * ( x - 1 ) * ( x - 1 ) );
end;

lmikle: пользукмся тегами! при повторном нарушении буду карать!!!

вот вместо exp( - 4 * ( x - 1 ) * ( x - 1 ) чтобы можно было любую функцию вводить

как реализовать?