parcial.pas

   1 PROGRAM DecABin;\r
   2 \r
   3 VAR\r
   4    binario: string[255];\r
   5    numero: integer;\r
   6    resto: integer;\r
   7    result: integer;\r
   8    i: integer;\r
   9 \r
  10 BEGIN\r
  11      write('Ingrese el numero entero decimal a convertir (-1 termina): ');\r
  12      readln(numero);\r
  13      WHILE numero >= 0 DO\r
  14            BEGIN\r
  15                 binario := '';\r
  16                 resto := numero MOD 2;\r
  17                 result := numero DIV 2;\r
  18                 WHILE result > 1 DO\r
  19                   BEGIN\r
  20                        IF resto = 1 THEN binario := binario + '1'\r
  21                           ELSE binario := binario + '0';\r
  22                        resto := result MOD 2;\r
  23                        result := result DIV 2;\r
  24                   END;\r
  25                 IF resto = 1 THEN binario := binario + '1'\r
  26                    ELSE binario := binario + '0';\r
  27                 IF result = 1 THEN binario := binario + '1'\r
  28                    ELSE binario := binario + '0';\r
  29                 writeln('');\r
  30                 write('El numero es: ');\r
  31                 FOR i := length(binario) DOWNTO 1 DO write(binario[i]);\r
  32                 writeln('');\r
  33                 writeln('');\r
  34                 writeln('');\r
  35                 write('Ingrese otro numero (-1 para terminar): ');\r
  36                 readln(numero);\r
  37            END;\r
  38      writeln('');\r
  39      writeln('Fin del Programa.');\r
  40 END.\r