Запись формулы в Delphi

[djdron]

подскажите как записать данную формулу в Delphi

[pray_driver]

Сообщение от djdron

подскажите как записать данную формулу в Delphi

exp(ln(Sqr(Sin(a*x)) + Sqr(Sqr(Cos(a*x))))/3)

[Niro]

вроде бы так

var rezult,kyb;
begin
rezult:=sqr(sin(a*x))+sqr(sqr(cos(a*x));
kyb:=exp(1/3*ln(rezult));
end;

Но в дельфи наверняка есть своя функция для извлечения корня третьей степени

[Dwanx]

Программа выдает сбой, преподаватель сказал, что это связано с тем, что у меня под логарифмом отрицательное значение. Как исправить данную оплошность?

Summ:=Summ + (Exp(Ln(-1)*p)*Exp(Ln(cos(x))*2*p)*Exp(Ln(x) *2*p))/dFact(2*p)

[cool3401]

Помогите перевести формулу для delphi