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

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Division con decimales (batch) ---- by pablo		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Division con decimales (batch) ---- by pablo  (Leído 9,388 veces)
kraszic

Desconectado Desconectado

Mensajes: 277


Ver Perfil
Division con decimales (batch) ---- by pablo
« en: 17 Octubre 2007, 19:59 pm »
Bueno, pues hace bastante tiempo q queria hacer un code asi porq tngo algunos programas para calcular formulas y el resultado en batch siempre es un numero entero cundo haces una division.
Pues bien, en este batch e utilizado el algoritmo de la division para crear un programa q saque asta 3 cifras decimales en una division y te diga si el numero tiene mas decimales o acaba ahi.

Aqui dejo el code:
Código
  1. @echo off
  2. title DIVISION CON DECIMALES-----coded by kraszic
  3.  
  4. echo Calcula una division hasta con numeros decimales
  8. set /p did=Introduce el dividendo: 
  9. set /p div=Introduce el divisor: 
  10.  
  11. set /a divi=%did%/%div%
  12. set /a mult=%divi%*%div%
  13. set /a resi=%did%-%mult%
  14.  
  15. if %resi%==0 goto exacto
  16.  
  17. set /a divno=%resi%0/%div%
  18. set /a mult1=%divno%*%div%
  19. set /a resi1=%resi%0-%mult1%
  20.  
  21. if %resi1%==0 goto exacto1
  22.  
  23. set /a divno1=%resi1%0/%div%
  24. set /a mult2=%divno1%*%div%
  25. set /a resi2=%resi1%0-%mult2%
  26.  
  27. if %resi2%==0 goto exacto2
  28.  
  29. set /a divno2=%resi2%0/%div%
  30. set /a mult3=%divno2%*%div%
  31. set /a resi3=%resi2%0-%mult3%
  32.  
  33. if %resi3%==0 goto exacto3
  34. goto noexacto
  35.  
  36. :exacto
  38. echo El resultado de la division es %divi%
  39. pause>nul
  41.  
  42. :exacto1
  44. echo El resultado de la division es %divi%.%divno%
  45. pause>nul
  47.  
  48. :exacto2
  50. echo El resultado de la division es %divi%.%divno%%divno1%
  51. pause>nul
  53.  
  54. :exacto3
  56. echo El resultado de la division es %divi%.%divno%%divno1%%divno2%
  57. pause>nul
  59.  
  60. :noexacto
  62. echo El resultado de la division es %divi%.%divno%%divno1%%divno2%...
  63. pause>nul


Bueno, yo creo q es muy util aplicar este code en nuestros programas ya q tenemos un valor mas aproximado del numero, ya q si hay q dividir el numero entre divisores grandes batch resulta un desastre...
Lo malo, es q no se puede operar con esto; hombre, cabria la posibilidad de realizar sumas y restas y multiplicaciones a partir de una division pero seria un poco complicado, de todos modos trabajare para intentar hacer esto, quien este interesado q se ponga en contacto conmigo.

saludos
« Última modificación: 21 Octubre 2007, 11:41 am por kraszic » En línea
nhaalclkiemr


Desconectado Desconectado

Mensajes: 1.678


Máximo exponente 9DB9F1AEED2FADBDE 997BBE20FEDA92


Ver Perfil WWW
Re: Division con decimales (batch) ---- by pablo
« Respuesta #1 en: 19 Octubre 2007, 00:47 am »
He mejorado tu code, por no decir que lo he renovado casi todo...ahora puedes elegir el número de cifras decimales con las que quieres calcular la cifra...

Hice dos bat, pongo los dos, son iguales pero el primero muestra el progreso de calculo a partir de los 70 decimales y el segundo no muestra ningun progreso.

