Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: 2ricardo_c en 18 Enero 2015, 06:31 am



Título: problema con la resolución de un programa que resuelve ecuaciones de 2º en batch
Publicado por: 2ricardo_c en 18 Enero 2015, 06:31 am
[MOD]:
1) Bienvenido al foro, debes utilizar las etiquetas GeShi para insertar código.
2) Haz el favor de leer estás publicaciones para saber como elaborar y plantear una duda, dando el mínimo de información, si realmente esperas que alguien se interese por tu duda:

  • 10 pasos para plantear una duda informática (http://foro.elhacker.net/index.php/topic,159345.msg751417.html)
  • FAQ : Como hacer preguntas "inteligentes" (http://foro.elhacker.net/index.php/topic,7122.0.html)



Código
  1. @echo off
  2. title Resolucion de segundo grado
  3. color 0B
  4. cls
  5. set/p a=Agregue el valor a "a"
  6. cls
  7. set/p b=Agregue el valor a "b"
  8. cls
  9. set/p c=agregue el valor a "c"
  10. cls
  11. set ric=4
  12. set/a roc=%a%*%ric%
  13. set/a ruc=%b%*%b%
  14. set/a rac=%ruc%+%roc%
  15. cls
  16. rem **aqui empieza lo complicado porfavor checale bien morro!**
  17. :ra2
  18.  
  19.  
  20. call:ra2u %rac%
  21.  
  22.  
  23. :ra2u
  24. rem ** aqui es la parte de el calculo de la raiz**
  25. cls
  26. title Calculadora - Raizes cuadradas
  27. setlocal enabledelayedexpansion
  28. echo Raiz cuadrada
  29. set count=0
  30. set dend=%1
  31. set num=%rac%
  32. IF %rac% LEQ 0 (
  33. CLS
  34. echo SOLO NUMEROS MAYORES A 0
  35. GOTO raizes
  36. )
  37. if %rac% GTR 46341 (
  38. cls
  39. echo el maximo numero que este batch le puede sacar raiz cuadrada a un numero es 46341
  40. goto raizes
  41. )
  42.  
  43. for /l %%a in (%rac%, -2, 1) do (
  44.   set /a sqr=%%a*%%a
  45.   if !sqr! leq %rac% (
  46.      set digit=%%a.
  47.     set root=%%a
  48.      goto out2
  49.   )
  50. )
  51.  
  52. :out2
  53.   call set /a count=%%count%%+1
  54.   if %count% GTR 8 goto next2
  55.   set /a rac=(%rac%-%sqr%)*100
  56.   set /a div=%root%*2
  57.   for /l %%i in (9,-1,0) do (
  58.      set /a sqr=%div%%%i*%%i
  59.      if !sqr! leq %rac% (
  60.         set root=%root%%%i
  61.         goto out2
  62.      )
  63.   )
  64.  
  65. :next2  
  66.   set root=%root:~-10%
  67.   if %rac% neq 0 set digit=%digit%%root%
  68.   echo La raiz cuadrada de %num% es %digit%
  69. rem ** aqui termina la parte de el calculo de raiz**
  70. rem **aqui empieza la otra parte del programa la parte 7**
  71. set/a rebe=%b%+%digit%
  72. set rebeca=2
  73. set/a teamo=%a%*%rebeca%
  74. echo el primer resultado es %teamo%
  75. set/a popo=%b%-%digit%
  76. set/a *****=%popo%/%rebeca%
  77. echo el segundo resultado es %*****%
  78. echo el primer resultado es %teamo% y el segundo %*****%
  79. cls
  80. echo este programa fue hecho por2 Ricardo_c para resolver ecuaciones de sendo grado
  81. echo con la colavoracion del profe
  82. cls

( me podrian decir en que me equivoque, y ayudarme) :huh: :huh:


Título: Re: problema con la resolución de un programa que resuelve ecuaciones de 2º en batch
Publicado por: engel lex en 18 Enero 2015, 06:52 am
necesitas hacerlo en batch? :s batch no es un lenguaje para ese tipo de aplicaciones... es un lenguaje basicamente para el manejo linear de operaciones por lotes...

por cierto, coloca tu codigo dentro de etiquetas GeSHi

(http://i.imgur.com/JTFecMo.gif)

dale click al boton modificar, selecciona tu codigo y selecciona DOS como lenguaje