Abril 20, 2018, 06:06:38 pm

Autor Tema: Ecuaciones v 0.01 1er grado.  (Leído 1271 veces)

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

Desconectado RockoX

  • Yo vivo en CPH
  • ***
  • Mensajes: 1186
  • Sexo: Masculino
  • Leo Gutierrez
    • Ver Perfil
Ecuaciones v 0.01 1er grado.
« en: Abril 11, 2009, 05:12:45 pm »


Se encarga de resolver ecuaciones de 1er grado, como las que se listar en la opción 2:
Código: You are not allowed to view links. Register or Login
1.  -3x-9=-9x-63
2.   9x-5=-4x-57
3.   5x-9x=39-3
4.  -7x+9=-9x-5
5.  -3x+1=2x+21
6.   7x+4=9x+6
7.  -5x+8=9x+120
8.  -8x+1=6x-111
9.  -4x+6=6x-64
10. -5x-1=-7x+5

El codigo :
Código: You are not allowed to view links. Register or Login
@echo off
:code
setlocal enabledelayedexpansion
:: -3x-9=-9x-63
echo. ------------------------------------------------------------------------------
echo. ^| Ecuaciones de 1ø grado. Ejemplo :                     -3x-9=-9x-63         ^|
echo. ------------------------------------------------------------------------------
echo.
echo. ------------------------------------------------------------------------------
echo. ^| 1.-Resolver ecuaci¢n.                                                      ^|
echo. ^| 2.-Ver ejemplos de ecuaciones.                                             ^|
echo. ^| 3.-Ayuda.                                                                  ^|
echo. ^| 4.-Salir.                                                                  ^|
echo. ------------------------------------------------------------------------------
echo.
set /p "opcion=Teclee el numero de la opcion dada : "
if not defined opcion (goto:code)
if %opcion% equ 1 (goto:r_ecuacion)
if %opcion% equ 2 (goto:examples)
if %opcion% equ 3 (goto:help)
if %opcion% equ 4 (goto:exit) else (
cls
goto:code
)
:r_ecuacion
cls
echo.
set /p "ecuacion=Ecuaci¢n : "
if not defined ecuacion (
cls
goto:code
)
for /f "tokens=1,2 delims==" %%a in ("%ecuacion%") do (
set "termino1=%%a"
set "termino2=%%b"
)
for /f "tokens=1,2 delims=x,X" %%a in ("%termino1%") do (set "x_1=%%ax")
for /f "tokens=1,2 delims=x,X" %%a in ("%termino2%") do (set "x_2=%%ax")
set "x1=%x_1:x=%"
set "x2=%x_2:x=%"
if ["%x_2:~0,1%"]==["-"] (
set /a "suma_x=!x1!!x2:-=+!"
) else (
set /a "suma_x=!x1!-!x2!"
)
for /f "tokens=1,2 delims=x,X" %%a in ("%termino2%") do (set "c_1=%%b")
for /f "tokens=1,2 delims=x,X" %%a in ("%termino1%") do (set "c_2=%%b")
if ["%c_2:~0,1%"]==["-"] (
set /a "suma_c=!c_1!!c_2:-=+!"
) else (
set /a "suma_c=!c_1!-!c_2!"
)
set /a "resultado=%suma_c%/%suma_x%"
echo.
echo.
echo.------------------------------------------------------------------------
echo.Resultado de la ecuacion.
echo.x =  %resultado%
echo.Ecuacion = !ecuacion:x=(%resultado%)!
echo.------------------------------------------------------------------------
set /p ,=Enter para volver al menu.
cls
goto:code
:examples
cls
echo.Este programa puede resolver ecuaciones como las siguientes :
echo.
echo.1.  -3x-9=-9x-63
echo.2.   9x-5=-4x-57
echo.3.   5x-9x=39-3
echo.4.  -7x+9=-9x-5
echo.5.  -3x+1=2x+21
echo.6.   7x+4=9x+6
echo.7.  -5x+8=9x+120
echo.8.  -8x+1=6x-111
echo.9.  -4x+6=6x-64
echo.10. -5x-1=-7x+5
for /l %%$ in (1,1,4) do (cd.)|echo.
set /p ,=Enter para volver al menu.
cls
goto:code
:help
cls
echo.Este peque¤o programa ayuda a resolver ecuaciones del tipo :
echo.-3x-9=-9x-63
echo.
echo.Solo tiene que teclear su ecuaci¢n en el menu inicial (opci¢n 1). y el
echo.programa se encargar  de resolver la ecuaci¢n.
echo.
echo.
echo.Leo Guti‚rrez R.
echo.
echo.
set /p ,=Pulse enter para volver al men£.
cls
goto:code
:exit
exit /b 0

