• Lenguaje

    Pascal

  • Descripción

    Convierte un número entero positivo, menor a 257 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
25
26
27
28
program EnteroMenorA257ABinario;
uses crt;

var bit_0, bit_1, bit_2, bit_3, bit_4 : integer;
var bit_5, bit_6, bit_7, numero : integer;
begin
    write ('Ingresa el valor de numero: ');
    readln (numero);
    bit_0 := (numero mod 256-numero mod 128) div 128;
    bit_1 := (numero mod 128-numero mod 64) div 62;
    bit_2 := (numero mod 64-numero mod 32) div 32;
    bit_3 := (numero mod 32-numero mod 16) div 16;
    bit_4 := (numero mod 16-numero mod 8) div 8;
    bit_5 := (numero mod 8-numero mod 4) div 4;
    bit_6 := (numero mod 4-numero mod 2) div 2;
    bit_7 := numero mod 2;
    writeln ('Valor de bit 0: ', bit_0);
    writeln ('Valor de bit 1: ', bit_1);
    writeln ('Valor de bit 2: ', bit_2);
    writeln ('Valor de bit 3: ', bit_3);
    writeln ('Valor de bit 4: ', bit_4);
    writeln ('Valor de bit 5: ', bit_5);
    writeln ('Valor de bit 6: ', bit_6);
    writeln ('Valor de bit 7: ', bit_7);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.