Program Pasar_numero_decimal_a_Binario;

 

Uses Crt;

 

Var

num, num0, num1, num2, num3, num4, num5, num6, num7, num8: Integer;

b0, b1, b2, b3, b4, b5, b6, b7: String;

 

Begin

Clrscr;

 

{Con Uses Crt; provee control sobre comandos del teclado, pantalla, sonidos}

{Con ClrScr; ("Clear Screen" se borra la pantalla. Similar al comando Cls de DOS.}

{Con Delay(1000); se fija un tiempo de espera, en milisegundos.}

 

{div devuelve como resultado el cociente de la div entera entre dos numeros.}

{numero := 5 div 2;   {asigna 2 a la variable numero}

{mod devuelve como resultado el resto de la div entera entre dos numeros.}

{numero := 5 mod 2;   {asigna 1 a la variable numero}

 

b0:= '0';

b1:= '0';

b2:= '0';

b3:= '0';

b4:= '0';

b5:= '0';

b6:= '0';

b7:= '0';

 

Write('Ingrese el numero decimal: ');Read(num);

 

num0:= (num mod 128);

If (num0 >= 0) and (num0 <> num)  then

Begin

b0:='1';

End;

 

num1:= (num0 mod 64);

If (num1 >= 0) and (num1 <> num0)  then

Begin

b1:='1';

End;

 

num2:= (num1 mod 32);

If (num2 >= 0) and (num2 <> num1)  then

Begin

b2:='1';

End;

 

num3:= (num2 mod 16);

If (num3 >= 0) and (num3 <> num2)  then

Begin

b3:='1';

End;

 

num4:= (num3 mod 8);

If (num4 >= 0) and (num4 <> num3)  then

Begin

b4:='1';

End;

 

num5:= (num4 mod 4);

If (num5 >= 0) and (num5 <> num4)  then

Begin

b5:='1';

End;

 

num6:= (num5 mod 2);

If (num6 >= 0) and (num6 <> num5)  then

Begin

b6:='1';

End;

 

num7:= (num6 mod 1);

If (num7 >= 0) and (num7 <> num6)  then

Begin

b7:='1';

End;

 

Writeln('');

Writeln('----------------------------------------');

Writeln('        El numero BINARIO es: ');

Writeln('');

Writeln('              ' ,b0,b1,b2,b3,b4,b5,b6,b7);

Writeln('----------------------------------------');

Writeln('');

Writeln('Por Michel Mosse - 1 de Julio del 2000.');

Delay(4000);

End.