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