-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Convierte un número entero positivo a sistema binario
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Algoritmo ProcesoBinario
Escribir Sin Saltar "Ingrese un número entero positivo:";
Leer numero;
Escribir Sin Saltar numero, " = ";
Si numero=0 Entonces
Escribir Sin Saltar 0;
FinSi
bit <- 1;
Mientras bit <= numero Hacer
bit <- bit * 2;
FinMientras
bit <- bit / 2;
Mientras bit >= 1 Hacer
Si numero >= bit Entonces
Escribir Sin Saltar 1;
numero <- numero - bit;
SiNo
Escribir Sin Saltar 0;
FinSi
bit <- bit / 2;
FinMientras
Escribir "b";
FinAlgoritmo
Escribir Sin Saltar "Ingrese un número entero positivo:";
Leer numero;
Escribir Sin Saltar numero, " = ";
Si numero=0 Entonces
Escribir Sin Saltar 0;
FinSi
bit <- 1;
Mientras bit <= numero Hacer
bit <- bit * 2;
FinMientras
bit <- bit / 2;
Mientras bit >= 1 Hacer
Si numero >= bit Entonces
Escribir Sin Saltar 1;
numero <- numero - bit;
SiNo
Escribir Sin Saltar 0;
FinSi
bit <- bit / 2;
FinMientras
Escribir "b";
FinAlgoritmo