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

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 [17]
161  Programación / Scripting / Re: [Reto Batch] IsFibonacciNumber (79137913) en: 6 Mayo 2012, 17:54 pm
che muchos retos batch de una :P
Da la casualidad que el mismo inicio el mismo reto en la sección vb, por si alguien quiere ver :P
[RETO] IsFibonacciNumber(N as long) as Boolean

Gracias por la info... En vbs supongo que se puede aplicar recursión a funciones por eso se ve lindo jaja... pero en Batch creo que no se puede. ¡Gracias que se pueden crear funciones :lol:

Saludos... A ver si algún día me apetece y me pongo con vbs XD
162  Programación / Scripting / [Reto Batch] Hex2Dec Batch Command en: 6 Mayo 2012, 16:35 pm
Aquí pueden comentar todo lo que quieran, sus dudas, avances o soluciones acerca del siguiente reto:

Reto iniciado por Batchiano

Reto Nº 11

Nombre:          Hex2Dec Batch Command
Dificultad:        3/10
Objetivo:         Crear un comando que convierta un número en hexadecimal a decimal.
Pista: El código es muy corto. Se aconseja pipear.
Ejemplo:



Solución:

Código
  1. @echo off
  2. if "%1"=="" (goto syn) else (
  3. echo | set /a %1
  4. exit /b
  5. )
  6.  
  7. :syn
  8. echo Error de sintaxis. %0 [NUMERO EN HEXADECIMAL]
163  Programación / Scripting / Re: [Reto Batch] IsFibonacciNumber (79137913) en: 6 Mayo 2012, 15:01 pm
A ver, el proceso teórico sería...

Teniendo en cuenta que la sucesión de Fibonacci se define recursivamente como:

Si n=0 v n=1, entonces f(n)=1

Si no, f(n)=f(n-1)+f(n-2)


Llamemos h a cada elemento de la secuencia U dada por el usuario. La secuencia puede tener uno o más elementos y debe ser finita.

Llamemos F al conjunto de Naturales de la sucesión de Fibonacci.

Entonces, teniendo en cuenta que la sucesión de Fibonacci es una lista de números en orden ascendente, podemos realizar un bucle para i=1 hasta k de tal manera que si f(i) = h, podemos afirmar que cierto h pertenece a la secuencia de Fibonnaci, por lo tanto, TRUE (1). Por otra parte si f(i) > h, podemos afirmar que, como LA SECUENCIA DE FIBONACCI ES CRECIENTE, cierto h no pertenece F, por tanto devolvemos FALSE (0)
164  Programación / Scripting / Re: [Reto Batch] Sort random nums en: 6 Mayo 2012, 14:46 pm
Ahora envío el code :)

PD: En la screen sale un 026 :P
165  Programación / Scripting / Re: [Reto Batch] Tablas de multiplicar en: 6 Mayo 2012, 14:18 pm
Yo también lo voy a enviar :)

Aquí un print-screen:

166  Programación / Scripting / Contador (cuenta atrás) en: 7 Abril 2012, 09:40 am
Pues he implementado una cuenta atrás en Batch... segurísimamente ya esté hecho... pero me apetecía pensar como hacerlo... opiniones... mejoras... aplicaciones para la cuenta atrás... ideas... críticas constructivas... todo bienvenido :P

Operadores lógicos...

Código
  1. ::Cuenta atrás
  2. ::Batchiano
  3. @echo off
  4. setlocal enabledelayedexpansion
  5. :menu
  6. set /p h="Horas: "
  7. set /p m="Minutos: "
  8. set /p s="Segundos: "
  9. for %%z in (h,m,s) do if not defined %%z (
  10. call :formato
  11. )
  12. if %h% GEQ 0 (
  13. if %m% GEQ 0 (
  14. if %m% LEQ 59 (
  15. if %s% GEQ 0 (
  16. if %s% LEQ 59 (
  17. call :contador
  18. ) else (
  19. call :formato
  20. )
  21. ) else (
  22. call :fomato
  23. )
  24. ) else (
  25. call :formato
  26. )
  27. ) else (
  28. call :formato
  29. )
  30. ) else (
  31. call :formato
  32. )
  33. goto :eof
  34.  
  35. :contador
  36. cls
  37. if %h% GEQ 0 (
  38. if %m% GEQ 0 (
  39. if %s% GEQ 0 (
  40. for /l %%a in (!h!,-1,0) do (
  41. for /l %%b in (!m!,-1,0) do (
  42. for /l %%c in (!s!,-1,0) do (
  43. echo Contador: %%a:%%b:%%c
  44. ping localhost -n 2 > nul
  45. cls
  46. )
  47. set s=59
  48. )
  49. set m=59
  50. )
  51. )
  52. )
  53. )
  54. goto :eof
  55.  
  56. :formato
  57. echo Formato incorrecto. Vuelva a intentarlo
  58. pause>nul & cls & call :menu
  59.  
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 [17]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines