Buenas!
Te explico:
Código Delphi
[-]
If Z.ArgumentoRadianes>(2*Pi) then
Repeat
Z.ArgumentoRadianes-(2*Pi);
until (Z.ArgumentoRadianes<=(2*Pi));
Z.ArgumentoRadiantes es una variable, y como tal para asignarle un valor tenes que usar la asignaciíon
:=.
Z.ArgumentoRadianes:=Z.ArgumentoRadianes-(2*Pi);
El siguiente:
Código Delphi
[-]
Function Ln(a:TComplejo):TComplejo; overload;
Var
Z:TComplejo;
Begin
Z.Modulo:=ln(a.Modulo); Z.ArgumentoRadianes:=a.ArgumentoRadianes;
Z.ArgumentoGrados:=RadToDeg(Z.ArgumentoRadianes);
CalcularRectangular(Z);
Result:=Z;
end;
Tu función acepta argumentos de tipo TComplejo, y en
Z.Modulo:=ln(a.Modulo); le estás pasando la variable
Modulo que es un extended. Deberías pasarle el número complejo (
a).
Saludos!!!!