Показать сообщение отдельно
  #7  
Старый 28.12.2012, 11:17
_SLY_ _SLY_ вне форума
Прохожий
 
Регистрация: 15.01.2009
Сообщения: 6
Версия Delphi: array[7..'XE2']
Репутация: 10
По умолчанию

Тогда вот. не забудь, если задание не теоретическое uses math;

Код:
function f(const x,a:real):real;
begin
    if  x<=0 then
        result := sqrt(abs(x-1))-a
    else if x>a then
        Power(Sin(2*a*x+pi),3)
    else
        result := (power(x,4) / 7) + a;

    end;
Ответить с цитированием