Funcao - potencia e tan

function Potencia(const Base, Expoente: Double) : Double;

begin

       if Base = 0 then Result := 0

  else if Base < 0 then Result := Exp(Ln(-Base)*Expoente)

  else Result := Exp(Ln(Base)*Expoente);

end;

function Tan(const x : Double): Double;

begin

  Result := Sin(x)/Cos(x);

end;