-
Lenguaje
Pascal
-
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
25
26
27
28
29
30
31
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
29
30
31
program binario;
uses crt;
var numero, bit : longint;
var tecla : char;
begin
write ('Ingrese un n'#163'mero entero positivo: ');
readln (numero);
write (#10#13, numero, ' = ');
if numero = 0 then
write (0);
bit := 1;
while bit <= numero do
bit := bit * 2;
bit := bit div 2;
while bit>0 do
begin
if numero >= bit then
begin
write (1);
numero := numero - bit;
end
else
write (0);
bit := bit div 2;
end;
write ('b'#10#13#10#13'Presione una tecla para terminar . . . ');
tecla := readkey;
end.
uses crt;
var numero, bit : longint;
var tecla : char;
begin
write ('Ingrese un n'#163'mero entero positivo: ');
readln (numero);
write (#10#13, numero, ' = ');
if numero = 0 then
write (0);
bit := 1;
while bit <= numero do
bit := bit * 2;
bit := bit div 2;
while bit>0 do
begin
if numero >= bit then
begin
write (1);
numero := numero - bit;
end
else
write (0);
bit := bit div 2;
end;
write ('b'#10#13#10#13'Presione una tecla para terminar . . . ');
tecla := readkey;
end.