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

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [batch] Descomposicion factorial
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [batch] Descomposicion factorial  (Leído 7,837 veces)
kraszic

Desconectado Desconectado

Mensajes: 277


Ver Perfil
[batch] Descomposicion factorial
« en: 29 Julio 2008, 22:05 pm »

Buenas, este es un programa q habia pensado hacer varias veces y hoy me he puesto en ello.
Todo es mejorable pero parece q el programa funciona bastante bien.
Dejo el codigo al q le interese.

El programa hace una descomposicion factorial en numeros primos del numero q se introduzca.


Código
  1. @echo off
  2. title Descomposicion factorial -- by kraszic
  3. :descom
  4. cls
  5. echo DESCOMPOSICION FACTORIAL EN NUMEROS PRIMOS
  6. set /p num=Introduce el numero:
  7. set div=2
  8. set temp=1
  9. set f1a=0
  10. set aim=1
  11.  
  12. :proce
  13. set /a fa1=%num%/%div%
  14. set /a fa2=%num%-(%div%*%fa1%)
  15. if %fa2%==0 goto escribir
  16.  
  17. :inic
  18. set num2=1
  19. set /a aim=%aim%+2
  20. if %aim% GTR 10000 goto error
  21. :inic2
  22. set /a num2=%num2%+1
  23. set /a divi=%aim%/%num2%
  24. set /a res=%aim%-(%num2%*%divi%)
  25. if %res%==0 goto inic
  26. if %num2% GTR %divi% (set div=%aim% & goto proce)
  27. goto inic2
  28.  
  29. :escribir
  30. if %temp%==1 goto arreglo
  31. echo %f1a%  ^|^|  %div%
  32. set fact=%fact%-%div%
  33. if %f1a%==%div% goto acbpr
  34. set f1a=%fa1%
  35. set num=%fa1%
  36. goto proce
  37.  
  38. :arreglo
  39. set temp=0
  40. echo %num%  ^|^|  %div%
  41. if %num%==%div% goto casoprimo
  42. set f1a=%fa1%
  43. set num=%fa1%
  44. set fact=%div%
  45. goto proce
  46.  
  47. :acbpr
  48. echo 1  ^|^|
  49. echo Factores:
  50. echo %fact%
  51. echo Pulse cualquier tecla para volver al menu.
  52. pause>nul
  53. goto descom
  54.  
  55. :casoprimo
  56. echo 1  ^|^|
  57. echo El %num% es un numero primo.
  58. echo Pulse cualquier tecla para volver al menu.
  59. pause>nul
  60. goto descom


saludos


En línea

carlitos.dll

Desconectado Desconectado

Mensajes: 266



Ver Perfil
Re: [batch] Descomposicion factorial
« Respuesta #1 en: 29 Julio 2008, 22:13 pm »

Muy bueno, lo utilizaré.



En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Descomposición factorial en 64 bits
Programación C/C++
miguelelmejor 3 4,828 Último mensaje 26 Diciembre 2012, 03:45 am
por Heisenbergs
Factorial de un numero!
Programación C/C++
barnix456 3 3,088 Último mensaje 12 Mayo 2012, 17:00 pm
por barnix456
Factorial c++
Programación C/C++
exanime 1 1,783 Último mensaje 8 Septiembre 2014, 21:11 pm
por Yaldabaot
Recursividad factorial hasta 4 C++
Programación C/C++
Merlindvd 1 1,362 Último mensaje 14 Diciembre 2016, 18:05 pm
por engel lex
Factorial
Java
Kougami 1 2,348 Último mensaje 6 Octubre 2017, 21:54 pm
por ivancea96
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines