Ejemplo de Algoritmo para el calculo del complemento a 2 en PseInt

Proceso ComplementoA2

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;
Definir nocero como logico;
Definir contador como entero;
Definir da como entero;
Escribir "Ingrese  un numero decimal al cual calcular el complento a 2 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;

nocero <- verdadero;
contador <- long - 1;

res <- "";


Para i<- 0 Hasta long - 1 Con Paso 1 Hacer
binario[i] <- (binario[i] + 1) % 2;

FinPara

Para i<- 0 Hasta long - 1 Con Paso 1 Hacer
d <- binario[i];
res <- d + res;
FinPara


Para i<- 0 Hasta long - 1 Con Paso 1 Hacer
da <-  binario[i];
binario[i] <- (binario[i] + 1) % 2;
Si da = 0 Entonces
i <- i + 1000000;
FinSi
FinPara

//Complemento A 2
res <- "";
Para i<- 0 Hasta long - 1 Con Paso 1 Hacer
d <- binario[i];
res <- d + res;
FinPara

Escribir "El complemento a 2 es: ",res;
FinProceso