Ver Mensaje Individual
  #1  
Antiguo 08-03-2010
ioco ioco is offline
Miembro
 
Registrado: ene 2010
Posts: 42
Reputación: 0
ioco Va por buen camino
Una serie de dudas con unos procedures y functions elementales

Buenas, aquí vengo a traer de nuevo más problemas de novato ¬¬'

Lo que últimamente me ocupa es una unit para poder usarla en futuras aplicaciones de cálculo con números complejos.

Tengo varias dudas al respecto:
  • No entiendo porqué me dice que la expresión es ilegal ya que no veo nada fuera de lo normal a cómo siempre las he puesto ¿he olvidado poner algo?
Código Delphi [-]
                    If Z.ArgumentoRadianes>(2*Pi) then
                       Repeat
                             Z.ArgumentoRadianes-(2*Pi);
                       until (Z.ArgumentoRadianes<=(2*Pi));

He probado por si fuera cosa de paréntesis o algo y no encuentro manera :S
  • Estoy con mi primera función con "overload" y me está dando problemas ya que se trata de sacar el Ln de un número complejo, pero dentro se recurre a ella misma y lo que quiero es que llame a la Ln que todos tenemos... ¿sé que podría solucionarlo cambiando el nombre a la función y quedarme tan ancho, pero me gustaría aprender si hay alguna otra manera :
Código Delphi [-]
      Function Ln(a:TComplejo):TComplejo; overload;
               Var
                  Z:TComplejo;
               Begin
                    Z.Modulo:=ln(a.Modulo); //<-Incompatible type for arg no1: Got Extended, expected TCOmplejo
                    Z.ArgumentoRadianes:=a.ArgumentoRadianes;
                    Z.ArgumentoGrados:=RadToDeg(Z.ArgumentoRadianes);
                    CalcularRectangular(Z);
                    Result:=Z;
               end;

Un saludo
Responder Con Cita