Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Its Prime?

  • 0 Respuestas
  • 1429 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado 79137913

  • *
  • Co Admin
  • Mensajes: 641
  • Actividad:
    1.67%
  • Reputación 11
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« en: Febrero 05, 2013, 11:49:04 am »
HOLA!!!

Código: DOS
  1. @ECHO OFF
  2. SETLOCAL ENABLEDELAYEDEXPANSION
  3. ECHO VERIFICADOR DE NUMEROS PRIMOS POR 79137913
  4. ECHO EJEMPLO:
  5. ECHO Entrada 1 2 3 4 5 6 7 8 9 10 11 12 13
  6. ECHO Salida: 1 1 1 0 1 0 1 0 0 0 1 0 1
  7. SET /P N=INSERTE UNA CADENA DE NUMEROS A VERIFICAR SEPARADOS POR UN ESPACIO:
  8. :NEXTNUM
  9. IF "%FIN%"=="1" GOTO SHOWNUMS
  10. SET RN=
  11. :NEXTCHAR
  12. call set CHAR=%%N:~%NUM%,1%%%
  13. set /a NUM+=1
  14. IF "%CHAR%" EQU " " (GOTO EMPIEZA)
  15. IF "%CHAR%" EQU "" SET FIN=1
  16. IF "%CHAR%" EQU "" (GOTO EMPIEZA)
  17. SET RN=%RN%%CHAR%
  18. GOTO NEXTCHAR
  19. :EMPIEZA
  20. SET X=%RN%
  21. SET Y=%X%
  22. SET CT=0
  23. :LOOP
  24. SET /A Y=%Y%-1
  25. IF !Y!==0 GOTO ISPRIME
  26. SET /A CHECK= %X% %% Y
  27. IF !CHECK!==0 (SET /A CT=%CT%+1)
  28. IF !CT!==2 GOTO NOTPRIME
  29. GOTO LOOP
  30. :NOTPRIME
  31. SET OUTP=%OUTP% 0
  32. GOTO NEXTNUM
  33. :ISPRIME
  34. SET OUTP=%OUTP% 1
  35. GOTO NEXTNUM
  36. :SHOWNUMS
  37. ECHO %OUTP%

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   DOORS.PARTY

 

¿Te gustó el post? COMPARTILO!