Procedure TComplejo.Division(n:TComplejo); var aux:double; PR,PI:double; Begin if (n.ObtReal=0) and (n.ObtImag=0) then raise EdivByZero.Create('Error division por cero'); aux:=sqr(n.ObtReal)+sqr(n.ObtImag); PR:=(((ObtReal*n.ObtReal)+(ObtImag*n.ObtImag))/aux); PI:=(((ObtImag*n.ObtReal)-(ObtReal*n.ObtImag))/aux); PonReal(PR); PonImag(PI); End;