Recuperatorio.pas

   1 program recup;\r
   2 \r
   3 function pot2( exp: integer ): integer;\r
   4 \r
   5   var\r
   6      j, resultado: integer;\r
   7 \r
   8   begin\r
   9        resultado := 1;\r
  10        if exp > 0 then for j := 1 to exp do resultado := resultado * 2;\r
  11        pot2 := resultado;\r
  12   end;\r
  13 \r
  14 var\r
  15    num, n: string[255];\r
  16    i, dec, tam: integer;\r
  17 \r
  18 begin\r
  19      write( 'Escriba un numero binario (negativo para terminar): ' );\r
  20      readln( num );\r
  21      while num[1] <> '-' do\r
  22        begin\r
  23             tam := length( num );\r
  24             n := '';\r
  25             dec := 0;\r
  26             for i := tam downto 1 do\r
  27                 n[tam-i+1] := num[i];\r
  28             for i := 1 to tam do\r
  29                 if n[i] = '1' then dec := dec + pot2( i - 1 );\r
  30             writeln( 'El numero en base 10 es: ', dec: 1 );\r
  31             writeln;\r
  32             write( 'Ingrese otro (negativo para terminar): ');\r
  33             readln( num );\r
  34        end;\r
  35      writeln( 'Fin del Programa.' );\r
  36 end.\r