Salida :
Código: You are not allowed to view links. Register or Login

Ecuación : 9x-5=-4x-57


------------------------------------------------------------------------
Resultado de la ecuacion.
x =  -4
Ecuacion = 9(-4)-5=-4(-4)-57
------------------------------------------------------------------------
Enter para volver al menu.

Tiene bastantes bug´s, que iré solucionando con más tiempo.

Saludos.
. .. ... ..... ........

Desconectado nacherfaller

  • Si te metes con CPH
    te metes conmigo
  • ****
  • Mensajes: 1632
  • Sexo: Masculino
  • Im Back
    • Ver Perfil
Re: Ecuaciones v 0.01 1er grado.
« Respuesta #1 en: Abril 21, 2009, 02:01:37 pm »
Bajando... lo ejecuto y te digo como me ha ido.

Saludos.


Edit:
Pues me ha funcionado en 4 o 5 pruebas que he hecho, muy bueno RockoX

Saludos
« Última modificación: Abril 21, 2009, 02:08:48 pm por nacherfaller »


question
ecuaciones de 3º grado

Iniciado por Emotion$

3 Respuestas
2148 Vistas
Último mensaje Abril 25, 2009, 05:17:16 am
por carlmycol
exclamation
Ecuaciones de 2° grado

Iniciado por Sthefano02

4 Respuestas
1849 Vistas
Último mensaje Julio 18, 2010, 05:07:58 pm
por Sthefano02
xx
Ecuaciones 2º grado by swik

Iniciado por swik

0 Respuestas
1558 Vistas
Último mensaje Mayo 16, 2010, 11:12:27 am
por swik
exclamation
[C] Ecuaciones de segundo grado

Iniciado por STANHMAL

6 Respuestas
2416 Vistas
Último mensaje Julio 10, 2010, 07:12:57 am
por jep
xx
Iniciandome en C: Ecuaciones de 2ndo Grado

Iniciado por Pr0xS

4 Respuestas
958 Vistas
Último mensaje Noviembre 04, 2012, 11:31:21 am
por mDrinky
xx
Ecuaciones 2º grado by swik [wxPython]

Iniciado por swik

0 Respuestas
1295 Vistas
Último mensaje Mayo 21, 2010, 10:41:00 am
por swik
xx
[Perl] Resolucion de ecuaciones de segundo grado

Iniciado por Mace Windu

0 Respuestas
2764 Vistas
Último mensaje Junio 27, 2008, 10:06:10 am
por Mace Windu
xx
[Principiantes]Ecuaciones enteras de primer grado con una incognita

Iniciado por carlmycol

8 Respuestas
14610 Vistas
Último mensaje Julio 28, 2008, 10:21:07 am
por m_a_t
xx
[C++] Programa Solución ecuaciones de segundo grado.Tipo +-aX^2 +- bX +- c = 0.

Iniciado por quieroaprender

2 Respuestas
9401 Vistas
Último mensaje Octubre 15, 2011, 05:40:37 pm
por quieroaprender
xx
Problemas sobre ecuaciones enteras de primer grado

Iniciado por carlmycol

3 Respuestas
16260 Vistas
Último mensaje Julio 19, 2008, 10:45:32 am
por carlmycol