[lmikle]

Готовое - никто. Причем не от жадности, а потому что нефиг. Либо в раздел "Работа", либо выкладываешь свои наработки и спрашиваешь КОНКРЕТНО что не получается.

ЗЫ. Сама вычислялка будет примерно такая:

Код:

function F(X, A : Extended) : Extended;
begin
  If X > A
    Then Result := sin(X)*A*X/(sqr(X) + A)
    Else Result := A*X*cos(X);
end;