Código
  1. @echo off
  2. ::Division con decimales by nhaalclkiemr
  3. ::Baseado en el code de kraszic
  4.  
  5. title DIVISION CON DECIMALES
  6.  
  7. echo Calcula una division hasta con numeros decimales
  8. :main
  12. set did=
  13. set div=
  14. set max=
  15. set /p did=Introduce el dividendo: 
  16. set /p div=Introduce el divisor: 
  17. set /p max=Introduce el numero maximo de decimales (por defecto 60): 
  18. if "%did%"=="" goto main
  19. if "%div%"=="" goto main
  20. if "%max%"=="" set max=60
  21. if "%max%"=="0" set max=60
  22. set /a xxx=%did%*1
  23. if not "%xxx%"=="%did%" goto main
  24. set /a xxx=%div%*1
  25. if not "%xxx%"=="%div%" goto main
  26. set /a xxx=%max%*1
  27. if not "%xxx%"=="%max%" goto main
  29. if %div%==0 (
  30. echo Error. Division por cero.
  31. pause>nul
  33. )
  34. set /a divno0=%did%/%div%
  35. set /a mult1=%divno0%*%div%
  36. set /a resi0=%did%-%mult1%
  37. if %resi0%==0 (
  38. goto exacto
  39. )
  40. set p=0
  41. echo Calculando...
  42. :a
  43. set /a nu=nu+1
  44. if not "%percent%"=="" set /a antpercent=%percent%
  45. set /a percent=%nu%*100/%max%
  46. if not "%antpercent%"=="%percent%" (
  47. if %nu% GTR 70 echo %percent%%%
  48. )
  49. set temp1=resi%p%
  50. set temp2=divno%nu%
  51. set temp3=mult%nu%
  52. call:func1 %%%temp1%%%0
  53. call:func2 %%%temp2%%% %%%temp2%%%
  54. call:func3 %%%temp1%%%0 %%%temp3%%%
  55. goto sig
  56. :func1
  57. set /a divno%nu%=%1/%div%
  58. goto:EOF
  59. :func2
  60. set /a mult%nu%=%1*%div%
  61. goto:EOF
  62. :func3
  63. set /a resi%nu%=%1-%2
  64. goto:EOF
  65. :sig
  66. set /a p=p+1
  67. set temp=resi%nu%
  68. call:funcion2 %%%temp%%%
  69. goto sig2
  70. :funcion2
  71. set tempvalue=%1
  72. goto:EOF
  73. :sig2
  74. If not %nu%==%max% if not %tempvalue%==0 goto a
  75. For /L %%I IN (1,1,%nu%) DO (
  76. call:funcion3 %%%%divno %%I%%%%
  77. )
  78. goto exacto
  79. :funcion3
  80. call:funcion7 %1%2
  81. goto seguir
  82. :funcion7
  83. set tmpvar=%1
  84. goto:EOF
  85. :seguir
  86. set decimal=%decimal%%tmpvar%
  87. goto:EOF
  88. :exacto
  89. if not "%decimal%"=="" set decimal=.%decimal%
  91. echo Resultado: %divno0%%decimal%
  92. pause>nul

Código
  1. @echo off
  2. ::Division con decimales by nhaalclkiemr
  3. ::Baseado en el code de kraszic
  4.  
  5. title DIVISION CON DECIMALES
  6.  
  7. echo Calcula una division hasta con numeros decimales
  8. :main
  12. set did=
  13. set div=
  14. set max=
  15. set /p did=Introduce el dividendo: 
  16. set /p div=Introduce el divisor: 
  17. set /p max=Introduce el numero maximo de decimales (por defecto 30): 
  18. if "%did%"=="" goto main
  19. if "%div%"=="" goto main
  20. if "%max%"=="" set max=30
  21. if "%max%"=="0" set max=30
  22. set /a xxx=%did%*1
  23. if not "%xxx%"=="%did%" goto main
  24. set /a xxx=%div%*1
  25. if not "%xxx%"=="%div%" goto main
  26. set /a xxx=%max%*1
  27. if not "%xxx%"=="%max%" goto main
  29. if %div%==0 (
  30. echo Error. Division por cero.
  31. pause>nul
  33. )
  34. set /a divno0=%did%/%div%
  35. set /a mult1=%divno0%*%div%
  36. set /a resi0=%did%-%mult1%
  37. if %resi0%==0 (
  38. goto exacto
  39. )
  40. set p=0
  41. echo Calculando...
  43. :a
  44. set /a nu=nu+1
  45. set temp1=resi%p%
  46. set temp2=divno%nu%
  47. set temp3=mult%nu%
  48. call:func1 %%%temp1%%%0
  49. call:func2 %%%temp2%%% %%%temp2%%%
  50. call:func3 %%%temp1%%%0 %%%temp3%%%
  51. goto sig
  52. :func1
  53. set /a divno%nu%=%1/%div%
  54. goto:EOF
  55. :func2
  56. set /a mult%nu%=%1*%div%
  57. goto:EOF
  58. :func3
  59. set /a resi%nu%=%1-%2
  60. goto:EOF
  61. :sig
  62. set /a p=p+1
  63. set temp=resi%nu%
  64. call:funcion2 %%%temp%%%
  65. goto sig2
  66. :funcion2
  67. set tempvalue=%1
  68. goto:EOF
  69. :sig2
  70. If not %nu%==%max% if not %tempvalue%==0 goto a
  71. For /L %%I IN (1,1,%nu%) DO (
  72. call:funcion3 %%%%divno %%I%%%%
  73. )
  74. goto exacto
  75. :funcion3
  76. call:funcion7 %1%2
  77. goto seguir
  78. :funcion7
  79. set tmpvar=%1
  80. goto:EOF
  81. :seguir
  82. set decimal=%decimal%%tmpvar%
  83. goto:EOF
  84. :exacto
  85. if not "%decimal%"=="" set decimal=.%decimal%
  86. echo Resultado: %divno0%%decimal%
  87. pause>nul


