Ayuda - Recursividad

[davitcito]

Buenas, me gustaría ver si me podrian ayudar o dar algun consejo de como podría escribir un algoritmo recursivo para cambiar a un numero decimal a una número binario (se q se pasa dividiendo sucesivamente entre 2, pero no tengo muy en claro como hacerlo recursivamente).

Gracias.

[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