[Archer666]

Код:

function Fxn(X,n:Real):real; //возвращает X^n
  begin
   if X=0
    then Fxn:=0
    else if n=0
        then Fxn:=1
        else if X<0
        then
              begin
                      Label1.Caption:='При отрицательном Х вычисляется по абсолютному значению!'
                      Fxn:=exp(n*ln(abs(X)))
              end
                else Fxn:=exp(n*ln(X))
   end;

ругается на "unknown identifier" не могу разобраться как написать, помогите пожалуйста...

[angvelem]

Код:

function Fxn(X, N : Real) : Real; //возвращает X^n   
begin
  Result := 0;

  if X = 0 then
    Exit
  else if N = 0 then
  begin
    Result := 1;
    Exit;
  end
  else if X < 0 then
  begin
    Form1.Label1.Caption := 'При отрицательном Х вычисляется по абсолютному значению!';
    Result := Exp(N * Ln(abs(X)));
  end
  else
    Result := Exp(N * Ln(X));
end;

[Archer666]

отлично, благодарю