Proceso ComplementoA1
Definir binario como entero;
Definir res como cadena;
Definir d como cadena;
Definir numero como entero;
Definir gran_binario como entero;
Definir long como entero;
Definir decimal como entero;
Definir digito como entero;
Definir indice como entero;
Definir i como Entero;
Escribir "Ingrese un numero decimal al cual calcular el complento a 1 en binario: ";
Leer numero;
long <- 0;
gran_binario <- 1;
Mientras numero >= gran_binario Hacer
gran_binario <- gran_binario*2;
long <- long + 1;
FinMientras
Dimension binario [long];
decimal <- numero;
indice <- 0;
Mientras decimal >= 1 Hacer
digito <- decimal % 2;
binario[indice] <- digito;
decimal <- decimal - digito;
decimal <- decimal / 2;
indice <- indice + 1;
FinMientras
gran_binario <- 1;
//Complemento A 1
res <- "";
Para i<- 0 Hasta long - 1 Con Paso 1 Hacer
binario[i] <- (binario[i] + 1) % 2;
d <- binario[i];
res <- d + res;
FinPara
Escribir "El complemento a 1 es: ",res;
FinProceso
No hay comentarios:
Publicar un comentario