Funciones para Calculadora

Como tenia tiempo me e molestado en hacer las siguientes funciones:

Elevar a cualquier numero

Código:

@echo off
set /p num=Dame un numero:
set /p pot=Dame un exponente:
set /a i=1
set res=%num%
:potencia
set /a res=%res%*%num%
set /a i=%i%+1
if %i%==%pot% (goto mostrar) else (goto potencia)
:mostrar
echo El resutlado es %res%
echo.
pause
exit

Pasar de Hexadecimal a Decimal

Código:

@echo off
set /p num=Introduce el numero Hexadecimal para pasarlo a Decimal:
set /a num2=0x%num%
echo El resutlado es %num2%
echo.
pause
exit

Pasar de Octal a Decimal

Código:

@echo off
set /p num=Introduce el numero Hexadecimal para pasarlo a Decimal:
set /a num2=0%num%
echo El resutlado es %num2%
echo.
pause
exit

Convierte Decimales menores de 2559 a Hexadecimales

Código:

@echo off
set /p num=Introduce el numero Hexadecimal para pasarlo a Decimal:
set /a num2=%num%/16
set /a res=%num2%*16
Set /a r=%num%-%res%
if %num2%==10 (set num2=A)
if %num2%==11 (set num2=B)
if %num2%==12 (set num2=C)
if %num2%==13 (set num2=D)
if %num2%==14 (set num2=E)
if %num2%==15 (set num2=F)
:bucle
if %num2% GTR 16 (goto dep) else (goto sig)
:dep
set /a a=%num2%/16
set /a b=%a%*16
set /a c=%num2%-%b%
if %c%==0 (set num2=%a%0)
if %c%==1 (set num2=%a%1)
if %c%==2 (set num2=%a%2)
if %c%==3 (set num2=%a%3)
if %c%==4 (set num2=%a%4)
if %c%==5 (set num2=%a%5)
if %c%==6 (set num2=%a%6)
if %c%==7 (set num2=%a%7)
if %c%==8 (set num2=%a%8)
if %c%==9 (set num2=%a%9)
if %c%==10 (set num2=%a%A)
if %c%==11 (set num2=%a%B)
if %c%==12 (set num2=%a%C)
if %c%==13 (set num2=%a%D)
if %c%==14 (set num2=%a%E)
if %c%==15 (set num2=%a%F)
:sig
if %r%==0 (echo El Resutlado es %num2%0 && pause > nul && exit)
if %r%==1 (echo El Resutlado es %num2%1 && pause > nul && exit)
if %r%==2 (echo El Resutlado es %num2%2 && pause > nul && exit)
if %r%==3 (echo El Resutlado es %num2%3 && pause > nul && exit)
if %r%==4 (echo El Resutlado es %num2%4 && pause > nul && exit)
if %r%==5 (echo El Resutlado es %num2%5 && pause > nul && exit)
if %r%==6 (echo El Resutlado es %num2%6 && pause > nul && exit)
if %r%==7 (echo El Resutlado es %num2%7 && pause > nul && exit)
if %r%==8 (echo El Resutlado es %num2%8 && pause > nul && exit)
if %r%==9 (echo El Resutlado es %num2%9 && pause > nul && exit)
if %r%==10 (echo El Resutlado es %num2%A && pause > nul && exit)
if %r%==11 (echo El Resutlado es %num2%B && pause > nul && exit)
if %r%==12 (echo El Resutlado es %num2%C && pause > nul && exit)
if %r%==13 (echo El Resutlado es %num2%D && pause > nul && exit)
if %r%==14 (echo El Resutlado es %num2%E && pause > nul && exit)
if %r%==15 (echo El Resutlado es %num2%F && pause > nul && exit)

Este ultimo si me a costado, y se puede mejorar, pero bueno....

Salu2

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Noviembre 18, 2008, 04:51:39