• 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
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