Octubre 20, 2014, 11:46:54 pm

Autor Tema: Calculadora para Sumar numeros con Decimales  (Leído 3052 veces)

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

hanlly

  • Yo vivo en CPH
  • ***
  • Mensajes: 505
    • Ver Perfil
Calculadora para Sumar numeros con Decimales
« en: Octubre 02, 2010, 01:21:00 am »
Hola Todos!!! aki les traigo mi primera calculadora para numeros Decimales... solo funciona para Suma... hasta ahora con numeros positivos.

se ke kizas haya un modo mucho mas facil de hacerla.. y con mucho menos codigos.. pero.. es ke no se FOR...


EXPLICACION DEL FUNCIONAMIENTO

asi mismo como sacamos la suma de los numeros decimales... es lo mismito... por ejemplo:

keremos sumar:

    5.13
+  7.93
  13.06

primero sumamos el ultimo decimal de cada uno de los numeros... en el primer caso es 6.. se deja igual..
en el segundo caso, si el resultado, ke en este caso es 10, pasa de 9 se le resta 10 y se le suma 1 al resultado del par de numeros que siguen (7 y 5)... en este caso seria 1+9=10

para el Tercer caso, los numeros enteros 5 y 7 es un caso algo diferente.. solo hay k sumarlos entre si y ya, pero tomando en cuenta el 1 de la suma anterior...

es lo mismo que pasa en la parte Principal de esta calculadora.. lo otro es pura comodidad...


Aki el Codigo de la calculadora:

Código: (dos) [Seleccionar]
@echo off

:menu
color 17
Title Suma de Numeros Decimales.      Menu
cls
set opc=
echo.
echo.
echo.                              BIENVENIDO
echo.
echo.          1. Sumar Numeros decimales o enteros
echo.          2. Ayuda de como usarla.
echo.          3. Acerca
echo.          4. Salir
echo.
echo.
set /p opc=Numero de opcion:
if not defined opc goto erroropc
if %opc%==1 goto sumar
if %opc%==2 goto ayuda
if %opc%==3 goto acerca
if %opc%==4 exit
goto errormenu

:sumar
Title Suma de Numeros Decimales.      Sumar
cls
echo.
echo.     Ingrese Numeros                       Formato: Entero.Decimales
echo.
set /p pnum=.    
if not defined pnum goto sumar
set /p snum=.  +


set pnum=%pnum:.=aaaaaaaaaa%
set num1=%pnum:~0,10%
set dec1=%pnum:~10,30%
set num1=%num1:a=%
set dec1=%dec1:a=%

set snum=%snum:.=aaaaaaaaaa%
set num2=%snum:~0,10%
set dec2=%snum:~10,30%
set num2=%num2:a=%
set dec2=%dec2:a=%

cls
set /a ent=%num1%+%num2%

set dec1=%dec1%0000000000
set dec2=%dec2%0000000000

set a1=%dec1:~,1%
set a2=%dec1:~1,1%
set a3=%dec1:~2,1%
set a4=%dec1:~3,1%
set a5=%dec1:~4,1%
set a6=%dec1:~5,1%
set a7=%dec1:~6,1%
set a8=%dec1:~7,1%
set a9=%dec1:~8,1%
set a0=%dec1:~9,1%

set b1=%dec2:~,1%
set b2=%dec2:~1,1%
set b3=%dec2:~2,1%
set b4=%dec2:~3,1%
set b5=%dec2:~4,1%
set b6=%dec2:~5,1%
set b7=%dec2:~6,1%
set b8=%dec2:~7,1%
set b9=%dec2:~8,1%
set b0=%dec2:~9,1%

set r1=0
set r2=0
set r3=0
set r4=0
set r5=0
set r6=0
set r7=0
set r8=0
set r9=0
set r0=0

set /a r0=%r0%+%b0%+%a0%
if %r0% geq 10 set /a r9=%r9%+1 & set /a r0=%r0%-10
set /a r9=%r9%+%b9%+%a9%
if %r9% geq 10 set /a r8=%r8%+1 & set /a r9=%r9%-10
set /a r8=%r8%+%b8%+%a8%
if %r8% geq 10 set /a r7=%r7%+1 & set /a r8=%r8%-10
set /a r7=%r7%+%b7%+%a7%
if %r7% geq 10 set /a r6=%r6%+1 & set /a r7=%r7%-10
set /a r6=%r6%+%b6%+%a6%
if %r6% geq 10 set /a r5=%r5%+1 & set /a r6=%r6%-10
set /a r5=%r5%+%b5%+%a5%
if %r5% geq 10 set /a r4=%r4%+1 & set /a r5=%r5%-10
set /a r4=%r4%+%b4%+%a4%
if %r4% geq 10 set /a r3=%r3%+1 & set /a r4=%r4%-10
set /a r3=%r3%+%b3%+%a3%
if %r3% geq 10 set /a r2=%r2%+1 & set /a r3=%r3%-10
set /a r2=%r2%+%b2%+%a2%
if %r2% geq 10 set /a r1=%r1%+1 & set /a r2=%r2%-10
set /a r1=%r1%+%b1%+%a1%
if %r1% geq 10 set /a ent=%ent%+1 & set /a r1=%r1%-10

