[Макс555]

Создать функцию вычисления гиперболического косинуса , которая возвращает результат через собственное имя. Вычислить при помощи функции значение выражения:

[ChinYan]

Мало того, что пришли клянчить ответ, так еще и на стороннем форуме просите регаца

[Макс555]

Я не пришел клянчить ответ...Я попросил помощи!
Я не предлагаю "регаца" на других форумах. Мною таких слов написано не было!

[Pyro]

а есть возможность помочь вам, не выкладывая исходного кода?

[Макс555]

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

а есть возможность помочь вам, не выкладывая исходного кода?

Ну скажите тогда, хоть с чего начать?=\

[ChinYan]

Вот функция для ch

Код:

function ch(x: Real): Real;
begin
  Result:= (Exp(x)+Exp(-x))/2;
end; 

[Макс555]

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

Вот функция для ch

Код:

function ch(x: Real): Real;
begin
  Result:= (Exp(x)+Exp(-x))/2;
end; 

спасибо,а вот этот момент - возвращает результат через собственное имя
это как?

[lmikle]

Сообщение от Макс555

спасибо,а вот этот момент - возвращает результат через собственное имя
это как?

Это должно быть тогда вот так:

Код:

function ch(x: Double): Double;
begin
  ch := (Exp(x)+Exp(-x))/2;
end;

И, кстати, лучше использовать тип Double или Extended.