martes, 24 de enero de 2017

Código de programa en Turbo pascal para convertir un numero de decimal a binario. (Por linea de comando)

PROGRAM DEBI;

USES CRT;

VAR

A,B,X,Y,I,P:INTEGER;


BEGIN

CLRSCR;

       WRITELN ('ESCRIBA EL NUMERO QUE DESEA PASAR');
       WRITELN ('DE DECIMAL A BINARIO');
       READLN (A);

           IF A=1 THEN
               WRITELN ('1')
           ELSE
              BEGIN
                 IF A=2 THEN
                     WRITELN ('10')
           ELSE
              BEGIN
                  P:=0;

                  WHILE A<>0 DO

                        BEGIN
                         X:= A DIV 2;
                         Y:=A MOD 2;

                         FOR I:= P DOWNTO 1 DO

                              WRITE (Y);
                              P:=P+1;
                              A:=X;
                         END;
                  END;
        END;

END.

No hay comentarios :