:compdec
if %r0%==0 (set r0=) else (goto compent1)
if %r9%==0 (set r9=) else (goto compent1)
if %r8%==0 (set r8=) else (goto compent1)
if %r7%==0 (set r7=) else (goto compent1)
if %r6%==0 (set r6=) else (goto compent1)
if %r5%==0 (set r5=) else (goto compent1)
if %r4%==0 (set r4=) else (goto compent1)
if %r3%==0 (set r3=) else (goto compent1)
if %r2%==0 (set r2=) else (goto compent1)
if %r1%==0 (set r1=) else (goto compent1)

:compent1
if %a0%==0 (set a0=) else (goto compent2)
if %a9%==0 (set a9=) else (goto compent2)
if %a8%==0 (set a8=) else (goto compent2)
if %a7%==0 (set a7=) else (goto compent2)
if %a6%==0 (set a6=) else (goto compent2)
if %a5%==0 (set a5=) else (goto compent2)
if %a4%==0 (set a4=) else (goto compent2)
if %a3%==0 (set a3=) else (goto compent2)
if %a2%==0 (set a2=) else (goto compent2)
if %a1%==0 (set a1=) else (goto compent2)

:compent2
if %b0%==0 (set b0=) else (goto compent3)
if %b9%==0 (set b9=) else (goto compent3)
if %b8%==0 (set b8=) else (goto compent3)
if %b7%==0 (set b7=) else (goto compent3)
if %b6%==0 (set b6=) else (goto compent3)
if %b5%==0 (set b5=) else (goto compent3)
if %b4%==0 (set b4=) else (goto compent3)
if %b3%==0 (set b3=) else (goto compent3)
if %b2%==0 (set b2=) else (goto compent3)
if %b1%==0 (set b1=) else (goto compent3)
:compent3
echo compent3
set dec1=%a1%%a2%%a3%%a4%%a5%%a6%%a7%%a8%%a9%%a0%
set dec2=%b1%%b2%%b3%%b4%%b5%%b6%%b7%%b8%%b9%%b0%
set resp=%r1%%r2%%r3%%r4%%r5%%r6%%r7%%r8%%r9%%r0%

:resultado
Title Suma de Numeros Decimales.      Resultado de la Suma
echo.
echo.         RESULTADO
echo.
echo. %num1%.%dec1% + %num2%.%dec2% = %ent%.%resp%%r9%%r0%
pause>nul
set num1=0
set num2=0
set dec1=0
set dec2=0
set ent=0
set r1=0
set r2=0
set r3=0
set r4=0
set r5=0
set r6=0
set r7=0
set r8=0
set r9=0
set r0=0
goto menu


:ayuda
Title Suma de Numeros Decimales.      Ayuda
cls
echo.
echo.   Para sumar numeros con decimales, por ejemplo:
echo.      5.123
echo.    + 6.456
echo.
echo.   primero ponemos el Primer numero:
echo.
echo..    5.123
echo.
echo.   Asimismo se hace con el segundo numero:
echo.
echo.        SEGUNDO NUMERO
echo..  + 6.456
echo.
echo.   Asi se efectuara una suma correctamente.
echo.    Dando como resultado
echo.    = 11.579
echo.
echo.   Presione una tecla para volver al menu principal . . .
pause>nul
goto menu

:Acerca
Title Suma de Numeros Decimales.      Acerca de la Calculadora
cls
echo.
echo.
echo.
echo.
echo.
echo.                        Calculadora de Suma de Decimales
echo.
echo.
echo.
echo.                             Version 2.1.0 (Oficial)
echo.
echo.
echo.
echo.                         Por: Mr. Batista
echo.                               (HanBatista@hotmail.com)
echo.
echo.
echo.
echo.              Primera Version Lanzada Viernes 4 de Junio del 2010
echo.
echo.            Ultima Version Lanzada el Jueves 30 de Septiembre del 2010
echo.
echo.
echo.
pause>nul
goto menu

:erroropc
cls
set Err="No elegiste una de las opciones del menu. Debes elegir una."
goto error

:errormenu
set Err="La opcion %opc% no esta en el menu. Elige una valida"
goto error

:error
Title Suma de Numeros Decimales.      Error!
cls
color 47
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.                           Ups!!... ha habido un error...
echo.
echo.            %Err%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo. Presiona una tecla para volver al menu principal.
pause>nul
goto menu


JaAViEr

  • ¡ Programming the world !
  • Colaborador
  • ***
  • Mensajes: 8208
  • No te olvides visitar www.miweb.in/trabaja-en-casa
    • Ver Perfil
    • MiWeb
Re: Calculadora para Sumar numeros con Decimales
« Respuesta #1 en: Octubre 02, 2010, 01:26:13 am »
Buen trabajo !
Lo muevo al abierto

¡ SIGUEME EN TWITTER -> @javieresteban__ !
¡ TRABAJA DESDE CASA EN CHILE  -> CODIGO.GA / BLOG PROGRAMACIÓN !

hanlly

  • Yo vivo en CPH
  • ***
  • Mensajes: 505
    • Ver Perfil
Re: Calculadora para Sumar numeros con Decimales
« Respuesta #2 en: Octubre 05, 2010, 02:56:44 am »
y nadie va a responder o comentar algo???  :(

y yo animado en subir la de restar...

nadie mas ke Javier valora el codigo k hiceeeee

Mr.Lerzep

  • Yo vivo en CPH
  • ***
  • Mensajes: 723
  • Sexo: Masculino
  • En el bloque.
    • Ver Perfil
Re: Calculadora para Sumar numeros con Decimales
« Respuesta #3 en: Octubre 05, 2010, 02:58:25 am »
Jajaj recien me conecto es un buen code la verdad que me sorprendio un poco :D

Salu2 a Todos.

hanlly

  • Yo vivo en CPH
  • ***
  • Mensajes: 505
    • Ver Perfil
Re: Calculadora para Sumar numeros con Decimales
« Respuesta #4 en: Octubre 05, 2010, 02:59:39 am »
jejeje grax man! por fin alguien valora mi code aparte de Javier.. aunk a el.. no c si agregarlo pk es moderador.. no alguien en particular... :p

JaAViEr

  • ¡ Programming the world !
  • Colaborador
  • ***
  • Mensajes: 8208
  • No te olvides visitar www.miweb.in/trabaja-en-casa
    • Ver Perfil
    • MiWeb
Re: Calculadora para Sumar numeros con Decimales
« Respuesta #5 en: Octubre 05, 2010, 03:14:57 am »
Aprovechando que ando en un PC, puedes acortar el code bastante con un FOR /L:
Código: (dos) [Seleccionar]
@echo off
set num1=0
set num2=0
set dec1=0
set dec2=0
set ent=0
FOR /L %%A IN (0,1,9) DO (
set r%%A=0
)

Saludos.

hanlly

  • Yo vivo en CPH
  • ***
  • Mensajes: 505
    • Ver Perfil
Re: Calculadora para Sumar numeros con Decimales
« Respuesta #6 en: Octubre 05, 2010, 03:23:01 am »
@echo off
set num1=0
set num2=0
set dec1=0
set dec2=0
set ent=0
FOR /L %%A IN (0,1,9) DO (
set r%%A=0
)
[/code]

Saludos.


oye.. me podrias explicar como funciona eso?? es ke me encantaria aprender For... Gracias de Antemano  :D

Mr.Lerzep

  • Yo vivo en CPH
  • ***
  • Mensajes: 723
  • Sexo: Masculino
  • En el bloque.
    • Ver Perfil
Re: Calculadora para Sumar numeros con Decimales
« Respuesta #7 en: Octubre 05, 2010, 03:34:16 am »
Aprovechando que ando en un PC, puedes acortar el code bastante con un FOR /L:
Código: (dos) [Seleccionar]
@echo off
set num1=0
set num2=0
set dec1=0
set dec2=0
set ent=0
FOR /L %%A IN (0,1,9) DO (
set r%%A=0
)

Saludos.


oye.. me podrias explicar como funciona eso?? es ke me encantaria aprender For... Gracias de Antemano  :D
[/quote]

Si queres aprender a usar FOR mira aca :

Pyxolo :
http://foro.portalhacker.net/index.php/topic,74857.0.html
RoCkoX : http://foro.portalhacker.net/index.php/topic,86033.0.html

Y una cosa mas no le pidas a JaAViEr que te ensñe algo por que seguro te dira :

Yo no soy maestro de nadie o algo asi .

PD: Cuando tenga bien entendido el FOR hare mi tutorial pero por ahora solo tengo el Manual para Newbies o Principiantes :D

Salu2.
« Última modificación: Octubre 05, 2010, 03:35:31 am por Mr.Lerzep »

JaAViEr

  • ¡ Programming the world !
  • Colaborador
  • ***
  • Mensajes: 8208
  • No te olvides visitar www.miweb.in/trabaja-en-casa
    • Ver Perfil
    • MiWeb
Re: Calculadora para Sumar numeros con Decimales
« Respuesta #8 en: Octubre 07, 2010, 03:21:43 am »
Aprovechando que ando en un PC, puedes acortar el code bastante con un FOR /L:
Código: (dos) [Seleccionar]
@echo off
set num1=0
set num2=0
set dec1=0
set dec2=0
set ent=0
FOR /L %%A IN (0,1,9) DO (
set r%%A=0
)

Saludos.


oye.. me podrias explicar como funciona eso?? es ke me encantaria aprender For... Gracias de Antemano  :D
[/quote]
Con gusto te explico hombre:
set num1=0
set num2=0
set dec1=0
set dec2=0
set ent=0
Declaramos las variables num1,num2,dec1,dec2,ent con Valor 0.
Con :
FOR /L %%A IN (0,1,9) DO (
set r%%A=0
)
vemos (0,1,9) que sería: Ir del 0 al 9, de uno en uno. Almacenando ello en la variable %%A.
Y viendo que tu tienes:
set r1=0
set r2=0
set r3=0
set r4=0
set r5=0
set r6=0
set r7=0
set r8=0
set r9=0
set r0=0
vas del 0 al 9 de uno en uno, tal cual el FOR que publiqué.
Entonces ese FOR va del 0 al 9 creando la variable r%%A=0
Siendo %%A cada vez que pasa  r0 , r1 , r2 , r3 , r4 , r5 , r6 , r7 , r8 , r9
Declarandole 0 a cada variable.
Para ver dicho efecto has esto:
Código: (dos) [Seleccionar]
@echo off
FOR /L %%A IN (0,1,9) DO (
echo set r%%A=0
)
verás como escribe:
set r1=0
set r2=0
set r3=0
set r4=0
set r5=0
set r6=0
set r7=0
set r8=0
set r9=0
set r0=0
Pero mas resumido...

hanlly

  • Yo vivo en CPH
  • ***
  • Mensajes: 505
    • Ver Perfil
Re: Calculadora para Sumar numeros con Decimales
« Respuesta #9 en: Octubre 07, 2010, 09:30:26 pm »
gracias Javier... ya entendi lo me decias... :D bueno.. hablamos luego... creare un nuevo tema para pedir ayuda en el foro general de batch...

Kracker51

  • Me das tu password?
  • **
  • Mensajes: 311
  • Sexo: Masculino
  • SELECT ALL FROM Hackers WHERE NameId='Kracker51';
    • Ver Perfil
Re: Calculadora para Sumar numeros con Decimales
« Respuesta #10 en: Octubre 20, 2010, 06:30:31 pm »
Muy bien man...

 :cura: :cura: :cura:
#include <iostream>
Int main()
    {
        Do
            {
                cout<<"FUCK"<<endl;
            }while (true〓true)
        Return 0;
    }


xx
sumar con decimales

Iniciado por h3ktor

5 Respuestas
5608 Vistas
Último mensaje Julio 27, 2006, 06:59:09 pm
por logisys
xx
como hago para sumar los numeros de un campo de una base de datos

Iniciado por matiasmatt

3 Respuestas
1144 Vistas
Último mensaje Mayo 28, 2009, 12:16:49 am
por Shell Root
exclamation
Numeros decimales en VB6

Iniciado por Alexey-Volkov

4 Respuestas
1726 Vistas
Último mensaje Octubre 23, 2009, 11:32:45 pm
por Alexey-Volkov
question
sumar numeros desde una lista

Iniciado por marpill

3 Respuestas
655 Vistas
Último mensaje Marzo 13, 2012, 02:51:47 am
por marpill
resuelto
¿Numeros decimales?(solucionado)

Iniciado por Dark Hero

15 Respuestas
1031 Vistas
Último mensaje Mayo 19, 2011, 10:03:04 pm
por The_Bug
xxx
Conversor de numeros Decimales a Binareos [Bin]

Iniciado por EddyW

8 Respuestas
1149 Vistas
Último mensaje Noviembre 01, 2009, 08:13:09 pm
por JaAViEr
xx
Problema con decimales con mi calculadora

Iniciado por KrLx

0 Respuestas
909 Vistas
Último mensaje Mayo 23, 2008, 02:44:39 pm
por KrLx
xx
Calculadora Bash (Decimales)

Iniciado por GilgamesHCo

0 Respuestas
1847 Vistas
Último mensaje Abril 18, 2010, 09:50:39 pm
por GilgamesHCo
question
Calculadora sencilla....ayuda con decimales

Iniciado por Loki2889

0 Respuestas
301 Vistas
Último mensaje Noviembre 07, 2011, 09:27:21 pm
por Loki2889
smiley
codigo de numeros quebrados????????? en una calculadora

Iniciado por cesitar1702

1 Respuestas
2449 Vistas
Último mensaje Mayo 30, 2007, 03:05:33 am
por DarkKey