Приветствую Вас Гость | RSS

Delphi заготовки

Воскресенье, 12.05.2024, 12:47
Главная » 2012 » Апрель » 23 » Пример расчета функций sinh,CosH,TanH Delphi/Pascal
14:29
Пример расчета функций sinh,CosH,TanH Delphi/Pascal
расчет некоторых функций Pascal
формулы расчета



Function sinh(x:real):real;
begin
   sinh:=(exp(x)-exp(x*(-1)))/2;
end;

Function cosh(x:real):real;
begin
   cosh:=(exp(x)+exp(x*(-1)))/2;
end;

Function tanh(x:real):real;
begin
   tanh:=(exp(x)-exp(x*(-1)))/(exp(x)+exp(x*(-1)));
end;

изображение с сайта Wiki


Просмотров: 2541 | Добавил: NetSoftWare | Теги: tanh, sinh, cosh | Рейтинг: 4.0/1
Всего комментариев: 0
Имя *:
Email *:
Код *: