[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;