elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Batch] Convertidor decimal a binarios y binarios a decimal bien simple
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Batch] Convertidor decimal a binarios y binarios a decimal bien simple  (Leído 1,763 veces)
bITEBUG

Desconectado Desconectado

Mensajes: 26


Ver Perfil
[Batch] Convertidor decimal a binarios y binarios a decimal bien simple
« en: 15 Junio 2011, 06:13 am »

Código
  1. @echo off
  2. if %1==/r goto reciproco
  3.  
  4. :DIRECTO
  5. :Primitiva
  6. set count=
  7. set binary=
  8.  
  9. :Aritmetica
  10. set binary=%binary%+I
  11. set /a count=%count%+1
  12. :Axiomatica
  13. set binary=%binary:O+I=I%
  14. set binary=%binary:I+I=+IO%
  15.  
  16. :Logica
  17. if not %binary:O+I=%==%binary% goto Axiomatica
  18. if not %binary:I+I=%==%binary% goto Axiomatica
  19.  
  20. :Lenguaje formal
  21. set binary=%binary:+=%
  22.  
  23. :Recursion
  24. if not %count%==%1 goto aritmetica
  25.  
  26. :Tesis
  27. set binary=%binary:O=0%
  28. set binary=%binary:I=1%
  29. echo %binary%
  30.  
  31. goto credits
  32.  
  33. :RECIPROCO
  34. :_Primitiva
  35. set count=
  36. set binary=%1
  37.  
  38. :_Hipotesis
  39. set binary=%binary:0=O%
  40. set binary=%binary:1=I%
  41.  
  42. :_Aritmetica
  43. set binary=%binary%-I
  44.  
  45.  
  46. :_Axiomatica
  47. set binary=%binary:O-I=-II%
  48. set binary=%binary:I-I=O%
  49.  
  50. :_Logica
  51.  
  52. if not %binary:O-I=%==%binary% goto _Axiomatica
  53. if not %binary:I-I=%==%binary% goto _Axiomatica
  54. set /a count=%count%+1
  55. :_Lenguaje formal
  56. set binary=%binary:-=%
  57.  
  58. :_Recursion
  59. if not %binary:I=%==%binary% goto _aritmetica
  60.  
  61. :_Tesis
  62.  
  63.  
  64. echo %count%
  65. goto credits
  66.  
  67.  
  68.  
  69. :credits


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines