Показать сообщение отдельно
  #2  
Старый 08.03.2011, 19:49
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А че-то я не вьехал в чем проблема-то.
Обычная функция, просто ее надо записать с использованием соотв. вызовов.

Что-то типа:
Код:
function f(c, d, x : Integer) : Double;
begin
  // c^-3 = 1/(c^3)
  Result := ((d+2/(c*c*c))/(12*cos(1/sqr(x))+tg(d*x)))*ln(x) - sqr(cos(x));
end;

// Вызов
ShowMessage('f(2,-2,32)=')+FloatToStr(f(2,-2,32)));

Если со скобками не напутал, то как-то так.
Ответить с цитированием