El código de los dos es lo mismo, en el primero añadí unas lineas poco importantes para obtener el progreso...

Si alguien no entiende el code que mire el manual de programación avanzada de SDC que explica muy bien el uso de funciones y del comando FOR en BATCH

Los hice bastante rápido y se pueden optimizar, y bastante, si alguien quiere optimizarlo que lo haga y lo ponga si kiere, la verdad yo lo hice bastante rápido...

Weno espero que os sirva...

Saludos ;)
En línea
StasFodidoCrypter 1.0 - 100% (old)
StasFodidoCrypter 2.0 - 85% (deserted)
Fire AV/FW-Killer - 97% (deserted)
R-WlanXDecrypter 1.0- 100%
kraszic

Desconectado Desconectado

Mensajes: 277


Ver Perfil
Re: Division con decimales (batch) ---- by pablo
« Respuesta #2 en: 19 Octubre 2007, 16:01 pm »
wow, tio, q crack q estas hecho. Me gustaba mi code, pero eso q has hecho para q aparezcan mas decimales ha estado genial.
A ver si me puedo volver a releer el manual de SDC para entender mejor las funciones q no las uso nunca.

saludos

PD: Como se hace para poner el codigo con colores???
En línea
nhaalclkiemr


Desconectado Desconectado

Mensajes: 1.678


Máximo exponente 9DB9F1AEED2FADBDE 997BBE20FEDA92


Ver Perfil WWW
Re: Division con decimales (batch) ---- by pablo
« Respuesta #3 en: 19 Octubre 2007, 17:37 pm »
Usar funciones es muy facil, y el FOR también es esencial...eso con la practica aprendes ;)

y sobre los colores es utilizar etiquetas GeSHi

mira se usaría así (sin los espacios esos)

[ code=dos ][ /code ]

para VB sería así:

[ code=vb ][ /code ]

Saludos >:(
En línea
StasFodidoCrypter 1.0 - 100% (old)
StasFodidoCrypter 2.0 - 85% (deserted)
Fire AV/FW-Killer - 97% (deserted)
R-WlanXDecrypter 1.0- 100%
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Python, Decimales de una division
Scripting 		Arnau27 2 8,099 Último mensaje 10 Agosto 2011, 19:30 pm
por Arnau27
Las discográficas pierden: un juez absuelve a Pablo Soto por crear software P2P
Noticias 		wolfbcn 1 1,978 Último mensaje 19 Diciembre 2011, 22:38 pm
por beholdthe
Fallecio el Hermano Pablo
Foro Libre 		p1r4t0s 0 3,395 Último mensaje 27 Enero 2012, 23:47 pm
por p1r4t0s
[BATCH] CALC: Sumas y restas con decimales
Scripting 		Binary_Death 5 4,832 Último mensaje 24 Julio 2012, 22:32 pm
por AgnesBlack
el resultado de la división no me con puntos decimales
Programación C/C++ 		alexfajam 1 2,877 Último mensaje 6 Septiembre 2017, 22:29 pm
por ivancea96
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines