Тема: Помогите пожалуйста сделать лабу)
Показать сообщение отдельно
  #6  
Старый 03.07.2012, 19:39
ChinYan ChinYan вне форума
Тыкаю клавиши
  
Регистрация: 13.07.2009
Сообщения: 804
Версия Delphi:
Репутация: 48633
По умолчанию
Вот функция для ch

Код:
function ch(x: Real): Real;
begin
  Result:= (Exp(x)+Exp(-x))/2;
end;
Ответить с цитированием