А в чем проблема? Решить это уравнение? Каким методом, есть разные численные методы. Если интересно, как
записать, то вот:
(для использования функций Power и IntPower в
uses добавить модуль Math)
Код:
function Func(X, a: Double): Double;
begin
Result:= Exp(-X*a)+ Cos(a*Power(x, 8/7)+1/101*Ln(Abs(a*X))+a*IntPower(x, 4)+a);
end;