Формулы в Delphi

[ViNcHeStEr]

скажите пожалуйста как записать вот эту формулу в Delphi?
наработки:
a:=exp(y*ln(abs(x)*ln(1/3)))+exp(cos(y)*ln(3));
b:=abs(x-y)*(1+sqr(sin(z))/sqrt(x+y));
c:=exp(abs(x-y))+(x/2);
u:=(b/c)*a;

[Kostia]

Уф.. вот что получилось:

uses math.
...
const
  x=6.251; y=0.827; z=25.001; e=2.71828;
...
var
  b:real;
begin
  b:=power(y,power(abs(x),1/3))+power(cos(y),3)*(abs(x-y)*(1+sqr(sin(z))/sqrt(x+y)))/
                                                                                      (power(e,abs(x-y))+x/2);
end;

[ViNcHeStEr]

Спасибо! Всё работает.

[ViNcHeStEr]

Скажите пожалуйста, что такое sh(x) и как это записать в Delphi?

[_Dmitry]

Гиперболический синус.
Модуль Math, функция sinh(x)

[ViNcHeStEr]

Спасибо! А где можно посмотреть все функции модуля Math?

[_Dmitry]

Издеваетесь? Конечно же в файле модуля. Открываете файл Math.pas в любом текстовом редакторе и смотрите. Описание функций в Help-e Delphi.

[Dwanx]

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

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

[type_Oleg]

Dwanx, а зачем городить степени через логарифмы. Есть же функция Power в модуле Math.
Например ... Power(-1,p) // -1 в степени p.
А вообще, лучше постараться следующий член ряда вычислять через предыдущий.

PS. Кстати, осторожнее с факториалами. Факториал всего лишь от 13 уже больше, чем максимальное число типа Integer.

[s-andriano]

Как вариант возводить квадрат в степень k.