Ayuda - Recursividad

[roman]

¿Qué tal algo así?

Código Delphi [-]
function DecToBin(D: Integer): String;
begin
  if D > 0
    then Result := DecToBin(D div 2) + IntToStr(D mod 2)
    else Result := '';
end;

// Saludos

[davitcito]

hola, gracias por el dato, pero lo q no me queda muy en claro es cual vendria a ser el caso base??

[roman]

Empezado por davitcito

viene a ser el caso base?

Así es.

// Saludos

[davitcito]

Gracias Roman, hice la corrida de escritorio y todo bien, sale perfecto. Saludos. . Otra, cosilla, será posible con una funcion similar pasar de decimal a hexadecimal?? Voy a intentar

[roman]

Si te contesto para hexadecimal me vas a preguntar para octal así que mejor te propongo esta:

Código Delphi [-]
function DecToBaseN(D, N: Integer): String;
const
  Digits = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';

begin
  if D > 0
    then Result := DecToBaseN(D div N, N) + Digits[(D mod N) + 1]
    else Result := '';
end;

que convierte de decimal a cualquier base (al menos hasta base 36)

// Saludos

[Mick]

Solo comentar que no tiene sentido implementar ese tipo
de algoritmo en forma recursiva, esos algoritmos
se implementan siempre de forma iteractiva ya que consume
menos recursos/memoria y se ejecutan mas rapido.

Saludos

[jachguate]

Empezado por Mick

Solo comentar que no tiene sentido implementar ese tipo
de algoritmo en forma recursiva

Cierto, a menos que estes aprendiendo como funciona la recursividad... en ese caso son un muy buen ejemplo...

Además, con la potencia de las máquinas de hoy y suponiendo que se ganaría apenas un par de milisegundos, para mi es preferible la legibilidad y simplicidad de la solución recursiva.

Hasta luego.

[roman]

Empezado por Mick

Solo comentar que no tiene sentido implementar ese tipo
de algoritmo en forma recursiva

¡Qué exigentes!

Código Delphi [-]
function DecToBin2(D: Integer): String;
begin
  Result := '';

  while D > 0 do
  begin
    Result := IntToStr(D mod 2) + Result;
    D := D div 2;
  end;
end;

// Saludos