Ejemplo de Algoritmo para convertir un numero decimal en binario en PseInt

Proceso DecimalABinario

Definir decimal como real;
Definir gran_binario como entero;
Definir long como entero;
Definir binario como entero;
Definir indice como entero;
Definir digito como entero;
Definir resultado como cadena;
Definir i como entero;
Definir digitocad como cadena;

Escribir "Escriba un numero en deciml para convertirlo en binario: ";
Leer decimal;
gran_binario <- 1;
long <- 0;
Mientras decimal >= gran_binario Hacer
gran_binario <- gran_binario*2;
long <- long + 1;
FinMientras
indice <- 0;

Dimension binario [long];

Mientras decimal >= 1 Hacer
digito <- decimal % 2;
binario[indice] <- digito;
decimal <- decimal - digito;
decimal <- decimal / 2;
indice <- indice + 1;
FinMientras

resultado <- "";

Para i <- 0 Hasta long  - 1 Hacer
digitocad <- binario[i];
resultado <- digitocad + resultado;
FinPara

Escribir "El numero binario es: ",resultado;
FinProceso